Discussion :

[Guignol81]

Bonjour,

J'ai trouvé un code de moteur de recherche que j'ai adapté à mon userform, le probleme c'est qu'il effectue une recherche que sur la page 1 et de A2 à A24. J'aimerai l'adapter à mon fichier excel pour qu'il effectue une recherche sur la page en entier et toutes les pages de mon fichier et en cliquant sur la réponse trouvé il nous renvoi a la page du mot.

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ComboBox1_Change()
 
    Application.ScreenUpdating = False
Range("A2:A24").Interior.ColorIndex = 2
    ListView1.Clear
 
    If ComboBox1 <> "" Then
        For ligne = 2 To 24
            If Cells(ligne, 1) Like "*" & ComboBox1 & "*" Then
                Cells(ligne, 1).Interior.ColorIndex = 43
                ListView1.AddItem Cells(ligne, 1)
            End If
        Next
    End If
 
End Sub

Et voici une image de userform:


Merci.

[Philippe Tulliez]

Bonjour,
Qu'entends-tu par "recherche sur plusieurs pages entieres ?"

Si tu parles de toutes les feuilles du classeur alors il faut créer une boucle
Exemple d'une boucle qui parcourt toutes les feuilles du classeur où se trouve le code VBA et qui affiche le nom de chaque feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 Dim sht As Worksheet
 For Each sht In ThisWorkbook.Worksheets
  MsgBox sht.Name
 Next

[78chris]

Bonjour
Salut Philippe

Peut-être ce code peut t'aider pour parcourir l'ensemble des feuilles à la recherche d'une chaîne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Option Explicit
Sub Test()
'
'
Dim x As Range
Dim Monadresse As String, MaFeuille As String, AdresseP As String, Achercher As String
Dim wsh As Worksheet
 
'A adapter
Achercher = "Juin"
 
Worksheets.Select
Sheets(1).Activate
    For Each wsh In Worksheets
        Monadresse = ""
        AdresseP = ""
        Set x = wsh.Cells.Find(What:=Achercher, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False)
        If Not x Is Nothing Then
            AdresseP = x.Address
            Do
                Monadresse = x.Address
                MaFeuille = x.Parent.Name
                'A adapater
                MsgBox MaFeuille & ", " & Monadresse
                Set x = wsh.Cells.FindNext(x)
            Loop While Not x Is Nothing And x.Address <> AdresseP
        End If
    Next wsh
End Sub

[Guignol81]

Bonjour, et merci pour vos solutions,

Philippe Tulliez, oui c'est une recherche sur toutes les feuilles d'un classeur

Par contre j'ai complétement oublier de préciser que je suis novice en VBA, et je ne sais pas comment inclure les codes que vous m'avez proposés.

Je vous joint si ça peux être plus claire le fichier en question qui est légèrement modifié par rapport a l'original (pages en moins et données différentes).


Essai.xlsm

[clementmarcotte]

Je suis complètement, mais réellement découragé. C'est sûr qu'il y a moins de gugusses, mais la recherche intégrée d'Excel peut chercher dans tout un classeur sans le moindre chichi. Tout ce qu'il faut, c'est écrire un mot, et changer une sélection par défaut dans une liste déroulante. C'est à la portée d'un enfant de six ans.

[Guignol81]

J'avais besoin de créer un moteur de recherche pour éviter de toujours devoir remettre les options du moteur intégré à excel (fichier utilisé de nombreuse fois par jour et par plusieurs personnes donc plus intuitif et rapide a utiliser).

Désolé pour votre découragement.
Bonne soirée.