Discussion :

[Aurélien13140]

Bonjour à tous!

Tout d'abord, je tiens à remercier cette communauté qui m'a été d'un grand recours jusqu'à présent. Je ne suis pas un développeur, très loin de là, mais je m'aide des codes créés sur ce forum pour me les réapproprier pour mon utilisation perso.
Mais là, je dois vous avouer que je suis face à un mur.
Je vous expose mon problème.

J'ai un classeur comportant plusieurs onglets. Chaque onglet recense des documents classés par type. Ils sont structurés de la même manière (Type, n°, titre, date, rédacteur, etc, etc). J'ai une base de données de plus de 1500 documents avec sur chacun des documents un lien hypertexte me renvoyant à un site.

Je souhaiterais créer un onglet sur lequel se trouve un moteur de recherche me permettant de trouver toutes les occurrences recherchées dans tous les onglets. Ce moteur de recherches peut être soit inclus dans la feuille, soit sous forme Textbox.
De plus, il faut que la liste des occurrences trouvées converse leur lien hypertexte.

En copiant de nombreux codes, j'ai réussi à faire une partie mais je commence à galérer car j'ai de plus en plus d'erreur de compilation et autre.

Pouvez vous m'aider svp?

Merci d'avance.

Je vous met en pièce jointe le document plein d'erreur (pour peut etre servir de base) et un autre document vierge pour travailler sur une base saine

[Marc-L]

Bonjour,

boucler sur chaque feuille afin d'y effectuer un filtre puis une copie.
Début de code en utilisant l'Enregistreur de macros …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[patricktoulon]

re
une idée parmi tant d'autre
j'ai utilisé ton userform1 qUI ETAIT VIDE
clique sur rechercher
quand tu a l'userform sous les yeux tape le mot rechercher et clique sur le bouton vert

ensuite quand ta liste est fini de remplir sélectionne une ligne
et clique sur le bouton orange

chaque ligne contient le nom du sheet,l'address de la cellule correspondant au donnée de la ligne et les colonne A a f de la ligne

c'est une ébauche hein!!!

[Aurélien13140]

Salut Patricktoulon !
C'est parfait, exactement ce que je comptais faire....
Maintenant, je n'ai plus qu'à reprendre ton code pour essayer de comprendre comment ca marche!
Merci encore.

[Aurélien13140]

Re,
Bon j'ai à peu près reussi à comprendre le programme (mais j'aurais été incapable de le pondre moi même lol).

Néanmoins, lorsque je fais une recherche dans mon fichier( ex: je recherche "JX"), j'ai parfois cette erreur quand je clique sur le bouton "afficher le document selectionné"

"Erreur d'éxécution '9':
L'indice n'appartient pas à la sélection.

Avec le débogage, c'est la ligne "Lien = cel.Hyperlinks(1).Address" qui est surlignée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub CommandButton2_Click()
 
    With ListBox1
        shname = .List(.ListIndex, 0)
        Set cel = Sheets(shname).Range(.List(.ListIndex, 1))
        Lien = cel.Hyperlinks(1).Address
    End With
    Set ie = CreateObject("internetexplorer.application")
    ie.Visible = True
    ie.Navigate Lien
    Set ie = Nothing
End Sub

Je n'arrive pas à la comprendre et à la débugger.
Un petit coup de pouce serait la bienvenue

[patricktoulon]

RE c'est normal

dans ton exemplaire les cellules en colonne F n'ont pas toutes des hyperlien

il te faut ajouter la gestion d'erreur sur ce point

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton2_Click()
    Lien = ""
    With ListBox1
        shname = .List(.ListIndex, 0)
        Set cel = Sheets(shname).Range(.List(.ListIndex, 1))
        If cel.Hyperlinks.Count > 0 Then Lien = cel.Hyperlinks(1).Address
    End With
    If Lien <> "" Then
        Set ie = CreateObject("internetexplorer.application")
        ie.Visible = True
        ie.Navigate Lien
        Set ie = Nothing
    End If
End Sub