Bonjour,
Je cherche à lancer une macro suivant la valeur d'une cellule.
Je veux que pour toutes les cellules K de la 3ème à la dernière, si la cellule est renseignée (valeur quelconque) alors la cellule L associée soit notée "ok".
Voici mon code qui ne fonctionne pas.
Private Sub Worksheets_Change(ByVal Target As Range)
Dim i as variant
With Worksheets("suivi échantillons")
For i = 3 To 600
Target.Address = .Range("K" & i)
If Target.Value <> "" Then
.Value("L" & i) = "ok"
End If
Next
End With
End Sub
J'ai fait le tour des sujets correspondants à ma demande mais je n'arrive pas à l'adapter.
Merci d'avance.
Je cherche à lancer une macro suivant la valeur d'une cellule.
Je veux que pour toutes les cellules K de la 3ème à la dernière, si la cellule est renseignée (valeur quelconque) alors la cellule L associée soit notée "ok".
Voici mon code qui ne fonctionne pas.
Private Sub Worksheets_Change(ByVal Target As Range)
Dim i as variant
With Worksheets("suivi échantillons")
For i = 3 To 600
Target.Address = .Range("K" & i)
If Target.Value <> "" Then
.Value("L" & i) = "ok"
End If
Next
End With
End Sub
J'ai fait le tour des sujets correspondants à ma demande mais je n'arrive pas à l'adapter.
Merci d'avance.