si "E19">0 alors "F19"=OK

[maval]

Bonjour

Je suis à la recherche d'un code VBA que:

si "E19">0 alors "F19"=OK

en sachant que sa doit fonctionner de la ligne 19 à la ligne 150.

Merci de votre aide

Maval

 

[fhoest]

Re : si "E19">0 alors "F19"=OK

Bonjour maval
ton code tu viens presque de l'écrire.

dim i as integer
for i = 19 to 150
if range("E"& i).value>0 then range("F" & i).text="OK"
next i

A+

 

[maval]

Re : si "E19">0 alors "F19"=OK

Bonjour fhoest,

Je te remercie mais j'ai un message d'erreur "Objet requis"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
For i = 19 To 150
If Range("E" & i).Value > 0 Then Range("F" & i).Text = "OK"
Next i
End Sub

Merci et bonne journée

Max

 

[fhoest]

Re : si "E19">0 alors "F19"=OK

RE,

range("F" & i).value

A essayer.

 

[maval]

Re : si "E19">0 alors "F19"=OK

Re,

Nickel je te remercie et te souhaite une bonne journée

@+
Max