Afficher un MsgBOX si la valeur d’’une cellule est différentes des conditions avec Target.Address

Bonjour à tous
J’utilise la commande Target.Address et en fonction de la valeur rentrée dans une cellule, je déclenche différentes macros.
La macro fonctionne très bien mais je souhaiterai si la valeur ne fait pas partie des différente conditions, afficher une MsgBox avec un commentaire…..et là je bloque.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("A1").Address Then Exit Sub End If If Range("C48") = "A" Then Call MacroA If Range("C48") = "B" Then Call MacroB If Range("C48") = "C" Then Call MacroC If Range("C48") = "D" Then Call MacroD End Sub

---

Bonjour
Ajouter une condition.

Code:

---

1 2 3

If Range("C48") = "D" Then Call MacroD If Range("C48") <> "D" and Range("C48") <> "C" .......Then MSGbox "yaplusqu'a " End Sub

---

ou alors

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("A1").Address Then Exit Sub   If Range("C48") = "A" Then Call MacroA Else If Range("C48") = "B" Then Call MacroB Else If Range("C48") = "C" Then Call MacroC Else If Range("C48") = "D" Then Call MacroD Else MsgBox "yaplusqu'a " End If End If End If End If End Sub

---

Salut

Tu devrais développer un peu plus pour que l'on comprenne l'ensemble du problème, il y a peut-être d'autres solutions que nous pouvons te proposer.

Sinon voila 2 façons de faire ce que tu demandes

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then If Range("C48") = "A" Then MacroA ElseIf Range("C48") = "B" Then MacroB ElseIf Range("C48") = "C" Then MacroC ElseIf Range("C48") = "D" Then MacroD Else MsgBox "Le message à faire passer", vbOKOnly, "Le Titre du message" End Sub End If     Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Select Case Range("C48") Case "A": MacroA Case "B": MacroB Case "C": MacroC Case "D": MacroD Case Else: MsgBox "Le message à faire passer", vbOKOnly, "Le Titre du message" End Select End If End Sub

---

++
Qwaz

Bonsoir,

Dans mon programme, la valeur de cellule C48 est calculé.
En fonction de cette valeur, je lance une macro. Ci une nouvelle valeur apparait, je dois créer une nouvelle macro et en attendant de créer cette macro, je veux lancer un message d'alerte du genre " Attention le programme ne prend pas en compte cette valeur, veuillez attendre la mise à jour"....
Au maxi j'aurai une quinzaine de valeurs différentes.
Je vais tester le code proposé par keygen08.

Merci de votre aide

Salut

J'ai bien peur que ça ne fonctionne pas.
L'événement OnChange des cellules n'est pas provoqué lorsque la valeur d'une cellule liée à une formule change (le contenu de la cellule étant la formule, celle-ci ne change pas et ne provoque donc pas d'événement Change).

Renseignes toi sur la "Validation de Données", dans un 1er temps elle sera suffisante pour faire ce que tu veux je pense.

++
Qwaz

Bonsoir,

Le 2eme programme ci-joint proposé par Qwazerty fonctionne impeccablement
Testé et approuvé

Merci à tous de votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$C$48" Then Select Case Range("C48") Case "A": MacroA Case "B": MacroB Case "C": MacroC Case "D": MacroD Case Else: MsgBox "Le message à faire passer", vbOKOnly, "Le Titre du message" End Select End If End Sub

---