Recherche dans une listbox sur la Feuil1 à partir de la Feuil2

[Chri8Ed]

Bonjour à tous et meilleurs vœux

En double-cliquant sur un mot dans ma « feuil1 »,
Je visualise toutes les lignes comportant ce mot dans une listbox.

Je souhaiterais faire la même chose, mais à partir de ma « feuil2 »

Exemple en cliquant sur le mot « Ecran » dans la « Feuil2 »
Lister toutes les lignes comportant ce mot dans la « Feuil1 »
dans la listbox « RechercheB »

Est-ce possible et comment faire ?

Merci par avance pour votre aide

A+

 

[Paf]

Re : Recherche dans une listbox sur la Feuil1 à partir de la Feuil2

Bonjour,

Dans Private Sub Worksheet_BeforeDoubleClick de la feuille Feuil2, modifier la plage pour qu'elle corresponde à l'emplacement des données

Dans Private Sub TextBox1_Change() de l'USF RechercheB , il faut 'référencer' chaque Cells(x,y) à la feuille Feuil1 dans la boucle For L .....

If Cells(L, 2) > 0 Then devient If Worksheets("Feuil1").Cells(L, 2) > 0 Then

ou alors avant la boucle rajouter With Worksheets("Feuil1") (sans omettre End With après la boucle)
puis If Cells(L, 2) > 0 Then devient If .Cells(L, 2) > 0 Then

A+

 

[Chri8Ed]

Re : Recherche dans une listbox sur la Feuil1 à partir de la Feuil2

Bonjour Paf

Merci pour ton aide
J'ai essayé tes 2 méthodes
Je ne sais pas exactement quelles sont les lignes que je dois référencer à la feuille1
Je pense avoir tout essayé, mais aucun résultat
J'ai également essayé la 2ème méthode, mais sans aucun résultat non plus
Comme je n'ai aucun message d'erreur, mais simplement ma listbox vide
Ce n'est pas facile de trouver la cause
Évidement, il y forcément quelque chose que je fais mal
Mais laquelle ??

Je joins les 2 méthodes
Si tu peux y regarder
Merci

A+

 

[Paf]

Re : Recherche dans une listbox sur la Feuil1 à partir de la Feuil2

Re

Il n'y a pas deux méthodes. les deux modifications sont indispensables

Pour la première modif , si on veut lancer l'USF RechercheB il faut remplacer With Recherche par With RechercheB


Pour le deuxième:
Dans Private Sub TextBox1_Change() de l'USF RechercheB , il faut bien référencer tous les cells(x,y) de la boucle For L = ...y compris celui de For L = 1 To Cells(Rows.Count, 2).End(xlUp).Row
Par contre référencer une variable à une feuille ne sert à rien :
Tablo(6, Nb) = .L 'Gestion ds nu...


Dernier point le End With ( celui de With Worksheets...) doit être juste après la fin de boucle L.
Next L
End With
sinon il y a confusion avec .AddItem Tablo(1, 1) qui se rapporte à With ListBox1 ou à With Worksheets("Feuil1")

A+



dans

 

[Chri8Ed]

Re : Recherche dans une listbox sur la Feuil1 à partir de la Feuil2

Re,

Pour la première modif , si on veut lancer l'USF RechercheB il faut remplacer With Recherche par With RechercheB

Excuse moi pour cette étourderie 🙁

Il n'y a pas deux méthodes. les deux modifications sont indispensables

Là j'ai du mal à comprendre ?
Dans ta réponse précédente, tu mettais :

ou alors avant la boucle rajouter With Worksheets("Feuil1") (sans omettre End With après la boucle)
puis If Cells(L, 2) > 0 Then devient If .Cells(L, 2) > 0 Then

Je pensais donc que c'était soit

Dans Private Sub TextBox1_Change() de l'USF RechercheB , il faut 'référencer' chaque Cells(x,y) à la feuille Feuil1 dans la boucle For L .....

If Cells(L, 2) > 0 Then devient If Worksheets("Feuil1").Cells(L, 2) > 0 Then

Soit

ou alors avant la boucle rajouter With Worksheets("Feuil1") (sans omettre End With après la boucle)
puis If Cells(L, 2) > 0 Then devient If .Cells(L, 2) > 0 Then

A+

 

[Paf]

Re : Recherche dans une listbox sur la Feuil1 à partir de la Feuil2

Re,

je n'avais pas saisi quelles étaient les deux méthodes j'en étais resté à : point 1 : plage de la macro, point 2 référencement des cells(x,y).

Pour le référencement, effectivement, c'est soit rajouter Worksheets("Feuil1") devant chaque cells(x,y) de la boucle, soit utiliser With Worksheets("Feuil1") et rajouter . devant chaque cells.

A+

 

[Chri8Ed]

Re : Recherche dans une listbox sur la Feuil1 à partir de la Feuil2

Re,

Merci pour cette précision importante

Je reviens donc pour le moment à la méthode avec With Worksheets("Feuil1")
J'ai bien repositionné End with après Next L

J'ai bien mis un . devant chaque Cells

Mais il doit encore y avoir quelque chose que je ne fais pas bien
Car cela ne donne toujours aucun résultat

A+

 

[Chri8Ed]

Re : Recherche dans une listbox sur la Feuil1 à partir de la Feuil2

Re,

Je viens de trouver une partie de mes erreurs pour les 2 solutions
A présent je visualise bien les données
Ce qui est déjà beaucoup !

Reste les totaux qui ne sont pas visualisé
Certainement un problème encore d'adressage
Mais je n'arrive pas à trouver pour les 2 cas

A+

 

[Chri8Ed]

Re : Recherche dans une listbox sur la Feuil1 à partir de la Feuil2

Re,

Encore une erreur de ma part
Tout est Ok

Merci beaucoup pour ton aide
et ton indulgence devant mes étourderies

A Bientôt

 

[Paf]

Re : Recherche dans une listbox sur la Feuil1 à partir de la Feuil2

Re,

quelque soit le classeur, je ne vois de lignes de total ni en feuil1, ni en feuil2!

S'il s'agit de les calculer en fonction des lignes rapatriées dans l'USF, ce n'est plus un problème d'adressage, mais de code à mettre en place.

Problème différent => nouvelle discussion ?

Bonne suite

 

[Chri8Ed]

Re : Recherche dans une listbox sur la Feuil1 à partir de la Feuil2

Re,

Je pense que ta réponse à croisée ma prétendante réponse envoyé 2 minutes plutôt ?
Voir #9

A+

 

[Paf]

Re : Recherche dans une listbox sur la Feuil1 à partir de la Feuil2

OK

Bonne suite