Titre onglet = cellule

[flam72]

Bonjour,

Je cherche à faire nommer des onglets en fonction d'une cellule.
J'ai trouvé des macros mais je ne sais pas les adpater à mon fichier.
Macro trouvé :
Sub NomFeuilles()
Dim i As Byte
For i = 2 To Worksheets.Count
With Worksheets(i)
If .Range("d5") = 0 Then
.Name = "Vendeur" & i
Else
.Name = .Range("d5")
End If
End With
Next
End Sub

Les données sont dans l'onglet "notation", tableau fournisseur. Les onglets "fournisseurs" sont créés et je voudrais que les noms des onglets correspondent aux noms des fournisseurs.

Je vous remercie de m'aider.

OZ

 

[Iznogood1]

Bonjour,

double clique en F20 pour générer les feuilles
Je te laisse regarder le code qui est relativement simple à comprendre

 

[flam72]

Merci pour la réponse mais
- je ne vois pas le code source (pas trouvé en tout cas)
- j'ai changé un nom, pour voir, et ça a créé un autre onglet au lieu de renommer et ça a laissé l'ancien.

Peux-tu arranger ça stp ?

Merci

 

[flam72]

Merci pour la réponse mais
- je ne vois pas le code source (pas trouvé en tout cas)
- j'ai changé un nom, pour voir, et ça a créé un autre onglet au lieu de renommer et ça a laissé l'ancien.

Peux-tu arranger ça stp ?

Merci

 

[flam72]

C'est bon , j'ai trouvé le code

 

[flam72]

Bonjour,

double clique en F20 pour générer les feuilles
Je te laisse regarder le code qui est relativement simple à comprendre

Comment tu as fait pour qu'en cliquant 2 fois, ça réalise la commande ?
Je n'arrive pas à le reproduire sur le fichier d'origine.

Merci

 

[flam72]

A force de chercher, j'ai fini par trouver
Un grand merci à toi.

 

[flam72]

Comment tu as fait pour qu'en cliquant 2 fois, ça réalise la commande ?
Je n'arrive pas à le reproduire sur le fichier d'origine.

Merci

Bonjour,

double clique en F20 pour générer les feuilles
Je te laisse regarder le code qui est relativement simple à comprendre

A force de chercher, j'ai fini par trouver
Un grand merci à toi.

 

[Iznogood1]

C'est comme ça que j'ai appris.
En essayant, en ne comprenant rien, puis à force on finit par y arriver
Bon courage