Incrémentation
Résolu
Bonjour,
La Sous-Routine suivante ne fonctionne pas bien. Lorsque je l'exécute, la cellule active ne s'incrémente pas, part conséquent, je me retrouve avec le nom de la dernière feuille de calcul dans la cellule de départ.
Sub ListerFeuille()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
ActiveCell = sh.Name
ActiveCell = ActiveCell + 1
Next
End Sub
Merci de votre aide
La Sous-Routine suivante ne fonctionne pas bien. Lorsque je l'exécute, la cellule active ne s'incrémente pas, part conséquent, je me retrouve avec le nom de la dernière feuille de calcul dans la cellule de départ.
Sub ListerFeuille()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
ActiveCell = sh.Name
ActiveCell = ActiveCell + 1
Next
End Sub
Merci de votre aide
1 réponse
-
Bonjour,
Activecell peut reserver des surprises, pourquoi pas partir d'une cellule
Sub ListerFeuille() With Worksheets("feuil1") For x = 1 To Worksheets.Count .Range("A" & x) = Worksheets(x).Name Next x End With End Sub-
-
@Patoche777Bonjour,
Activecell serait risqué ? Faut pas se tromper de cellule !!!!
Sub ListerFeuille() Worksheets("feuil1").Activate For x = 1 To Worksheets.Count ActiveCell.Offset(x - 1) = Worksheets(x).Name Next x End Sub -
@f894009Effectivement, merci
-
