Bonjour,
J'essaye de faire un code pour rechercher ligne par ligne, le mot "azerty", si le mot est présent alors je veux supprimer la ligne: voici mon code:
le problème c'est que sa supprime la ligne dans tous les cas.
J'ai aussi fait ce code qui n'est pas fonctionnel:
J'essaye de faire un code pour rechercher ligne par ligne, le mot "azerty", si le mot est présent alors je veux supprimer la ligne: voici mon code:
Code:
Sub supp_line()
If (InStr(1, Range("1:1").Select, azerty) <> 0) Then
Rows("1:1").Delete
End If
End Sub
le problème c'est que sa supprime la ligne dans tous les cas.
J'ai aussi fait ce code qui n'est pas fonctionnel:
Code:
ligne As Integer
pointeur As String
ligne = 1
While ligne < 100
pointeur = Range("1:1").Select
If (InStr(1, pointeur, "azerty") <> 0) Then Rows(ligne & ":" & ligne).Delete
ligne = ligne + 1
End If
Wend