Incrémentation

Résolu

Patoche777 Messages postés 8 Statut Membre -
Patoche777 Messages postés 8 Statut Membre - 22 mars 2016 à 19:26

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

Afficher la suite

1 réponse

Réponse 1 / 1
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
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
1. 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
  1. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717 > 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
  2. Patoche777 Messages postés 8 Statut Membre > f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention
    
    Effectivement, merci
    
    0

Incrémentation

1 réponse

Discussions similaires

Newsletters