Discussion :

[casefayere]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[ric009]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Daranc]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ric009]

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

[gFZT82]

Bonjour ric009,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.