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