recherche dans toutes les feuilles d'un Classeur

[marfipo]

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

 

[DoubleZero]

Re : recherche dans toutes les feuilles d'un Classeur

Bonjour à toutes et à tous,

Bienvenue sur XLD, marfipo.

Une solution, à adapter, ici, grâce au travail de BOISGONTIER

A bientôt

 

[marfipo]

Re : recherche dans toutes les feuilles d'un Classeur

Merci bien doublezero c'est vraiment ce que je cherchais