Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Renommer plusieurs onglets suivant liste alimentée sur colonne A

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

youssra07

XLDnaute Nouveau
Bonjour,

je débute sur vba et suis aujourd'hui complémentèrent bloquée avec une macro.

J'ai besoin de renommer les onglets de mes feuilles dupliquées.

Je sais que nous pouvons très bien faire les 2 à la fois mais je préfère débuter en douceur ;-)

Y'aurait-il une âme charitable pour me trouver la solution?

ma marco:


Sub renommer_onglets()

Dim num As Integer

For num = 2 To 6

Worksheets(num).Name = Worksheets("Agence").Cells(num, 1).Value

Next num

End Sub

malheureusement, elle ne fonctionne que pour les 5 premiere lignes maisje doisy rajouter d'autres comment faire ? please.


mercià la commuauté
 

Pièces jointes

Bonsoir Youssra,
Il ne fait que ce que vous lui demandez :
VB:
For num = 2 To 6
Il ne renomme que les feuilles de 2 à 6 soit 5 feuilles.
Si vous mettez :
VB:
For num = 2 To 11
Il renommera les 10 feuilles.
Ensuite dans votre liste en colonne A, vous ne pouvez pas avoir deux fois le même nom ( il y a plusieurs "k" ) car deux feuilles ne peuvent pas être appelés de façon identique.
 


Merci bcp Sylvanu pour tes annotations.
j'ai remodifier par:

for num=2 to 30

et voici ce je vois comme message d'erreur

y'a t -il un moyen de ne pas avoir ce message ?
j'ai besoin qu'excel me renomme uniquement le nbre de feuilles dupliquées

C-a-d 14 feuilles dupliquées = 14 feuilles renommées

je désespère....
 

Pièces jointes

  • CaptureVBA.JPG
    128.1 KB · Affichages: 12
Il vous dit qu'il existe déjà une feuille portant ce nom.
Après ça dépend de ce que vous voulez faire.
Peut être est il possible de faire ceci :
VB:
Sub renommer_onglets()
Dim num As Integer
For num = 2 To 30
    Worksheets(num).Name = "F" & num
Next num
For num = 2 To 30
    Worksheets(num).Name = Worksheets("Agence").Cells(num, 1).Value
Next num
End Sub
On "dénomme" toutes les feuilles avec F2,F3 ... F30 de cette façon aucune feuille n'a de nom déjà attribué, puis on les renomme avec la liste en colonne A.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…