Incrémentation

Résolu

Patoche777 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
Patoche777 Messages postés 7 Date d'inscription Statut Membre Dernière intervention - 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

A voir également:

Incrémentation
Incrémentation excel ne fonctionne pas ✓ - Forum Excel
Souci d'incrémentation automatique sur EXCEL ✓ - Forum Excel
Incrémentation automatique ne fonctionne pas - Forum Excel
Renommer plusieurs fichiers incrémentation - Guide
Incrémentation - Forum Programmation

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Patoche777 Messages postés 7 Date d'inscription Statut Membre Dernière intervention

Bonjour,

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

Merci

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > Patoche777 Messages postés 7 Date d'inscription Statut Membre Dernière intervention

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

Patoche777 Messages postés 7 Date d'inscription Statut Membre Dernière intervention > f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention

Effectivement, merci

Discussions similaires

recopier une formule sans décalage

Recopier sans incrémenter tous les chiffres

copier des formules à l' identique .

EXCEL recopier des formules sans incrémenter

Copier sans incrémenter et sans conserver le format

Votre réponse

Discussions similaires