Incrémentation

Résolu
Patoche777 Messages postés 8 Statut Membre -  
Patoche777 Messages postés 8 Statut Membre -
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

1 réponse

Réponse 1 / 1
f894009 Messages postés 17413 Statut Membre 1 715
 
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
0
Patoche777 Messages postés 8 Statut Membre
 
Bonjour,

Je désire vraiment sélectionner la cellule de départ, mais je suis curieux pourquoi Activecell serait risqué ?

Merci
0
f894009 Messages postés 17413 Statut Membre 1 715 > Patoche777 Messages postés 8 Statut Membre
 
Bonjour,

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
0
Patoche777 Messages postés 8 Statut Membre > f894009 Messages postés 17413 Statut Membre
 
Effectivement, merci
0

Discussions similaires

recopier une formule sans décalage
aziz_alg80 -
aziz_alg80 -

2 réponses
Recopier sans incrémenter tous les chiffres
plingx -
plingx -

2 réponses
copier des formules à l' identique .
Fonteclose -
Fonteclose -

2 réponses
EXCEL recopier des formules sans incrémenter
jojo-isa-87 -
Raymond PENTIER -

3 réponses
Copier sans incrémenter et sans conserver le format
Sharingan -
Sharingan -

3 réponses