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
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