Boucle

[Temjeh]

Rebonjour et merci(désolé d'abusé)

Je ne trouve plus dans ma base de code comment écrire "si la phrase commence par une certaine valeur ou est cette valeur alors supprime ligne:

For i = 40 to 1 step -1
If mot commence par "test" then
Range("A" & i).Delete Shift:=xlUp
End if
Next i


Merci

Temjeh

 

[Pierrot93]

Re : Boucle

Re

peut être avec l'opérateur "like" :

If Range("A1").Value Like "test[COLOR="Red"][B]*[/B][/COLOR]" Then

@+

Edition : re Jean-Marcel

 

[Staple1600]

Re : Boucle

Bonjour Temeh, jeanmarcel

Une autre approche

Sub test()
For i = 40 To 1 Step -1
If Cells(i, "A") Like "*test*" Then
Rows(i).Delete
End If
Next i
End Sub

EDITION: Houps Bonjour Bing! Pierrot93 😉

 

[Temjeh]

Re : Boucle

Parfait

Merci beaucoup

Temjeh