Copie et transfert de la valeur des cellules d'un tableau vers un autre tableau

bonjour Daniel,

avec le dernier mail, j'ai ajouté des lignes au tableau1. En appuyant sur le bouton "Repechage" de la feuille "Concours", on retrouve le même nombre de ligne copiées. J'ai réfléchis et je crois t'avoir dis une bêtise, à savoir, qu'on avait une valeur connue (8) et une inconnue (nombre de lignes à copiées indéterminées).

Je crois que cette inconnue ne l'est pas vraiment. En effet, à la fin des inscriptions, je sais exactement le nombre d'équipes inscrites. Ce sont les nombres inscrits en colonne "B". Maintenant, si je mets en "U2 = 20" (c'est le nombre total d'équipes inscrites sur ce tableau maintenant), et qu'en "V2"= "U2"- 8, j'obtiens le nombre de lignes à copiées dans la feuille "Repechage".

Et comme cette valeur n'est pas figée, peut-être faire une variable du style :

     Dim nbLigneCopiees as Integer

     nbLigneCopiees = Range("V2")

Comme ça, à chaque nouveau concours, je rentrerai le nombre d'équipes en "U2". Mais ça, cela n'engage que moi. Le pro, c'est toi.

Tout ça pour dire que la belle inconnue ne l'était pas.

Merci pour ton aide

Bonjour,

Sub test()

Dim C As Range, Plage As Range, DL As Long

      With Sheets("Concours")

            Set Plage = .Range("B14", .Cells(.Rows.Count, 2).End(xlUp)).Resize(, 21)

      End With

      Application.EnableEvents = False

      With Sheets("Repechage")

                  .Unprotect

            Plage.Copy .[B6]

                  DL = .Cells(.Rows.Count, 2).End(xlUp).Row

                  .Range("B6", .Cells(DL, 3)).Sort .[B6], xlAscending, Header:=xlNo

                  .Range("B6", .Cells(DL, 2)).HorizontalAlignment = xlCenter

'                  .Range("B6", .Cells(DL, 2)).Interior.Color = 13434879

                  .Range("D6", .Cells(DL, "Q")).HorizontalAlignment = xlCenter

                  .Range("D6", .Cells(DL, "U")).ClearContents

                  .Range("M6", .Cells(DL, "V")).Locked = True

                  .Range("C6", .Cells(DL, "Q")).Interior.ColorIndex = xlNone

                  With .Range("B6", .Cells(DL, "Q"))

                    .Borders.LineStyle = xlContinuous

                    .FormatConditions.Delete

                    .VerticalAlignment = xlCenter

                    .Locked = False

                  End With

                  With Union(.Range("D6", .Cells(DL, 4)), .Range("G6", .Cells(DL, 7)), .Range("J6", .Cells(DL, 10)))

                    .FormatConditions.Delete

                    .FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _

                        Formula1:="="""""

                    .FormatConditions(.FormatConditions.Count).SetFirstPriority

                    .FormatConditions(1).Interior.ColorIndex = 40

                    .FormatConditions(1).StopIfTrue = False

                  End With

                  'EF ; HI ; KL

                  With Union(.Range("E6", .Cells(DL, "F")), .Range("H6", .Cells(DL, "I")), .Range("K6", .Cells(DL, "L")))

                    .FormatConditions.Delete

                    .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _

                        Formula1:="="""""

                    .FormatConditions(.FormatConditions.Count).SetFirstPriority

                    .FormatConditions(1).Interior.ColorIndex = 24

                    .FormatConditions(1).StopIfTrue = False

                  End With

                  .Protect

      End With

      Application.EnableEvents = True

 End Sub

Daniel

Je lis ton message juste après t'avoir répondu. Regarde si la macro fonctionne  correctement.

Daniel

il y a ces ligne de code qui sont en rouge :

                    .FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _

                        Formula1:="="""""

Elles sont utilisées 2 fois

J'ai dû faire une erreur en copiant le code. Voici le fichier :

https://1drv.ms/x/s!AqRP0RQrhNWW_CbOYEhqXBwBVDhu

Daniel