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

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 !

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

Réponse 1 / 4

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

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.

Réponse 2 / 4

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

Bonjour,

essaie avec :

For i = 3 To Worksheets.Count 
    Worksheets(i).Name = Worksheets("BDD").Cells(i-2, 6).Value 
Next i

eric

Réponse 3 / 4

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

à 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

Réponse 4 / 4

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

Merci Beaucoup Eric.

Discussions similaires

Annuaire portable gratuit à partir d'un nom

Comment trouver un numéro à partir du nom et prénom

Mon pc s'allume et s'éteint en boucle

Trouver un numero de portable a partir d'un nom svp

Trouver un nom avec une adresse

Discussions similaires

Newsletters