Affichage page sous condition vba

[vir42]

Bonjour à vous et merci par avance à ceux qui pourront m'aider
voila mon problème, je voudrais faire afficher une page suite à la validation des conditions vba
encore merci à vous


voila ce que j'ai créé :
Private Sub Workbook_Open()
Dim x As Double
Dim y As Double
x = InputBox("Quel type de tarif ?" & Chr(13) & "1 - TARIF NORMAL" & Chr(13) & "2 - TARIF AGENTS" & Chr(13) & "3 - TARIF AVP")
y = InputBox("Quelle qualité ?" & Chr(13) & "1 - PONGE 9 UNI" & Chr(13) & "2 - PONGE 9 UNI FP1" & Chr(13) & "3 - PONGE 9 UNI FV1")

If x = 1 And y = 1 Then
MsgBox "tarif normal Ponge 9 uni "
Que dois-je mettre pour faire afficher la page correspondante?
End If
If x = 2 And y = 1 Then
MsgBox "tarif normal ponge 9 fp1"
End If
If y = 3 Then
MsgBox "tarif normal ponge 9fv1"
If x = 2 And y = 1 Then
End If
MsgBox "tarif agents ponge9 uni"
If x = 2 And y = 2 Then
MsgBox "tarif agents ponge9 fp1"
End If
If x = 2 And y = 3 Then
MsgBox "tarif agents ponge fv1"
End If
If x = 3 And y = 1 Then
MsgBox "tarif avp ponge9 uni"
End If
If x = 3 And y = 2 Then
MsgBox "tarif avp ponge9 fp1"
End If
If x = 3 And y = 3 Then
MsgBox "tarif avp ponge9 fv1"
End If

End Sub

 

[Pierrot93]

Re : Affichage page sous condition vba

Bonjour,

essaye ceci :

Sheets("NomPage").Select

bonne journée
@+

 

[vir42]

Re : Affichage page sous condition vba

Bonjour Pierrot
merci mais ça ne marche pas, ça me met erreur compilation en me surlignant le point avant select
mais merci de l'aide quand même
bonne journée

 

[Pierrot93]

Re : Affichage page sous condition vba

Re,

bah... fonctionne chez moi... tu as bien adapté le nom de la feuille ?.... et elle existe dans le classeur en question ?

 

[vir42]

Re : Affichage page sous condition vba

Merci pierrot ca marche nikel, je viens de voir que j'avais oublié les paranthèses, erreur de débutant!!!
Bonne journée