Renommer Onglets à partir d'une liste (avec boucle)
Résolu/Fermé
VbApadawan
Messages postés
3
Date d'inscription
samedi 27 septembre 2014
Statut
Membre
Dernière intervention
27 septembre 2014
-
27 sept. 2014 à 17:15
VbApadawan Messages postés 3 Date d'inscription samedi 27 septembre 2014 Statut Membre Dernière intervention 27 septembre 2014 - 27 sept. 2014 à 22:17
VbApadawan Messages postés 3 Date d'inscription samedi 27 septembre 2014 Statut Membre Dernière intervention 27 septembre 2014 - 27 sept. 2014 à 22:17
A voir également:
- Renommer Onglets à partir d'une liste (avec boucle)
- Liste déroulante excel - Guide
- Renommer plusieurs fichiers - Guide
- Restaurer onglets chrome - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Recherche à partir d'une image - Guide
4 réponses
VbApadawan
Messages postés
3
Date d'inscription
samedi 27 septembre 2014
Statut
Membre
Dernière intervention
27 septembre 2014
2
27 sept. 2014 à 20:53
27 sept. 2014 à 20:53
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.
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
27 sept. 2014 à 17:35
27 sept. 2014 à 17:35
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
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
27 sept. 2014 à 21:56
27 sept. 2014 à 21:56
à 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
VbApadawan
Messages postés
3
Date d'inscription
samedi 27 septembre 2014
Statut
Membre
Dernière intervention
27 septembre 2014
2
27 sept. 2014 à 22:17
27 sept. 2014 à 22:17
Merci Beaucoup Eric.