XL 2013 Userform recherche valeur sur toutes les feuilles

patinator · 19 Octobre 2015

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

Pierrot93 · 19 Octobre 2015

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 · 19 Octobre 2015

Re : Userform recherche valeur sur toutes les feuilles

Bonsoir Pierrot,

j'ai testé et n'arrive pas a faire fonctionner la macros, elle a marche une fois et m'as supprimer la première colonne.

Peux tu voir d'où viens le problème.

Merci.

Patine

Pierrot93 · 20 Octobre 2015

Re : Userform recherche valeur sur toutes les feuilles

Bonjour,

bah... là vois pas trop... aucune instruction dans le code que je t'ai proposé ne supprime de colonne...

bonne journée
@+

patinator · 21 Octobre 2015

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

Pierrot93 · 21 Octobre 2015

Re : Userform recherche valeur sur toutes les feuilles

Bonjour,

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

tu as la réponse dans le code proposé post #2

bonne journée
@+

XL 2013 Userform recherche valeur sur toutes les feuilles

patinator

XLDnaute Nouveau

Pièces jointes

Pierrot93

XLDnaute Barbatruc

patinator

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

patinator

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Discussions similaires