Bonjour
Je débute dans les macros et j'ai un petit soucis avec un code.
Je souhaiterais lorsque je lance la macro:
Si la cellule A1 est Fausse alors il me lance la msgbox "souhaitez-vous passer en 2014?"
après avec le choix oui ou non
Si la cellule A1 est vrai alors il me lance la msgbox "souhaitez-vous revenir en 2015?"
également avec le choix oui ou non.
J'ai fait un code
Le problème c'est qu'il m'affiche les 2 msgbox et non l'un ou l'autre.
J'espère avoir été explicite.
En espérant que quelqu'un pourra m'aider et m'expliquer mon erreur.
Je débute dans les macros et j'ai un petit soucis avec un code.
Je souhaiterais lorsque je lance la macro:
Si la cellule A1 est Fausse alors il me lance la msgbox "souhaitez-vous passer en 2014?"
après avec le choix oui ou non
Si la cellule A1 est vrai alors il me lance la msgbox "souhaitez-vous revenir en 2015?"
également avec le choix oui ou non.
J'ai fait un code
Code:
Sub annee()
Dim vMessage1 As String
Dim vMessage2 As String
Dim vStyle As Integer
Dim vChoix1 As Integer
Dim vChoix2 As Integer
vMessage1 = "souhaitez-vous passer en 2014?"
vMessage2 = "souhaitez-vous revenir en 2015?"
vStyle = vbYesNo
vChoix1 = MsgBox(vMessage1, vStyle)
vChoix2 = MsgBox(vMessage2, vStyle)
If Feuil2.Range("A1") = False Then
If vChoix1 = vbYes Then
Feuil2.Range("A1") = True
Else
Feuil2.Range("A1") = False
End If
Else
If vChoix2 = vbYes Then
Feuil2.Range("A1") = False
Else
Feuil2.Range("A1") = True
End If
End If
End Sub
Le problème c'est qu'il m'affiche les 2 msgbox et non l'un ou l'autre.
J'espère avoir été explicite.
En espérant que quelqu'un pourra m'aider et m'expliquer mon erreur.