Microsoft 365 Recherche sur feuille

Francky79

XLDnaute Occasionnel
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
 

Pièces jointes

  • recherche.xlsm
    22.2 KB · Affichages: 0
Solution
Bonjour Franky,
C'est normal puisque vous lui demandez :
VB:
For Each Feuil In Sheets
.....
Next Feuil1
Un essai en PJ avec :
Code:
    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...

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Franky,
C'est normal puisque vous lui demandez :
VB:
For Each Feuil In Sheets
.....
Next Feuil1
Un essai en PJ avec :
Code:
    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
 

Pièces jointes

  • recherche V2.xlsm
    20.8 KB · Affichages: 1

Statistiques des forums

Discussions
313 224
Messages
2 096 338
Membres
106 572
dernier inscrit
JM04082023!