Renommer Onglets à partir d'une liste (avec boucle)
Résolu
VbApadawan
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
VbApadawan Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
VbApadawan Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
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 !
A voir également:
- Renommer Onglets à partir d'une liste (avec boucle)
- Liste déroulante excel - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Renommer des fichiers en masse - Guide
- Comment faire une recherche à partir d'une photo - Guide
- Renommer iphone - Guide
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.
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 :
eric
essaie avec :
For i = 3 To Worksheets.Count
Worksheets(i).Name = Worksheets("BDD").Cells(i-2, 6).Value
Next i
eric
