bonjour à tous !
pouvez vous me dire dans le code suivant ou et comment faire pour introduire un arrêt d'une boucle macro.
en effet quand le message box apparait, si par malheur on ne tape pas de recherche il recopie à l'infini une ligne et impossible de l'arrêter.
sa c'est le code une fois la recherche ou non ! lancé.
merci d 'avance à eux qui pourront m'aider.
pouvez vous me dire dans le code suivant ou et comment faire pour introduire un arrêt d'une boucle macro.
en effet quand le message box apparait, si par malheur on ne tape pas de recherche il recopie à l'infini une ligne et impossible de l'arrêter.
Code:
Sub recherche(mot)
Sheets("page d'ouverture").Range("A9:IV65536").Clear
ligne = 9
For Each ws In Sheets
If ws.Name <> "page d'ouverture" Then
With ws.Cells
Set c = .Find(mot, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
ws.Rows(c.Row).Copy Destination:=Sheets("page d'ouverture").Cells(ligne, 1)
ligne = ligne + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
trouve = True
End If
End With
End If
Next ws
x = Sheets("page d'ouverture").Range("B65536").End(xlUp).Row
If x > 14 Then
For n = x To 15 Step -1
For m = 1 To 7
xx = xx & Sheets("page d'ouverture").Cells(n, m)
yy = yy & Sheets("page d'ouverture").Cells(n - 1, m)
Next m
If yy = xx Then Sheets("page d'ouverture").Rows(n).Delete
xx = ""
yy = ""
Next n
End If
If Not trouve Then MsgBox ("Le mot " & mot & " n'a pas été trouvé dans ce fichier")
End Sub
sa c'est le code une fois la recherche ou non ! lancé.
merci d 'avance à eux qui pourront m'aider.
Dernière édition: