afficher une msgbox suivant une condition

[gillmo]

bonjour à tous les exceliens et exceliennes

ma demande du jour est la suivante: j'ai créer un fichier sur lequel je demande de choisir dans une liste entre virement chèque et espece. Si le choix est chèque, je souhaiterai que s'affiche une msgbox "veuillez saisir le numéro du chèque".

J'ai fabriquer un code dans le workbook, ce code fonctionne, mais il fonctionne uniquement si l'on excecute la macro, moi je souhaiterai qu'elle s'excecute automatiquement dès que le choix est inscrit. Je vous joins le fichier

merci à vous

 

[kjin]

Re : afficher une msgbox suivant une condition

Bonjour,
De fait, il est préférable d'utiser une macro événementielle
Dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 9 Then
    Select Case Target
    Case "Chèque"
        num = InputBox("veuillez saisir le numéro du chèque")
        If num <> 0 Then
            Target.Offset(, 1) = num
'        Else
'            Target = ""
        End If
    End Select
End If
End Sub

A+
kjin

 

[gillmo]

Re : afficher une msgbox suivant une condition

Merci à toi kjin

j'ai adapté un peu ton code mais cela fonctionne parfaitement.


problème résolu.

 

[job75]

Re : afficher une msgbox suivant une condition

Bonjour gillmo, salut kjin 🙂

Méthode du même acabit, dans le code de Feuil2 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 9 Or Target.Count > 1 Then Exit Sub
With Target.Offset(, 1)
  If Target <> "Chèque" Then .Value = "": Exit Sub
  If IsNumeric(.Value) Then Exit Sub
  MsgBox "Veuillez saisir le numéro du chèque"
  .Select
End With
End Sub

Une petite remarque : les messages, c'est comme toute bonne chose.

A consommer avec modération, les abus ça agace beaucoup les utilisateurs 😎

A+