[EXCEL] Renommer feuille +1 Résolu

Question

Bonjour à toutes et tous, 

j'explique mon problème, je suis débutant, j'ai un classeur avec actuellement deux feuilles : recapitulatif et 0.
Dans recapitulatif j'ai un bouton "Nouveau" qui me copie la feuille "0". J'aimerais à ce moment, renomer la feuille qui est "0 (2)" en "1". Pour l'instant, j'ai un bout de code qui marche, cependant lorsque je refais la manip' "Nouveau", il y a erreur, normal étant donné que "1" existe déjà.

Y a t il une commande pour utiliser un moyen de renommer les feuilles en ajoutant +1 (de manière à avoir 1,2,3,4,5,....) ??

merci

Code actuel :

Private Sub CommandButton1_Click()
'Sélectionne la feuille 0 (vierge) et la copie
    Sheets("0").Select
    Sheets("0").Copy Before:=Sheets(1)
'Sélectionne la feuille copiée (0 (2)) et la renomme
    Sheets("0 (2)").Select
    Sheets("0 (2)").Name = "1"
    
End Sub

eriiic · Accepted Answer

Bonjour,

Bases-toi sur le nombre de feuilles (.count)

Private Sub CommandButton1_Click()
    'Sélectionne la feuille 0 (vierge) et la copie
    Sheets("0").Copy Before:=Sheets(1)
    ActiveSheet.Name = Worksheets.Count - 2
End Sub

eric

J0K0 · Answer

Hey !!

merci pour cette réponse matinale !!! J'avais testé plusieurs codes trouvés sur le net, j'avais chaque fois des erreurs. Le tient marche à merveille !

M E R C I

J0K0

[EXCEL] Renommer feuille +1

2 réponses

Votre réponse

Discussions similaires

Newsletters