Bonjour, je cherche à mettre "X" dans colonne B si dans les cellules de la colonne A il y a le mot "lui"
Sub RRREEECCC()
Dim derlig, i, Rec
derlig = Range("A65000").End(xlUp).Row
Worksheets("Feuil1").Select
For i = 2 To derlig
Rec = "*" & "lui" & "*"
If InStrRev(Cells(i, 1), Rec, 1, 1) <> 0 Then
Worksheets("Feuil1").Cells(i, 2) = "X"
End If
next i
end sub
Ca marche pas !!!!!!!
Quelqu'un aurit-il une idée ?
Cordialement
Hidozo
Sub RRREEECCC()
Dim derlig, i, Rec
derlig = Range("A65000").End(xlUp).Row
Worksheets("Feuil1").Select
For i = 2 To derlig
Rec = "*" & "lui" & "*"
If InStrRev(Cells(i, 1), Rec, 1, 1) <> 0 Then
Worksheets("Feuil1").Cells(i, 2) = "X"
End If
next i
end sub
Ca marche pas !!!!!!!
Quelqu'un aurit-il une idée ?
Cordialement
Hidozo