Adaptation Listview

[aubelix]

Bonjour à tout le Forum.

Je reviens de nouveau vers vous pour vous demander de l'aide.

Pourriez-vous m'aider à adapter la listView que j'ai copié dans
une des questions. Mon but est le suivant :

- En cliquant sur le bouton recherches >affichage de la listView
(que j'ai recopié et essayé d'adapter, sans succès).

- Tapez un bout de texte sur la combox1.

- Afiicher toutes les références qui contiennent ce texte

exemple dans notre cas :

gants >> GANTS ANTI BRULURE
GANTS BLANCS
GANTS ROUGES
TABLE GANTES etc...

Par avance merci de votre aide

Cordialement.

 

[RENAUDER]

Re : Adaptation Listview

Bonjour,
Je n'ai pas testé en profondeur mais ça m'a l'air correct.

 

[aubelix]

Re : Adaptation Listview

Bonjour RENAUDER.

Merci pour votre réponse.
J'ai voulu l'adapter l'adapter à mon application et j'obtiens l'erreur ci dessous :
Erreur d'éxécution 424.

Par avance merci de votre aide.
Cordialement.

 

[RENAUDER]

Re : Adaptation Listview

Bonjour,
Normal ...
Tu dois mettre à la propriété Name de ta feuille le nom Base.
Sinon tu remplces dans le code Base par le nom correpondant à la propriété Name de ta feuille.
Voir copie jointe

 

[aubelix]

Re : Adaptation Listview

Merci pour votre réponse.

J'ai modifié le nom, toujours un message d'erreur
J'ai joint le fichier d'origine

Par avance merci

Cordialement.

 

[RENAUDER]

Re : Adaptation Listview

Bonjour,
Ressaies ce fichier.
J'ai coché la référence mais j'espère que tu as ce fichier sur ton PC
Il faut le Microsot Windows Common Control (C:\windows\system32\mscomctl.ocx)

Un lien
Download details: Microsoft Visual Basic 6.0 Common Controls

 

[aubelix]

Re : Adaptation Listview

un Bonjour matinal Eric et tout le Forum.

Merci pour votre aide.
Tout est revenu dans l'odre.
Bonne journée.

Cordialement.

 

[aubelix]

Re : Adaptation Listview

Bonjour à tous.

Est-il possible lors de la consultation via la ListView de faire un double click sur
une une désignation, référence selon le filtre de copier toute la ligne sur une feuille
de ce classeur. Possibiltés d'en copier plusieurs les unes derrières les autres...

Merci pour votre aide.
Cordialement.

 

[bqtr]

Re : Adaptation Listview

Bonjour aubelix, RENAUDER

Voici une possibilité:

Private Sub ListView1_DblClick()

Dim m As Long
With Sheets("Feuil1")
   m = .Range("A65536").End(xlUp).Row
   .Cells(m + 1, 1) = ListView1.ListItems(ListView1.SelectedItem.Index)
   .Cells(m + 1, 2) = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(1)
   .Cells(m + 1, 3) = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(2)
End With

End Sub

Les données sont mises sur une feuille "Feuil1" dans les colonnes A,B,C.

A+

 

[RENAUDER]

Re : Adaptation Listview

Bonjour,
Ou encore

        With Sheets("Export")
            M = .Range("A65536").End(xlUp).Offset(1, 0).Row
            .Cells(M, 1) = ListView1.ListItems(Item.Index).Text
        End With
        'Boucle sur les colonnes
        For j = 1 To ListView1.ColumnHeaders.Count - 1
            Sheets("Export").Cells(M, j + 1) = ListView1.ListItems(Item.Index).ListSubItems(j).Text
        Next j

 

[aubelix]

Re : Adaptation Listview

Bonjour Eric et Bqtr.

Merci pour vos réponses.

Une dernière chose : comment afficher après avoir ajouté
les 3 cellules en Msgbox la Désignation.
Exemple : GANTS BLANCS ajouté.

Car quand double click, on ne visualise pas l'ajout.
Par avance merci.

Cordialement.

 

[RENAUDER]

Re : Adaptation Listview

Bonjour,

 With Sheets("Export")
            M = .Range("A65536").End(xlUp).Offset(1, 0).Row
            .Cells(M, 1) = ListView1.ListItems(Item.Index).Text
        End With
        'Boucle sur les colonnes
        For j = 1 To ListView1.ColumnHeaders.Count - 1
            Sheets("Export").Cells(M, j + 1) = ListView1.ListItems(Item.Index).ListSubItems(j).Text
        Next j
        MsgBox "Vous venez d'ajouter le produit qui a pour désignation :" & vbCr & "      " & ListView1.ListItems(Item.Index).ListSubItems(1).Text

 

[aubelix]

Re : Adaptation Listview

Merci Eric et bqtr

Mille Mercis pour votre aide.
Bon week-end à tous.

Cordialement.