XL 2013 Userform recherche valeur sur toutes les feuilles

patinator

XLDnaute Nouveau
Bonjour,

Je cherche a réaliser une macro, pour rechercher dans toutes les feuilles d'un classeur dans une sonne bien précise, j'ai fais pas mal test mais je n'arrive pas écrire les macros.... Je suis nul en programmation.

Pouvez vous m'aider ? je joint le classeur..

Merci.

Patinator
 

Pièces jointes

  • rechercher.xlsm
    25.7 KB · Affichages: 47

Pierrot93

XLDnaute Barbatruc
Re : Userform recherche valeur sur toutes les feuilles

Bonjour,

regarde peut être ceci :
Code:
Private Sub CommandButton1_Click()
Dim ws As Worksheet, x As Range
For Each ws In Worksheets
    If ws.Name Like "U*" Then
        Set x = ws.Range("B9:B40").Find(TextBox1, , xlValues, xlWhole, , , False)
        If Not x Is Nothing Then Application.Goto x, True: Exit Sub
    End If
Next ws
If x Is Nothing Then MsgBox "Non trouvé..."
End Sub

bon après midi
@+
 

patinator

XLDnaute Nouveau
Re : Userform recherche valeur sur toutes les feuilles

Bonjour,

cette macro est pas mal :

Sub Test()

Dim Fe As Worksheet
Dim Cel As Range
Dim Chaine As String

Chaine = inputbox("Indiquez la valeur à rechercher")
For Each Fe In Worksheets

Set Cel = Fe.UsedRange.Find(Chaine, , xlValues, xlWhole)

If Not Cel Is Nothing Then MsgBox "la Valeur '" & _
Chaine & "' se trouve en cellule '" & _
Cel.Address(0, 0) & "' sur la feuille '" & _
Fe.Name & "' !"


Next Fe

End Sub

Mais comment peux t'on faire pour sélectionner la valeur trouver sur la feuille ?

Merci.

Patinator
 

Discussions similaires

Réponses
21
Affichages
763

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG