Mettre une valeur dans une colonne fixe en fonction d'une cellule

[gvives]

Bonjour à tous,

J'ai commencé un petit code VBA mais il ne fonctionne pas...

Private Sub worksheet_change(ByVal target As Range)
With target
If target.Row > 5 And .Cells(.Row, 7).Value > 2 Then
.Cells(.Row, 21).Value = "OK"
End If
End With
End Sub

En fait j'aimerai que si dans une ligne (qui doit être supérieure à 5) si la valeur dans la colonne 7 à cette même ligne est supérieure à 2 alors mettre à cette même ligne en colonne 21 la valeur "OK"... (et cela à chaque changement intervenu sur la feuille)...

Pourriez vous m'aiguiller

Merci à tous...

 

[Dranreb]

Re : Mettre une valeur dans une colonne fixe en fonction d'une cellule

Bonjouir.
Et comme ça, ça va mieux ? :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim L As Long: L = Target.Row
If L > 5 And Me.Cells(L, 7).Value > 2 Then Me.Cells(L, 21).Value = "OK"
End Sub

Cordialement.

Bonjour Staple.

 

[Staple1600]

Re : Mettre une valeur dans une colonne fixe en fonction d'une cellule

Bonjour


Si j'ai bien compris essaies ceci

Private Sub worksheet_change(ByVal target As Range)
If target.Row > 5 Then
Cells(target.Row, 21) = IIf(Cells(target.Row, 7) > 2, "Ok", vbNullString)
End If
End Sub

EDITION: Bonjour Dranreb

 

[gvives]

Re : Mettre une valeur dans une colonne fixe en fonction d'une cellule

C'est parfait !!! Merci beaucoup à vous deux

Je peux continuer à travailler maintenant...

Bon dimanche à vous