Discussion :

[tiesto08]

slt
j'ai un tableau excel
voici mon code:

Code :

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

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

[mercatog]

Utilise Target

Code :

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

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

[tiesto08]

salut
je vous remercie infiniment