Incrémentation

Résolu/Fermé

Patoche777 Messages postés 7 Date d'inscription lundi 21 mars 2016 Statut Membre Dernière intervention 17 septembre 2017 - 21 mars 2016 à 01:03
Patoche777 Messages postés 7 Date d'inscription lundi 21 mars 2016 Statut Membre Dernière intervention 17 septembre 2017 - 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
Renommer plusieurs fichiers incrémentation - Guide
Excel copier formule sans incrémentation - Forum Excel
Excel copier formule avec incrémentation ✓ - Forum Excel
Copier sans incrémenter et sans conserver le format ✓ - Forum Excel
Changer le pas d'incrémentation excel - Forum Excel

1 réponse

Réponse 1 / 1

f894009 Messages postés 17190 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 mai 2024 1 705
21 mars 2016 à 08:08

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 lundi 21 mars 2016 Statut Membre Dernière intervention 17 septembre 2017
22 mars 2016 à 18:29

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 17190 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 mai 2024 1 705 > Patoche777 Messages postés 7 Date d'inscription lundi 21 mars 2016 Statut Membre Dernière intervention 17 septembre 2017
Modifié par f894009 le 22/03/2016 à 18:49

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 lundi 21 mars 2016 Statut Membre Dernière intervention 17 septembre 2017 > f894009 Messages postés 17190 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 mai 2024
22 mars 2016 à 19:26

Effectivement, merci

Discussions similaires

recopier une formule sans décalage

Recopier sans incrémenter tous les chiffres

[EXCEL] Numéro automatique VBA

copier des formules à l' identique .

réactiver l'incrémentation automatique du contenu d'une cellule en faisant gliss

Discussions similaires

Newsletters