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

[youssra07]

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é

 

[sylvanu]

Bonsoir Youssra,
Il ne fait que ce que vous lui demandez :

For num = 2 To 6

Il ne renomme que les feuilles de 2 à 6 soit 5 feuilles.
Si vous mettez :

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.

 

[youssra07]

Bonsoir Youssra,
Il ne fait que ce que vous lui demandez :

For num = 2 To 6

Il ne renomme que les feuilles de 2 à 6 soit 5 feuilles.
Si vous mettez :

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....

 

[sylvanu]

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 :

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.

 

[youssra07]

Mille mercis je vais faire comme ça pour débuter.