VBA - probleme sur listebox

Question

Bonjour, 
Voilà j'ai un fichier avec une liste de produits, j'aimerai que sur une autre feuille je puisse faire une recherche "simplifiée" c'est à dire quand je clic sur la commandbox "ELECTRICITE" qu'il apparaisse dans la listebox du dessous la plage que j'ai nommée "ELECTRICITE" qui se trouve sur ma feuille "code_produits", ça c'est une premiere chose.
En second, j'aimerai faire une recherche par mot clef par le biais de mon TextBox1 mais ma formule VBA ne fonctionne pas...
Pourriez vous m'aidier...
Cordialement,
Ci dessous mon fichier
https://www.cjoint.com/?0FzllddbsNi

f894009 · Answer

Bonjour,

pour joindre un fichier click sur le lien suivant https://www.cjoint.com/

Ne pas oublier de copier/coller le lien cree dans votre prochain message

polsak_diane · Answer

https://www.cjoint.com/?0FzllddbsNi

Merci pour l'info !!

f894009 · Answer

Re,

testez et rendez compte svp

https://www.cjoint.com/?CFzmxEQepY0

A+

foo · Answer

Bonjour
voila une ListView
ses plus jolie 
a toi de voir

http://cjoint.com/?3FzmLMIKTLG 

A+

Maurice

f894009 · Answer

Re,

 commandbox est-ce-que par hazard ce serait les boutons de commandes ????

f894009 · Answer

Re,

listbox remplie par boutons de commnde ou mot cles

https://www.cjoint.com/?CFzrnbvnX43

f894009 · Answer

Bonjour,

Quelle erreur ????

'largeur Colonnes pour 8 colonnes, adaptez la largeur en modifiant le nombre de pt de la colonne
ListBox1.ColumnWidths = "50 pt;50 pt;75 pt;50 pt;60 pt;75 pt;50 pt;75 pt"

f894009 · Answer

Re,

Oblige de changer de methode, pas grave, il y en a pas plusieurs.

Sub Recherche_par_objets(Objet As String)
    Dim Lmax, V, plage As Range, cel, col, lig, tableau()
    
    With Worksheets("code_produits")
        ListBox1.Clear
        Lmax = .Range("A" & Rows.Count).End(xlUp).Row
        Set plage = .Range("A2:A" & Lmax)
        ReDim tableau(Lmax, ListBox1.ColumnCount)
        lig = 0
        For Each cel In plage
            If cel = Objet Then
                tableau(lig, 0) = cel
                For col = 1 To ListBox1.ColumnCount
                    tableau(lig, col) = cel.Offset(, col)
                Next col
                lig = lig + 1
            End If
        Next cel
        ListBox1.List = tableau
    End With
End Sub

A+

f894009 · Answer

Re,

Refait essais avec premiere methode, plus d'erreur sans modifier quoi que ce soit ????

Prenez la deuxieme methode.

polsak_diane · Answer

https://www.cjoint.com/?3FArnzIcKq4

oui ca fonctionne par contre j'ai certains boutons de commande qui ne fonctionnent pas et là je ne comprends pas ou est mon erreur???
Une autre question, est il possible d'avoir la colonne "designation " de ma listbox sur 2 lignes pour que tout soit lisible car tout ne tiens pas sur une ligne?

Merci encore pour votre aide

f894009 · Answer

Re,

Bouton LEM ?????

colonne designation sur plusieurs lignes (decoupage pas top)

https://www.cjoint.com/c/CFAt7Tbhdfi

A+

polsak_diane · Answer

j'ai modifiéle nom de la plage et ca fonctionne pour la commande "LEM". Par contre pourriez vous regarder mon fichier, j'ai apporté des modifs pour que se soit plus lisible. J'aimerai que lorsqu'on clique sur une ligne de la listbox les infomations apparaissement dans les labels correspondants à mes colonnes de la feuille "code_produits" est-il possible de faire ça? peut-être il faut utiliser autre chose que des labels?
Merci
https://www.cjoint.com/?3FBkFBLkpH9

f894009 · Answer

Bonjour,

Des labels, cela convient parfaitement. Peut-etre pas besoin des decouper la designation, car beaucoup de modif pour memoriser les infos?? Vous decidez et je fais

A+

f894009 · Answer

Re,

sans decoupe designation sur mot cles

https://www.cjoint.com/?CFBmh2cmIOz

A+

f894009 · Answer

Re,

Private Sub Workbook_Open()
Worksheets("feuil3").Activate
End Sub


A+

foo · Answer

Bonjour

utilise le CodeName de la feuil

Private Sub Workbook_Open()
   Feuil3.Select
End Sub

A+

Maurice

foo · Answer

Bonjour
Pour la 2eme fois voici une listeView
A toi de jouer


http://cjoint.com/?CGqmAVupkps 

A+

Maurice

f894009 · Answer

Re,

ce doit etre le chemin du composant listview qui n'est pas le bon. Quel OS avez-vous (XP, W7 32bits ou 64bits, W8 32bits ou 64bits ou ...) ???

f894009 · Answer

Re,

Dans votre fichier d'origine, il y a une listview. Recopier tout le code du fichier de foo dans le vba de votre fichier d'origine en modifiant les noms des objets si nécessaire.

essayez et rendez compte svp

A+

foo · Answer

Bonjour,

regarde sur: 
http://forum.excel-pratique.com/excel/probleme-avec-petite-macro-t28865.html

tu doit touver ta solution pour "erreur de compilation, projet ou bibliothèque introuvable"

on ses pas quelle version excel ?
pour ton XP il faut etre en service Pack(SP6)

A+

Maurice

polsak_diane · Answer

https://www.cjoint.com/?3GyqhB27sJP

Bonjour à tous,
après avoir mis en page je n'arrive toujours pas à faire en sorte qu'à l'ouverture du fichier le texbox et les label soient vide. 

merci

f894009 · Answer

Bonjour,

Voila une facon de faire:

https://www.cjoint.com/c/CGytMOIYga2

Bonne suite

VBA - probleme sur listebox - Page 2

Discussions similaires

Newsletters