Besoin d'un coup de pousse "macro de recherche"

[mattestix76]

Bonjour à tous!
je me lance depuis quelques temps sur le vba et j'avoue que c'est plutôt sympa, même à un niveau débutant!
ce forum est d'ailleurs un véritable puit de savoir qui alimente ma curiosité et mon apprentissage!!!!

J'y viens puiser bon nombre de petites astuces mais, et oui il y a un mais:

je ne parviens pas à appliquer les moults conseils qui sont donnés concernant l'utilisation d'une macro recherchev. Les requêtes sont d'un niveau que je n'atteinds pas encore et je me noie dans les codes...

J'ai donc mis en pièce jointe un fichier très simple. Dans le vba, j'ai commenté les points bloquants que je rencontre. Si l'un de vous est motivé, je pense que pour les experts ici présents, ce doit être rapidement solutionnable!

Merci!

 

[jp14]

Re : Besoin d'un coup de pousse "macro de recherche"

Bonjour

Ci joint le fichier excel avec deux solutions.

Solution de base avec la listbox

Solution alternative avec une listview.

A tester

JP

 

[mattestix76]

Re : Besoin d'un coup de pousse "macro de recherche"

JP,
merci beaucoup pour ce code!!

l'adaptation à mon projet complet n'a pas été une mince affaire mais j'ai réussi!

j'ai utilisé la solution "de base"... la solution "listview" était un peu trop complexe pour le débutant que je suis...

Une question subsidiaire:

Comment faire pour que la selection dans la listbox m'achemine non seulement vers la feuil où la ville est inscrite mais précisément sur la cellule où est inscrite la ville selectionnée?

J'ai chopé un code pour faire en sorte que la cellule selectionnée change de couleur. j'aimerai que lorsque l'utilisateur est orienté vers telle ou telle ville, la cellule de cette ville soit selectionnée pour que ce code soit utile...!

Merci encore!

 

[jp14]

Re : Besoin d'un coup de pousse "macro de recherche"

Bonsoir

Ci dessous les modifications à apporter :

On mémorise dans une colonne cachée l'adresse de la cellule.

Private Sub CommandButton1_Click()
................................
If MsgBox(msg, vbOKCancel) = vbOK Then
[COLOR="red"]Sheets(ListBox1.List(ListBox1.ListIndex, 1)).Select
Sheets(ListBox1.List(ListBox1.ListIndex, 1)).Activate
Range(ListBox1.List(ListBox1.ListIndex, (ListBox1.ColumnCount - 1))).Activate[/COLOR]
....................................
End Sub

Private Sub UserForm_Initialize()
...........
With ListBox1
    .Clear
    [COLOR="red"].ColumnCount = 3
    .ColumnWidths = "80; 80;0"[/COLOR]
End With

    For Each Sh In Worksheets
        If Sh.Name <> "sommaire" Then
        With Sheets(Sh.Name)
        dl1 = .Range("a65536").End(xlUp).Row

            For Each cellule In .Range("a1:a" & dl1)
                If cellule.Value <> "" Then
                    ListBox1.AddItem cellule.Value
                   [COLOR="red"] ListBox1.List(ListBox1.ListCount - 1, 1) = Sh.Name
                    ListBox1.List(ListBox1.ListCount - 1, ListBox1.ColumnCount - 1) = cellule.Address[/COLOR]
                
                End If
            Next cellule
........................

A tester

JP

 

[mattestix76]

Re : Besoin d'un coup de pousse "macro de recherche"

j'avoue n'avoir fait qu'un copié-collé sans trop comprendre où va se cacher l'adresse de la cellule mais du coup:

J'ai une erreur d'exécution '13' = "incompatibilité de type" sur la ligne en rouge et je n'arrive pas à résoudre ce problème par moi même...

Private Sub CommandButton1_Click()
................................
If MsgBox(msg, vbOKCancel) = vbOK Then
[COLOR="Red"]Sheets(ListBox1.List(ListBox1.ListIndex, 1)).Select[/COLOR]
Sheets(ListBox1.List(ListBox1.ListIndex, 1)).Activate
Range(ListBox1.List(ListBox1.ListIndex, (ListBox1.ColumnCount - 1))).Activate
....................................
End Sub

Private Sub UserForm_Initialize()
...........
With ListBox1
    .Clear
    .ColumnCount = 3
    .ColumnWidths = "80; 80;0"
End With

    For Each Sh In Worksheets
        If Sh.Name <> "sommaire" Then
        With Sheets(Sh.Name)
        dl1 = .Range("a65536").End(xlUp).Row

            For Each cellule In .Range("a1:a" & dl1)
                If cellule.Value <> "" Then
                    ListBox1.AddItem cellule.Value
                    ListBox1.List(ListBox1.ListCount - 1, 1) = Sh.Name
                    ListBox1.List(ListBox1.ListCount - 1, ListBox1.ColumnCount - 1) = cellule.Address
                End If
            Next cellule
........................

A tester

JP

Si vous voyez d'où cela peut provenir...

 

[jp14]

Re : Besoin d'un coup de pousse "macro de recherche"

Bonsoir

Il faut simplement modifier ou ajouter des lignes aux procédures de départ.
Les modifications sont à faire entre les points de suspension.

JP

 

[mattestix76]

Re : Besoin d'un coup de pousse "macro de recherche"

Bonsoir,

j'avais mal regardé, il me manquait une ligne.

Le programme fonctionne parfaitement!
je l'avais simplement mal adapté à mon projet global...


merci beaucoup!