Microsoft 365 Recherche sur feuille

[Francky79]

Bonjour,

Sur le code en pièce jointe je n'arrive pas à le modifier pour faire la recherche que sur la feuille active, le code recherche sur tout le classeur, pouvez-vous m'aider pour faire cette modification ?

Merci

 

[sylvanu]

Bonjour Franky,
C'est normal puisque vous lui demandez :

For Each Feuil In Sheets
.....
Next Feuil1

Un essai en PJ avec :

    For Each Cel In ActiveSheet.Range(Str_Plage)
        If InStr(Cel, Str_critère) Then
            Cel.Activate
            X = MsgBox("Référence """ & Str_critère & """ trouvée :" & Chr(13) & _
            "à l'adresse : " & Cel.Address(0, 0) & Chr(13) & Chr(13) & _
            "Est-ce celle là ?" & Chr(13) & Chr(13) & _
            "Oui : on quite" & Chr(13) & _
            "Non : on continue la recherche " & Chr(13) & _
            "Annuler : on arrête la recherche" & Chr(13), vbDefaultButton1 + _
            vbQuestion + vbYesNoCancel, "Référence trouvée")
            Select Case X
            Case 6 'oui
            Exit Sub
            Case 2 'annuler on sort
            Exit Sub
            Case Else 'Non=7
            'on fait rien, mais on pourrait
            End Select
        End If
    Next Cel

 

[Francky79]

Merci, impeccable et très rapide.
Bonne fin de journée

 

[mapomme]

Bonjour à tous ,

On pourrait supprimer le Select Case ... End Select avec la ligne :
If X = 6 Or X = 2 Then Exit Sub