Problème MsgBox

Bonjour à tous !

Sur mon moteur de recherche, lorsque l'on indique un numéro inexistant à chercher, Une MsgBox s'ouvre disant "Numéro inexistant". Cependant, lorsqu'on clique sur Ok, il faut cliquer au moins 3 ou 4 fois avant que la fenêtre se ferme. D’où vient le problème ?

Je vous joint quand même le fichier

Merci

Bonjour, très certainement a cause d'une boucle qui continue de tourner, pour éviter ceci il faut rajouter un "exit sub" pour dire, si il n'y a pas de numéro trouvé, sortir de la macro. Vous pouvez copier le code ci-dessous j'ai rajouté le exit sub

Sub recherche()
    Dim Premier_passage As Boolean
    Premier_passage = True
    motclé = InputBox("Numéro de plan à chercher :", "Moteur de recherche", "Exemple: 221500")
    If motclé = "" Then
        Exit Sub
    Else
        For Each ws In Worksheets
            With ws.Columns("K:K")
                Set re = .Find(motclé, lookat:=xlWhole)
                If Not re Is Nothing Then
                    fa = re.Address
                    Do
                        If Premier_passage = False Then
                            If MsgBox("Un autre résultat à été trouvé, aller à celui ci ?", vbYesNo, "Résultat de la recherche") = vbNo Then Exit Sub
                        End If
                        Premier_passage = False
                        ws.Activate
                        re.Select
                        Set re = .FindNext(re)
                    Loop Until re Is Nothing Or re.Address = fa
                Else
                    MsgBox ("Numéro inexistant")
                    Exit Sub
                End If
            End With
        Next
    End If

End Sub

Effectivement ça à l'air de fonctionner Merci !

Je viens de me rendre compte d'une erreur, lorsque l'on recherche un numéro existant cette fois ci, le message "Numéro Inexistant apparait quand même...

J'ai déplacer le MsgBox après cette ligne mais j'ai un message d'erreur encore...

If Not re Is Nothing Then

Bonjour,

Le message "Numéro Inexistant" étant placé dans la boucle qui examine chaque feuille, si le numéro n'est pas dans la feuille le message apparait.

Il apparait donc autant de fois qu'il y a de feuilles ne contenant pas le numéro.

Une proposition

A+

En effet il apparaissait pour chaque feuille !

Je te remercie frangy, ta proposition fonctionne parfaitement !