Renommer Onglets à partir d'une liste (avec boucle)
Résolu
VbApadawan
Messages postés
3
Statut
Membre
-
VbApadawan Messages postés 3 Statut Membre -
VbApadawan Messages postés 3 Statut Membre -
Bonjour,
Je débute...
Mon objectif:
A partir d'une liste située en colonne F de l'onglet (BDD), je cherche à renommer tous onglets du fichier (hormis les 2 premiers que je ne renomme pas).
Je ne parviens pas à les renommer avec une boucle.
Mon code est le suivant (merci de ne pas se moquer):
Dim sY As Integer
Dim I As Long
Dim TitreOnglet As String
TitreOnglet = Worksheets("BDD").Cells(I, 6).Value
For sY = 3 To Worksheets.Count
ActiveSheet.Name = TitreOnglet
Next sY
Merci pour vos suggestions ...avisées !
Je débute...
Mon objectif:
A partir d'une liste située en colonne F de l'onglet (BDD), je cherche à renommer tous onglets du fichier (hormis les 2 premiers que je ne renomme pas).
Je ne parviens pas à les renommer avec une boucle.
Mon code est le suivant (merci de ne pas se moquer):
Dim sY As Integer
Dim I As Long
Dim TitreOnglet As String
TitreOnglet = Worksheets("BDD").Cells(I, 6).Value
For sY = 3 To Worksheets.Count
ActiveSheet.Name = TitreOnglet
Next sY
Merci pour vos suggestions ...avisées !
4 réponses
-
OK ça marche, merci Eric!
Puis-je ajouter une condition supplémentaire ?
cette condition serait:
Je renomme les onglets (de 3 à Worksheets.count) que si en Colonne A du 1er onglet appelé "BDD", il y a une croix: "X".
Cette croix serait donc en début de ligne, ligne dans laquelle se trouve en 6ème colonne le titre qu'on donnerait à l'onglet (comme ton code l'établit)
Si pas de croix, on ne fait rien.
Merci par avance si vous avez une solution. -
Bonjour,
essaie avec :For i = 3 To Worksheets.Count Worksheets(i).Name = Worksheets("BDD").Cells(i-2, 6).Value Next i
eric
-
à tester :
With Worksheets("BDD") For i = 3 To Worksheets.Count if lcase(.Cells(i-2, "A"))="x" then Worksheets(i).Name = .Cells(i-2, "F").Value Next i end with
-
