impossible de démarrer macro sous condition

Comme je ne connais pas ton but précis, je vais te proposer autrement :

Code:

---

If Target.Address = "$B$7" And Target = "alex" Then

---

continues le reste sur ce modèle, mais c'est quoi "n.a" ?

en faite je veux changer le n.a je voulais savoir si c'est possible de faire un truc comme sa pour remplacer le "n.a"

Code:

---

1 2	ElseIf Target.Address = "$B$13" And Target = n'importe qu'elle mot.... Then MsgBox("inconnu")

---

Citation:

---

Envoyé par ric009

Merci de ta réponse voila ce que sa donne !

Code:

---

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

Private Sub Worksheet_Change(ByVal Target As Range) 'si les données sont en A If Target.Row = 7 Then If Range("B7") = "Alex" Then Macro1 MsgBox ("OK") ElseIf Range("B7") = "n.a" Then MsgBox ("désactivé") ElseIf Target.Row = 5 Then If Range("B5") > "18" Then Macro2 MsgBox ("OK2") End If End If End If End Sub

---

tous se passe bien concernant la partie "Alex" les deux cas fonctionne mais concernant l'age rien ne se passe ... j'ai mis différente valeur à plusieurs reprises mais rien s'active même pas le MsgBox ...

---

normal pour l'age les valeur numérique sont à marquer en dur sans les guillemets "18" a remplacer par 18

oui merci ! et concernant le message précedent ... s'il te plait ?

Bonjour ric009,

Il s’agit d’un défaut d’indentation et de placement de END IF.

Code:

---

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

Private Sub Worksheet_Change(ByVal Target As Range) 'si les données sont en A If Target.Row = 7 Then If Range("B7") = "Alex" Then Macro1 MsgBox ("OK") ElseIf Range("B7") = "n.a" Then MsgBox ("désactivé") End If ElseIf Target.Row = 5 Then If Range("B5") > "18" Then Macro2 MsgBox ("OK2") End If End If End Sub

---

Cordialement.