Comme je ne connais pas ton but précis, je vais te proposer autrement :
continues le reste sur ce modèle, mais c'est quoi "n.a" ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part If Target.Address = "$B$7" And Target = "alex" Then
Comme je ne connais pas ton but précis, je vais te proposer autrement :
continues le reste sur ce modèle, mais c'est quoi "n.a" ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part If Target.Address = "$B$7" And Target = "alex" Then
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")
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.
Cordialement.
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager