msgbox yes no

[KyFranRD]

Bonjour
Je viens vers vous car je suis confronté à un petit soucis. Pourriez vous m'expliquer comment fonctionne un msgbox yes no? J'ai 2 macro et désire faire macro 1 pour yes et macro 2 pour no. Par contre, et c'est là que porte mon interrogation, je dois associer plusieurs conditions pour yes. Il faut que yes soit associé à activecell.value> =4501, activecell.value<=4506, activecell.offset(0, 1) = "Départ"

Voilà
Je suis Dsl, je me sers de mon téléphone portable et ne peux donc pas créer de fichier.
Merci à l'avance

 

[Gelinotte]

Re : msgbox yes no

Bonsoir,

Sub mess_03b()
'MsgBox Oui + Non
Select Case MsgBox("je me sers de mon téléphone portable ", vbYesNo, "Je ne peux donc pas créer de fichier")
    Case vbYes
        If ActiveCell.Value >= 4501 And ActiveCell.Value <= 4506 Then ActiveCell.Offset(0, 1) = "Départ"
     Case vbNo
        ActiveCell.Offset(0, 2) = "J'aurais dû prendre mon ordi 8- //"
End Select
End Sub

G

 

[mapomme]

Re : msgbox yes no

Bonsoir KyFranRD, Gelinotte,

J'avais compris que les 3 conditions devaient être vérifiées d'où (moins humoristique que Gelinotte que je salue 🙂):

Sub Test()
 If MsgBox("Voulez-vous lancer MACRO1 au lieu de macro2 ?", _
  Buttons:=vbDefaultButton1 + vbQuestion + vbYesNo) = vbNo Then
  macro2
 ElseIf ActiveCell >= 4501 And ActiveCell <= 4506 And _
  ActiveCell.Offset(0, 1) = "Départ" Then
  macro1
 End If
End Sub

 

[KyFranRD]

Re : msgbox yes no

Je te remercie gellinote mais cela ne fonctionne pas car les 3 conditions doivent être remplis, <=4506, > = 4501 et activecell.offset(0, 1) = " Départ ".
Merci à l'avance

 

[KyFranRD]

Re : msgbox yes no

Oui c'est bien cela mapomme. Bonjour
Merci bien.
Je teste cela

 

[KyFranRD]

Re : msgbox yes no

Bon ben mapomme. Je me prosterne. Ça marche nickel.
Merciiiiiiiiiiii

 

[KyFranRD]

Re : msgbox yes no

Bon ben Dsl mapomme mais en fait cela ne marche pas. En fait cela se déclenche à tout moment. Je me suis sans doute mal expliqué.

Les 3 conditions doivent être remplis pour oui, comme pour non. Donc dès que ces conditions sont réunies, une boîte de dialogue s'ouvre et demande de choisir entre oui et non. Oui macro 1 et non, macro 2. J'espère avoir été plus clair.
3 conditions, donc msgbox oui non, macro1 si oui et macro2 si non.
Merci

 

[mapomme]

Re : msgbox yes no

Bonjour KyFranRD,

Essayez ce code:

Sub Test()
If ActiveCell >= 4501 And ActiveCell <= 4506 And _
  ActiveCell.Offset(0, 1) = "Départ" Then
  If MsgBox("Voulez-vous lancer MACRO1 au lieu de macro2 ?", _
  Buttons:=vbDefaultButton1 + vbQuestion + vbYesNo) = vbNo Then _
  macro2 Else macro1
 End If
End Sub

 

[KyFranRD]

Re : msgbox yes no

OK mapomme. Merci bien.
Je teste dès que possible

 

[KyFranRD]

Re : msgbox yes no

merci mapomme

Maintenant c'est tout bon

à ++

😉