Comment rendre faire? [Résolu]

Signaler
Messages postés
19
Date d'inscription
mercredi 25 août 2010
Statut
Membre
Dernière intervention
6 octobre 2010
-
Messages postés
31553
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
3 mars 2021
-
Salut a tous
s'il vous plaît aidez moi .Je suis novice en VBA.
j'ai ecris une macro qui me permet de renommer les feuilles d'un classeur. Il renomme bien la premiere feuille mais ne passe pas a la feuille suivante. De plus, la feuille suivante est une copie de la precedente. voici le code:

Sub renommerfeuille()
Dim i As Integer
Dim nom As String
i = 4
If i >= 4 Then
nom = InputBox("Entrez le nom de la feuille")
If nom = "" Then
Exit Sub
End If
Worksheets(i).name = nom
i = i + 1
End If
End Sub
Que faire? merci Damien001

2 réponses

Messages postés
31553
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
3 mars 2021
344
Bonjour,

tu dois utiliser une boucle FOR / NEXT pour paracourir tes feuilles
Une boucle Do / LOOP pour attendre qu'un nom soit saisie dans l'inputbox.

Sub renome_Feuille()
'nombre de feuilles dans le classeur
    NbFeuille = ActiveWorkbook.Sheets.Count

For i = 1 To NbFeuille 'boucle sur les feuilles
   ' boucle sur la demande du nom tant que vide
    Do While nom = ""
         nom = InputBox("Entrez le nom de la feuille")
    Loop
    ' renomage de la feuille
    Worksheets(i).Name = nom
Next

End Sub


Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI
Messages postés
31553
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
3 mars 2021
344
Bonjour,
Petit correctif :
Pour ne commencer qu'à partir de la feuille 4... tu dois modifier le
For i= 1 to Nbbeuille en
For i = 4 to Nb Feuille


Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI