Bonsoir à tous, et aux puits de sciences de ce FORUM
D'accord, je n'ai plus les neurones en parfait état, mais je soupçonne
qu'avec un truc du genre "For I = 1 to "La fin de ma colonne",
il doit être possible de simplifier!
Sub TEXTE_QuandClic()
LING = 2
Worksheets("Feuil1").Cells(LING, 5).Value = Cells(LING, 2) & " Ensembles de " & Cells(LING, 3) & " " & " x " & " " & Cells(LING, 4)
LING = LING + 1
Worksheets("Feuil1").Cells(LING, 5).Value = Cells(LING, 2) & " Ensembles de " & Cells(LING, 3) & " " & " x " & " " & Cells(LING, 4)
LING = LING + 1
Worksheets("Feuil1").Cells(LING, 5).Value = Cells(LING, 2) & " Ensembles de " & Cells(LING, 3) & " " & " x " & " " & Cells(LING, 4)
LING = LING + 1
Worksheets("Feuil1").Cells(LING, 5).Value = Cells(LING, 2) & " Ensembles de " & Cells(LING, 3) & " " & " x " & " " & Cells(LING, 4)
Et c.
End Sub
Récupérant le résultat dans une Zone de liste d'un USF, j'vous explique pas la tronche quand les dernières lignes des colonnes B, C ou D sont vides !!!
Comment on dit à VBA de ne rien faire quand c'est vide???
(Pour aligner les "x" dans la zone de liste, je vais bien trouver à le faire avec une condition)
Merci pour votre indulgence et votre conseil que j'espère.
Yves