Renommer un onglet avec un mot dans une autre feuille

Re : Renommer un onglet avec un mot dans une autre feuille

Bonjour,

Un range est un objet qui fait référence à une cellule ou à une plage.

Et ce n'est pas :
If Not Intersect(Target, Range("B13")) Is Nothing
qui produit l'erreur, mais :
If Intersect(Target, Range("B13")) Is Nothing Then Feuil1.Name = Target
plus particulièrement : Feuil1.Name = Target

Il faut aussi lire le libellé de l'erreur : 'Nom non valide'
Si target est vide ou contient un caractère interdit pour les noms des feuilles tu as cette erreur.
Si tu juges nécessaire d'alerter l'utilisateur il faut traiter l'erreur avec un On Error Goto (recherche les tutos sur la gestion d'erreur) et éventuellement arrêter le traitement. Si c'est normal que ça arrive et que ça ne gène pas le déroulement du programme tu laisses le Resume Next.
Tu peux aussi agir en amont et contrôler le contenu, la taille de target et ne traiter que si tout est conforme.

eric

Re : Renommer un onglet avec un mot dans une autre feuille

Bonjour à tous

J'ai l'impression que si on avait eu un fichier dès le début, on n'en serait pas la . En plus, avec un débutant .

Re : Renommer un onglet avec un mot dans une autre feuille

Merci Double Zéro, ton code marche à merveille, j'avais vraiment perdu espoir que cela était possible, merci mille fois!