Discussion :

[pascalcom]

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

[Philippe Tulliez]

Bonjour,
L'erreur 1004 à l'instruction Range("H3") = NOMONGLET provient sans doute du fait que la cellule H3 présente dans la feuille où se trouve la procédure événementielle est verrouillée et la feuille protégée.

Si vous souhaitez écrire le nouveau nom de cette feuille, dans une cellule de la feuille nommée Menu, ce n'est évidemment pas la bonne syntaxe car Range("H3") est la cellule de la feuille où se trouve la procédure événementielle et pas celle de la feuille MENU et ce même si vous activez la feuille MENU

Il faut toujours préciser le parent d'une cellule et les méthodes Select et Activate sont à proscrire

Code modifié mais pas parfait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
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
     Worksheets("Menu").Range("D1") = NOMONGLET
  End If
End Sub

Voici un code plus propre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .Address = "$B$1" Then
       Me.Name = .Value
       Worksheets("Menu").Range("H3") = .Value
    End If
 End With
End Sub

Je remplacerais également Worksheets("Menu") par son CodeName

A lire éventuellement mes billets sur le sujet

• Excel VBA La parentalité d’un objet
• VBA – CodeName d’une feuille Excel

[pascalcom]

Bonjour,
Merci beaucoup, mais j'ai du mal avec "les objets", "methode", "select", "active", ... J'arrive à faire des programmes relativement élaborés (dans sa fonction) mais qui à la lecture devraient faire hérisser les cheveux de beaucoup d'entre vous.
Je crois avoir compris l'usage des variables et des boucles For, If Case par contre parfois perdu dans l'appel des données. (souvent j'utilise l'enregistrement pour m'en sortir surtout pour les tris et filtres ce qui, à la lecture du code fait un peu "tache", en alourdissant le déroulement du programme (on le voit bien avec l'exemple précédent et cela "m'impressionne" de voir avec quelle facilité et simplicité vous le faite).
Encore merci pour l'aide et pour les liens de référence sur lesquels je vais m'appuyer.

Bonne journée sous le soleil de Bretagne

Pascal