carteus fabian
XLDnaute Nouveau
Messieurs, dames,
Je cherche à compléter les lignes de commande suivante afin d'avoir le résultat + un nombre qui s'incrémente le nombre de fois à copier
cela car j'utilise une liste déroulante qui se modifie au fur et à mesure que l'on choisi un résultat
si plusieurs fois la même valeur toute la liste de cette valeur est retirée en une fois de la liste déroulante restante
Sub test()
Dim Tabl()
Dim i As Long, j As Long
' on prend la colonne A et B de Feuille test
With Worksheets("Feuille test")
Tabl = .Range(.Cells(1, 1), .Cells(.Rows.Count, 2).End(xlUp)).Value
End With
' pour chaque valeur de la colonne A
For i = LBound(Tabl, 1) To UBound(Tabl, 1)
' pour un nombre de fois égale au nombre qui est en colonne B
For j = 1 To Tabl(i, 2)
With Worksheets("Feuil2")
' on écrit la valeur dans la Feuil2, en colonne A
.Cells(.Rows.Count, 3).End(xlUp)(2).Value = Tabl(i, 1)
End With
Next j
Next i
End Sub
Je cherche à compléter les lignes de commande suivante afin d'avoir le résultat + un nombre qui s'incrémente le nombre de fois à copier
cela car j'utilise une liste déroulante qui se modifie au fur et à mesure que l'on choisi un résultat
si plusieurs fois la même valeur toute la liste de cette valeur est retirée en une fois de la liste déroulante restante
Sub test()
Dim Tabl()
Dim i As Long, j As Long
' on prend la colonne A et B de Feuille test
With Worksheets("Feuille test")
Tabl = .Range(.Cells(1, 1), .Cells(.Rows.Count, 2).End(xlUp)).Value
End With
' pour chaque valeur de la colonne A
For i = LBound(Tabl, 1) To UBound(Tabl, 1)
' pour un nombre de fois égale au nombre qui est en colonne B
For j = 1 To Tabl(i, 2)
With Worksheets("Feuil2")
' on écrit la valeur dans la Feuil2, en colonne A
.Cells(.Rows.Count, 3).End(xlUp)(2).Value = Tabl(i, 1)
End With
Next j
Next i
End Sub
Dernière édition: