action quand msgbox se ferme ou quand bouton ok appuyer

[vmatthieu]

bonsoir à tous et encore merci de votre aide
par un select case je génère diiférentes msgbox qui m'avertissent selon les valeurs de la cellule active(différentes msgbox avec différents message)
Case 1 To 6
msgbox "attention au chien"
Case 7 To 7
msgbox "attention au chat"

je cherche à effectuer une action (offset), toujours la même, à la fermeture de la msgbox (ou au click du bouton ok mais je pense que ça revient au même) et ce peut importe la msgbox qui est fermée.
un code du genre:
quand msg box se ferme (n'importe laquelle) alors activecell.offset(1,1).activate

merci d'avance
et bonne soirée

 

[Grand Chaman Excel]

Re : action quand msgbox se ferme ou quand bouton ok appuyer

Bonjour vmatthieu,

Si j'ai bien compris , tout simplement en ajoutant ceci après la commande End Select:

Select Case XXXXXXX
    Case 1 To 6
    MsgBox "attention au chien"
    Case 7 To 7
    MsgBox "attention au chat"
End Select
ActiveCell.Offset(1, 1).Select

A+

 

[vmatthieu]

Re : action quand msgbox se ferme ou quand bouton ok appuyer

hum,hum un peu confus parce que tellement simple que pas testé.
toutes mes excuses (mais je suis loin du niveau de grand chaman ....)
merci beaucoup
bonne soiré

 

[TempusFugit]

Re : action quand msgbox se ferme ou quand bouton ok appuyer

Bonjour


Une autre possibilité qui s'affranchit du Select Case.

Sub Test()
With ActiveCell
    MsgBox "attention " & Switch(.Value > 0 And .Value <= 6, "au chien", .Value = 7, "au chat")
    .Offset(1, 1).Select
End With
End Sub

 

[vmatthieu]

Re : action quand msgbox se ferme ou quand bouton ok appuyer

bonsoir,
merci de cette réponse
bonne soirée