Bonjour le forum,
Dans un fichier XL, lorsque j’appuie sur le bouton boucle, cela me lance une procédure qui me permet de créer autant de feuilles, qu’il y a de cellules remplies dans la colonne A et chaque feuille crée porte le nom contenu dans la colonne A.
Cependant, je souhaite pouvoir également recopier des informations contenues dans les colonnes B C D … à la ligne où la boucle se situe, je n’ay arrive pas.
----------
Voici le code lié au bouton :
Private Sub CommandButton2_Click()
Dim i As Integer
i = 1
Do Until IsEmpty(Cells(i, 1))
X = Sheets.Count
Sheets.Add after:=Sheets(X)
Sheets(X + 1).Name = Feuil1.Range("A" & i)
i = i + 1
Loop
End Sub
-----
J’espère que quelqu’un pourra m’aider.
Merci d’avance
Titou