code vba worcksheet

Version imprimable

code vba worcksheet

slt
j'ai un tableau excel
voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("c2")) Is Nothing Then If Range("c2") = "non" Then Range("n2") = "a recouvrir" Else If Range("c2") = "oui" Then Range("n2") = "restitution" End If End If End If End Sub
le code fonctionne normal mais pas sur toutes la colonne de "c" et "n" ça fonctionne juste sur la deuxième ligne "c2" et "n2"
j'aimerai bien qu'il foctionne sur toute la plage boucle et je n'arrive pas. aidez moi svp
merci

Utilise Target

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Column = 3 And Target.Row > 1 Then
    If Target = "non" Then
        Target.Offset(, 11) = "a recouvrir"
    ElseIf Target = "oui" Then
        Target.Offset(, 11) = "restitution"
    Else
        Target.Offset(, 11) = ""
    End If
End If
End Sub

01/03/2017, 19h16
tiesto08

salut
je vous remercie infiniment