Occurrences dans listbox !

[Evelynetfrancois]

bonjour a tous et toutes

j'ai essayer de faire une version tres ligth(bidon) pour le forum( -50 ko zipée)

voici ma Question.
peut on ne faire apparaitre que les occurrences dans la "listbox1"
par rapport à la saisie dans "textbox1"(voir fichier joint)
si vous aviez une idée ........
merci d'avance et bon week end a tous
Evelynetfrancois

 

[Vériland]

Bonsoir Evelynetfrancois et toi le forum,

j'ai placé dans ton fichier la procédure qui fera apparaitre les occurrences dans la "listbox1"

Chaque lettre saisie dans la Combobox1 affecte le résultat dans la ListBox1...

Bon week-end aussi

 

[Evelynetfrancois]

bonsoir veriland
ça beugue
mais surement parce que je suis sur EXCEL 97
as tu une soluce
mais en tous cas merci de te pencher sur mon probleme
bonne soiree
evelynetfrancois

 

[Vériland]

Arf c'est vrai que tu es sous Excel 97...j'm'en rappelais plus...lol

Peux-tu indiquer à quel niveau cela Beug ?

 

[Vériland]

enfin...j'te propose d'essayer ceci...pt'êt que cette procédure fonctionnera ?

Private Sub TextBox1_Change()
' Vériland
' Octobre 2003

Dim WS As Worksheet
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Variant
Dim C As Object

ListBox1.Clear

Recherche = TextBox1.Value

For Each WS In Worksheets
Ligne = Feuil2.Range("B" & "65536").End(xlUp).Row
Set Plage = Feuil2.Range("B" & "2:" & "B" & Ligne)
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
ListBox1.AddItem C
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
Next WS
End Sub

bon vé dodo...Tu nous tiens au courant...

 

[Evelynetfrancois]

bonjour veriland
et tout d'abord MERCI!!!

Bon je viens de mettre ton nouveau code
comme le précédent c'est à:Set C = .Find(Recherche)
que ça coince
tu sais peut-être pourquoi , toi?
à bientot bon dim as anche
Evelynetfrancois

 

[michel]

bonjour Evelynetfrancois , bonjour Veriland

si tu utilises Excel97 ( comme moi ) , tu peux inserer range("A1").select en debut de procedure .
avec cet ajout , les deux exemples de Veriland fonctionnent sans soucis chez moi .

...................
Recherche = TextBox1.Value
Range("A1").Select
For Each WS In Worksheets
Ligne = Feuil2.Range("B" & "65536").End(xlUp).Row
Set Plage = Feuil2.Range("B" & "2:" & "B" & Ligne)
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
.........etc...........


bon dimache
Michel

 

[Vériland]

Bonjour Evelynetfrancois , Michel et toi le forum,

Bon ben Evelynetfrancois je crois que Michel a résolu le problème de la procédure au sujet d'Excel 97...le fameux range("A1").select...

comme c'est not' Expert Excel97 tu peux y aller sans crainte...

Bon Dim as Anche Aussi

 

[Evelynetfrancois]

Re bonjour Vériland , bonjour Michel
Là on (vous) y êtes presque
il y a certes une grande amélioration , mais si je saisie "ca" par exemple
j'obtiens bien les articles commençants par "ca" mais également "Ricard" "coca cola" etc
Ricard et coca contenant également la chaîne "ca"
(en fait tous les noms contenant la chaine demandée)
avez vs ce même problème??
à bientôt
Evelynetfrancois

 

[michel]

rebonjour à tous

Evelynetfrancois , si j'ai bien compris ta demande , modifies la procedure comme ci dessous

.................
If Not C Is Nothing Then
Adresse = C.Address
Do
If Recherche = Left(C, Len(Recherche)) Then ListBox1.AddItem C
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
........................

bon dimanche
Michel

 

[Evelynetfrancois]

Vraiment Michel je suis super content de ton aide sans oublier Vériland
c'est exactement tout ce que je souhaitais
il me semblait que c'était une question récurrente sur le forum ????,

mais hier le service "recherche" ne fonctionnait pas .

alors encore merci beaucoup pour ce super coup de main
bonne journée et à une prochaine peut-être (sûrement d'ailleurs)
Evelynetfrancois

 

[Evelynetfrancois]

j'ai de nouveau allege le prog pour le faire passer sur xld
pour plus de clarete je joins une version light du prog

Actuellement la listebox1 fait apparaitre la totalité de la liste de produits.

Par l'intermediaire de la textbox1 ,accompagnée de la macro que vous avez realisé (et qui fonctionne parfaitement sur le ptt USF) je voulais ne faire apparaitre que les occurrences .
seulement !!!
je n'arrive pas a installer le code parmis les procédures existantes
si vous avez encore le temp et la patience ...............
merci d'avance et bonne soiree
Evelynetrancois

 

[michel]

rebonsoir

tu trouveras ci joint le classeur modifié . étant donné la complexité de ton fichier tu comprendras que je n'ai pas testé tous les cas de figure ... j'espere que les modifications n'apporteront pas d'effets secondaires nefastes :
j'ai été obligé de modifier le mode d'alimentation de la listbox lors de l'initialisation de l'USF ( à l'origine par rowsource , qui n'est pas compatible avec ce que tu cherches à faire )

je me suis permis d'ajouter un bouton pour reinitialiser la liste des produits ( tu pourras le supprimer si cela ne te conviens pas )


bonne soirée
michel

 

[Evelynetfrancois]

Michel re bonsoir
il y a un ptt prob
quand l'USF est "INIT Liste"la quantite stock est bonne, le code produit est bon (en fait j'en ete là....)
mais l'orsque je demande les occurrences , ces valeurs(stock , code et prix )ne suivent pas!!
maintenant c'est peut-etre trés compliqué ???,
si tu abandonnes je ne t'en voudrais pas lol lol !!!!
bonne soirée et encore merci.
Evelynetfrancois

 

[michel]

rebonsoir

comme je te le signalais precedemment , effectuer des modifs sur ce fichier risque de provoquer des effets indésirables un peu plus loin ....

ci joint le fichier modifié . j'espere que j'ai bien compris ta demande .

bonne soirée
michel