Boucle For et If

[duninpohja]

Bonjour a tous,
si je viens solliciter votre aide c'est qu apres de nombreuses heures de recherches de d'essais je n'arrive toujours pas á écrire les lignes de codes qu'il me faut opur obtenir le resultat que je recherche.
Pourtant ce que je voudrais faire est tout simple:
En fait j'aimerais savoir comment ecrire:
Je veux qu excel balaye toute une colonne et que des qu il ne trouve pas un mot il efface la ligne.
Voila le code que j ai ecrit et si quelqu un aurait la gentillesse de m aider je lui en serai extremement reconnaissant:

1er essai:

Sub effacelignes()

Columns("A:A").Select
Range("A6").Select
Do Until ActiveCell <> "s2d3e"
Rows.Select
Selection.Delete Shift:=xlUp

ActiveCell.Offset(5, -4).Select
Loop


End Sub

2eme tentative:

Sub effligne()

Dim x As Integer
For x = 6 To 300
If Not Cells(x, 1) = "s2d3e" Then
Rows.Select
Selection.Delete Shift:=xlUp



End If
Next x

End Sub

Les deux sont infructueuses, il m efface tout mon tableaux.
Je vous remercie par avance

 

[laetitia90]

Re : Boucle For et If

bonjour duninpohja🙂
essai comme cela

Sub effligne()
Dim x As Long
Application.ScreenUpdating = False
For x = 300 To 6 Step -1
If Cells(x, 1) <> "s2d3e" Then Rows(x).Delete
Next x
End Sub

 

[duninpohja]

Re : Boucle For et If

Super cést parfait
Merci beaucoup

Bonne fin de journée