Erreur formule

Bonjour,

Mon code pour nommer ma feuille automatiquement marche parfaitement sur un classeur test.

Quand je souhaite l'appliquer à mon classeur de travail ce code ne fonctionne pas??

ActiveSheet.Nam = Cells (2, 2).Value est surligné en jaune, quelqu'un a une idée?

Je ne peuxpas poster mon document qui est trop sensible désolé

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Name = Cells(2, 2).Value
End Sub

Bonjour

Vérifies

Que ta cellule B2 contienne un nom

Que ce nom ne comporte pas des caractères interdits( /\?*[] )

Qu'une page ne comporte pas déjà ce nom

Si toujours erreur : Notes le message d'erreur

Bonjour Banzaï,

J'ai réussi à faire fonctionner mon code, comment je sais pas..

J'ai du faire une erreur stupide hier..

Petite question, mon onglet prend bien la valeur de la cellule (2, 2) mais pas instantanement, je suis obligé de cliquer sur la feuille pour qu'elle prenne anfin la valeur.

Peut-on modifier le code pour que ce soit instantané?

Pas que ce soit dérrangeant, mais je suis un peu perfectionniste dans l'âme..

Merci

Bonjour

Comment arrive la valeur dans ta cellule B2 ?

Si c'est par formule voir par la source de la formule

Voir aussi avec l'évènement activate

Voir aussi avec ton fichier

Je sens l'usine à gaz..

La valeur arrive via un userform qui récupères les valeurs dans un fichier qui se situe dans le même répertoire.

On m'a toujours dis que c'étatit un défaut d'être perfectionniste....

Je vais laisser comme ça, de toute façon je serais ammené à cliquer sur la feuille.

Merci

Bonjour

JeremyW a écrit :

La valeur arrive via un userform

C'est à ce moment là qu'il faut modifier le nom

Je vais essayer de voir si j'arrive à le faire.

Je viens cependant de voir que j'avais un autre soucis..

Si ma cellule (2, 2) est vide je ne peux rien faire sur ma feuille, dès que je clique j'ai un message d'erreur.

J'ai essayé de rajouter un bout à mon code pour supprimer le message d'erreur

On Error Resume Next

Mais ca ne fonctionne pas..

Bonjour

Il faut placer On Error Resume Next avant l'instruction qui peut causer problème

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  On Error Resume Next
  ActiveSheet.Name = Cells(2, 2).Value
End Sub

Effectivement dans ce sens ça marche...

Merci