Remplacement d'une listbox par une listview

[JONEY76]

Bonjour,

Voilà ma question:

Pouvez vous m'aider à adapter mon code,
J'ai une listbox qui affiche les résultats d'une recherche par mot clé
Cependant, la listbox n'est pas pratique car c'est pas pratique lorsque les données des cellules sont très longues

Faites un test en cherchant "camion"

J'ai du mal avec les listview, mais c'est quand m^me beaucoup plus pratique
avec les options de quadrillage, de filtre etc

- la recherche se fait sur toutes les feuilles, je voudrais uniquement celle "BD"

Je joint mon fichier



-Voici les en têtes de la listview

With Me.ListView1
.ListItems.Clear
With .ColumnHeaders
.Clear
.Add , , "Date", 70
.Add , , "Liasse", 70
.Add , , "N°Ensemble", 50
.Add , , "Designation ensemble", 150
.Add , , "N°plan", 50
.Add , , "Designation plan", 70
.Add , , "date", 95
.Add , , "Format", 50
.Add , , "Dessiné par", 50
.Add , , "Commentaire", 50
End With

 

[JONEY76]

Re : Remplacement d'une listbox par une listview

Utiliser le contrôle ListView en VBA Excel - Club des décideurs et professionnels en Informatique

Je viens de lire l'aide, pas simple quand on débute...
Je continue à tester

 

[kjin]

Re : Remplacement d'une listbox par une listview

Bonsoir,
A adapter
Merci pour l'autre fil
A+
kjin

 

[JONEY76]

Re : Remplacement d'une listbox par une listview

C'est tout simplement génial !!

Je vais tester !!!

Merci beaucoup !!

Je vais étudier le code , ah cette soif d'apprendre !!🙂

 

[JONEY76]

Re : Remplacement d'une listbox par une listview

j'ai un beugg

Enfin, ça affiche plusieurs fois la meme ligne si tu écris par exemple le mot date un peu partout

Par contre le fait qu'il soit en gras c'est pas mal du tout

Encore faut il avec le meme mot sur dans plusieurs colonne

 

[YANN-56]

Re : Remplacement d'une listbox par une listview

Bonsoir à toi et aux participants,
sans oublier ceux qui passent par là.

Je joins un p'tit truc au cas où celui-ci puisse servir.

Si besoin de commentaires ou de peaufiner l'utilisation de
la ListView: je ne suis pas un "Pro", mais le peu que je sais faire
pourrait peut-être t'aider si besoin.

Bonne fin de soirée à tous.

Yann

J'ai oublié de dire qu'il fallait double cliquer sur l'Item choisi de la ListView.

 

[JONEY76]

Re : Remplacement d'une listbox par une listview

Merci beaucoup Kjin et Yann

J'utilisais des listbox mais depuis que j'ai découvert la listview, j'ai du mal à étudier mes nouveaux fichiers avec des listbox

On trouve pas énormément d'exemples ...Merci pour votre aide !!!!


[mission accomplie]

 

[YANN-56]

Re : Remplacement d'une listbox par une listview

Bonsoir Joney76 , ou bonjour suivant l'heure.

Je ne pige pas trop:

"J'utilisais des listbox mais depuis que j'ai découvert la listview, j'ai du mal à étudier mes nouveaux fichiers avec des listbox"

Tu abandonnes les ListBoxes, et poursuis avec seulement les ListView?

Ces dernières offrent bien plus de possibilités.

Peut-être voulais-tu dire:

"J'utilisais des listbox mais depuis que j'ai découvert la listview, j'ai du mal à étudier mes nouveaux fichiers avec des ListView"

J'ai finalement un doute que tu aies ouvert mon Classeur, et regardé 🙂

Si tu optes pour l'utilisation des "ListView",
je te suis, disposé à partager les p'tits trucs que j'ai appris ici à faire,
comme pomper les données d'un nouveau fichier.xls.

A quand tu le voudras, et précisé ta requête...

Yann

 

[JONEY76]

Re : Remplacement d'une listbox par une listview

En fait, ce que je voulais dire :

Vu le potentiel des listview, je vais utiliser de moins en moins les listbox

Dans ma phrase , j'ai du mal à étudier mes fichiers avec des listbox
Le mot étudier ne va pas, j'aurais du dire concevoir mon interface sans les listview

En gros, aux chiottes les listbox, Bienveniou la listview !!!

 

[YANN-56]

Re : Remplacement d'une listbox par une listview

En fait, ce que je voulais dire :

Vu le potentiel des listview, je vais utiliser de moins en moins les listbox

Dans ma phrase , j'ai du mal à étudier mes fichiers avec des listbox
Le mot étudier ne va pas, j'aurais du dire concevoir mon interface sans les listview

En gros, aux chiottes les listbox, Bienveniou la listview !!!

OK, demain on y va.

A cette heure: Dodo!

A @ +

Yann

 

[kjin]

Re : Remplacement d'une listbox par une listview

Bonsoir,

j'ai un beugg
Enfin, ça affiche plusieurs fois la meme ligne si tu écris par exemple le mot date un peu partout

Bug ?!
Je m'étais contenté de reprendre ton propre code (qui semblait te convenir !) et dans la mesure où l'on ne connais pas vraiment la structure de ta feuille, tu aurais pu adapter comme ceci par exemple (vu ton fichier exemple)

Private Sub CommandButton1_Click()
ListView1.ListItems.Clear
If TextBox1 = "" Then Exit Sub
With Sheets("BD")
    i = 7
    Do
    Set c = .Range(.Cells(i, 1), .Cells(i, 10)).Find(TextBox1, LookIn:=xlValues)
        If Not c Is Nothing Then
            IniLvw c.Row
        End If
        i = i + 1
    Loop While .Cells(i, 1) <> ""
End With

End Sub

Le reste du code du fichier que je t'ai fourni ne change pas

Encore faut il avec le meme mot sur dans plusieurs colonne

Ca je ne comprends pas
A+
kjin

 

[JONEY76]

Re : Remplacement d'une listbox par une listview

Salut KJIN

Pour le beugg, c'est résolu

Par contre j'ai une question technique, je t'ai envoyé un message

 

[kjin]

Re : Remplacement d'une listbox par une listview

Re,
Réponse à ta demande
A+
kjin

 

[JONEY76]

Re : Remplacement d'une listbox par une listview

Salut,

Je viens de voir le fichier, j'ai crée un nouveau post car c'est une demande différente

Ton fichier fonctionne, la seule chose serait d'avoir un bouton VALIDER qui prend en compte les modif faites dans les textbox

Merci d'avance

https://www.excel-downloads.com/threads/listview-modification-listview-par-des-textbox.134819/