recherche dans toutes les feuilles d'un Classeur

  • Initiateur de la discussion Initiateur de la discussion marfipo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

marfipo

XLDnaute Occasionnel
Bonsoir tout le monde
Je suis novice en VBA et c'est pourquoi je sollicite votre aide
le code ci-dessous fait une recherche dans toutes les feuilles du classeur
ce que je souhaite réaliser c'est de le modifier pour qu'il recherche juste dans la colonne C des feuilles
y'a t'il quelqu'un qui pourrait m'aider ?
Merci d'avance

Sub MySearsh()
Dim Searsh As String
Dim FirstValue As String
Dim NextValue As String
Searsh = Application.InputBox(prompt:="Veuillez saisir une valeur", Title:="Microsoft Excel", Type:=2)
For Each sh In Worksheets
With sh
If .Cells.Find(What:=Searsh, After:=ActiveCell) Is Nothing Then GoTo 1
.Activate
With .Cells.Find(What:=Searsh, After:=ActiveCell)
.Activate
FirstValue = .Address
End With
Do
If .Cells.FindNext(After:=ActiveCell) Is Nothing Then GoTo 1
If MsgBox("Rechercher un autre résultat", vbYesNo, "Microsoft Excel") = vbNo Then Exit Sub
With .Cells.FindNext(After:=ActiveCell)
.Activate
NextValue = .Address
End With
Loop Until FirstValue = NextValue
End With
1 Next sh
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
153
Réponses
2
Affichages
461
Réponses
4
Affichages
461
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Retour