T
Titou
Guest
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
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