Terminer recherche quand le texte rechercher n'existe pas
Bonjour, bon je tourne en rond encore une fois avec mes macros... Dans la suite de ma dernière interrogation sur les recherches en vba.
Voilà mon nouveau problème; comment terminer une recherche quand le texte recherché n'existe plus? Ma macro trouve un texte, supprime la ligne et passe au suivant mais lorsque j'arrive à la fin, bien entendu, j'ai un message d'erreur car il ne trouve plus le texte recherché. J'ai défini une variable "rech" et lui dit que si c'est différent de sortir de la boucle mais ça ne fonctionne pas.
Voilà mon code:
Sub FE()
Dim Rech As String
Do
Cells.Find(What:="longueur", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Rech = "épaisseur"
Cells.Find(What:="épaisseur", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
If Rech <> "épaisseur" Then
Exit Do
End If
Loop
merci encore une fois pour votre aide!
Bonsoir
Comment veux tu que l'on t'aide ?
Tu fournis un fichier sans macros
Tu dis que ta macro supprimes la ligne, or on ne voit aucune part, dans la macro que tu as posté, une suppression de ligne
Bonjour
Cette macro enlèves toutes les lignes contenant "épaisseur"
merci pour la macro , elle fonctionne bien mais j'ai pogné un virus avec... Passe ton antivirus sur ta machine.
Bonjour
Merci pour l'info
Mais pas d'alerte