Discussion :

[tintin69]

Bonjour,

J'ai un petit soucie, je souhaite faire dans un onglet deux commandes distincte, l'une ouvre l'onglet (exemple dans F3 je saisi "Janvier" il ouvre le mois de janvier jusque là pas de soucie.
- Mais après si je rajoute une autre commande en demandant un aperçu il ne veut pas j'ai un message d'erreur "erreur de compilation: Nom ambigu détecté : worksheet_change



MACRO DANS ONGLETS feuil1 (MENU) (si une seule pas de problème si les deux alors message erreur)

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Intersect(Range("f3"), Target) Is Nothing Then Exit Sub
 Sheets(Target.Value).Select
 
End Sub

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub
 Sheets(Target.Value).PrintPreview
 
End Sub

Pouvez-vous m'aider ? merci d'avances.

Cordialement.

[parmi]

Bonjour,

Si je comprends bien, tu répètes 2 fois la même procédure dans le même module de feuille.
Tu ne peux pas faire ça.
Tu dois mettre tes 2 conditions dans la même procédure.

[tintin69]

oui c'est ça, comment puis je résoudre ce soucie ?

[joe.levrai]

Bonjour,

comme l'as indiqué parmi :

Tu dois mettre tes 2 conditions dans la même procédure.

il faut pour cela mettre tes deux conditions dans le même test :

Code :

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

1
2
3
4
5
6
 
If Blabla then
   ' traitement du premier
ElseIf Blabla2 then
    ' traitement de la deuxième condition
End if