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 29 30 31
| Sub Macro2()
Dim v1 As Byte 'déclare la variable v1 (type à adapter à ton cas)
Dim v2 As Byte 'déclare la variable v2 (type à adapter à ton cas)
Dim v3 As Byte 'déclare la variable v3 (type à adapter à ton cas)
Dim v4 As Byte 'déclare la variable v4 (type à adapter à ton cas)
Dim v5 As Byte 'déclare la variable v5 (type à adapter à ton cas)
Dim v6 As Byte 'déclare la variable v6 (type à adapter à ton cas)
Dim v7 As Byte 'déclare la variable v7 (type à adapter à ton cas)
Dim v8 As Byte 'déclare la variable v8 (type à adapter à ton cas)
Dim v9 As Byte 'déclare la variable v9 (type à adapter à ton cas)
Dim v10 As Byte 'déclare la variable v10 (type à adapter à ton cas)
Dim v11 As Byte 'déclare la variable v11 (type à adapter à ton cas)
Dim v12 As Byte 'déclare la variable v12 (type à adapter à ton cas)
Dim TV As Variant 'déclare la variable TV (Tableau de Variables)
Dim COL As Byte 'déclare la variable COL (COLonne)
Dim I As Byte 'déclare la variable I (Incrément)
'définit les variables v1 à v12 (à adapter à ton cas)
v1 = 1: v2 = 2: v3 = 3: v4 = 4: v5 = 5: v6 = 6: v7 = 7: v8 = 8: v9 = 9: v10 = 10: v11 = 11: v12 = 12
TV = Array(v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) 'définit le tableau de variables TV
COL = 3 'initialise la colonne COL
For I = LBound(TV) To UBound(TV) 'boucle 1 : sur toutes les variables TV(I) du tableau TV
For J = 4 To 15 'boucle 2 : sur toutes les lignes J de 4 à 15
If Cells(J, COL) = "" Then 'condition : si la cellule ligne J colonne COL est vide
Cells(J, COL) = TV(I) 'renvoie la variable TV(I) dans la cellule ligne J colonne COL
COL = COL + 1 'inrémente la colonne COL
Exit For 'sort de la boucle 2
End If 'fin de la condition
Next J 'prochaine ligne de la boucle 2
Next I 'prochaine variable de la boucle 1
End Sub |
Partager