Discussion :

[quinault]

Bonjour à tous
Je n'arrive pas à incrémenter la lecture de mes cellules pour créer plusiseurs nouvelles feuilles avec ce nom
je m'explique en a1 j'ai nom1 en a2 j'ai nom 2 etc.. et je voudrais créer à partir de la une feuille qui se nomme nom1 une feuille nom 2 etc
voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim Nom As String
Dim Cpt As Integer
 
Sub ren_feuille()
Sheets("feuil1").Activate
Cpt = 1
Nom = Cells(Cpt, "a").Value
Cpt = Cpt + 1
Sheets.Add.Name = Nom
 
End Sub

merci d'avance pour vos suggestions

[jfontaine]

Bonjour,

Si tu dois faire une action sur x lignes, il te faut mettre l'action dans une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim i As Long
Dim sh As Worksheet
 
'Pour chaque ligne
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    'Création de la nouvelle feuille
    Set sh = ThisWorkbook.Worksheets.Add()
    'Mise à jour du nom de la feuille créée
    sh.Name = Range("A" & i).Value
Next i