Apparition d'un message box

Bonjour,


Etant novice, est-il possible de faire apparaître un message à l'écran lorsqu'une personne coche une case bien particulière ?

Exemple :

Si des personnes cochent des cases présentes dans la colonne G20 à G28, je voudrai faire apparaître le message suivant dans un messagebox : "vous avez sélectionné 'A améliorer', merci d'indiquer un commentaire".

Si des personnes cochent des cases présentes dans la colonne H20 à H28, le message sera : "vous avez sélectionné 'Insatisfait, déçu', merci d'indiquer un commentaire".

Ci-joint le fichier.

Merci pour votre aide.

Bonjour et bienvenue sur le Forum

je n'ai pas regardé ton fichier mais ça devrait ressembler à ça

à mettre dans le code événementiel de la feuille

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("G20:G28")) Is Nothing Then If Target <> "" Then MsgBox "vous avez sélectionné 'A améliorer', merci d'indiquer un commentaire" ElseIf Not Intersect(Target, Range("H20:H28")) Is Nothing Then If Target <> "" Then MsgBox "vous avez sélectionné 'Insatisfait, déçu', merci d'indiquer un commentaire" End If End Sub

---

Bonjour Zyhack et tout d'abord merci pour ta réponse.

En fait et après recherche, j'ai trouvé un code qui est encore plus simple (enfin pour moi) car étant débutant je n'ai pas trop voulu me compliquer la tâche :mouarf:.

Voici ce que j'ai pu trouver :

clique droit sur chaque case à cocher de la colonne G
-> Affecter une macro

Et le code est

Code:

---

1 2 3

Sub ColonneG() MsgBox "vous avez sélectionné 'A améliorer', merci d'indiquer un commentaire", vbInformation, "ATTENTION ..." End Sub

---

Même chose pour la colonne H mais avec un code différend

Code:

Code:

---

1 2 3

Sub ColonneH() MsgBox "vous avez sélectionné 'Insatisfait, déçu', merci d'indiquer un commentaire", vbInformation, "ATTENTION ..." End Sub

---

Voilà c'est tout aussi simple mais il fallait y penser.

Cordialement.