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
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Comment trouver un numéro à partir du nom et prénom ✓ - Forum Mobile
- Trouver un numero de portable a partir d'un nom svp - Forum Internet / Réseaux sociaux
- 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
24509
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
10 mars 2023
7 166
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
24509
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
10 mars 2023
7 166
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.