Microsoft 365 Recherche sur feuille
- Initiateur de la discussion Francky79
- Date de début
Solution
Bonjour Franky,
C'est normal puisque vous lui demandez :
Un essai en PJ avec :
C'est normal puisque vous lui demandez :
VB:
For Each Feuil In Sheets
.....
Next Feuil1
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
Solution
Merci, impeccable et très rapide.
Bonne fin de journée
Bonne fin de journée
Bonjour à tous 
,
On pourrait supprimer le Select Case ... End Select avec la ligne :
,On pourrait supprimer le Select Case ... End Select avec la ligne :
If X = 6 Or X = 2 Then Exit SubDiscussions similaires
- Résolu(e)
