Bonjour,
Je souhaite que lors d'une saisie, le nom de l'onglet change (ce qui est le cas) puis que le nom soit inscrit sur la feuille "MENU" (j'ai placé un "msgbox" pour vérifier si la macro est bien retenue (ce qui est le cas).
L'erreur ( exécution 1004) se situe sur la ligne Range("H3") = NOMONGLET.
J'ai placé le code dans la page où nom de l'onglet doit changer automatiquement.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
    If Target.Address = "$B$1" Then
    ActiveSheet.Name = ActiveSheet.Range("B1")
 
Dim NOMONGLET As String
NOMONGLET = Range("B1")
MsgBox NOMONGLET
Sheets("MENU").Select
Range("H3") = NOMONGLET
 
    End If
 
End Sub
Auriez vous une idée d'où vient l'erreur?

Merci à vous
Pascal