1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| Sub Tirage()
Dim x As Integer
Dim Manche As Variant
Dim DL As Long 'Définition de la variable
'Efface l'ancien tableau
Range("AB5:CC22").ClearContents
'Détermine le nombre de match à jouer
Manche = Range("AE1")
'MsgBox "Il y aura " & Manche & " Matchs par équipe !"
Range("U8").Select
DL = Cells(Application.Rows.Count, 21).End(xlUp).Row
'Je définis la dernière ligne dont la colonne U n'est pas vide, mais il sélectionne quand memeles cellule dont la formule renvoie vide
Range("U8:X" & DL).Copy 'Je copie les lignes de U8 à la dernière ligne (
Range("AC8").Select
For x = 1 To Manche
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AC8").End(xlDown).Select
'
Next x
Application.CutCopyMode = False
End Sub |
Partager