Soucis avec listBox

Fariri

XLDnaute Junior
Bonjour,

Je reviens vers vous une fois de plus pour m'aider à trouver la solution :
(je suis novice en la matière)
J'ai une listBox qui récupère des données dans un tableaux en colonne A, B et C en évitant les doublons (jusque là tout va bien), le soucis est qu'elle intègre la ligne 1 du tableau (la ligne 1 est l'entête du tableau) et que j'aurais souhaité que les entêtes soient intégrées dans ColumnHeads.
J'ai tourné le code dans tous les sens que j'ai pu mais je n'ai pas su faire l'intégration et le trie de doublon, c'est pourquoi je demande votre aide, voici mon code :


Sub Doublon_ListBox3()
'DECLARATION DES VARIABLES
Dim DerCell As Long, I As Long, J As Long
Dim Ws As Worksheet

Set Ws = Sheets("Véhicule_Agent") 'Sélection de la fiche agent

With Me.ListBox3
.ColumnCount = 3 'nombre de colonne dans la ListBox3
.ColumnWidths = "100;120;120" ' Taille des colonnes
.ColumnHeads = True 'Entête à True donc présence d'entête

DerCell = Ws.Range("A65536").End(xlUp).Row 'La variable DerCell récupère la derniere ligne non vide dans la colonne A

'Boucle sur les cellules de la colonne A
For I = 1 To DerCell
For J = 0 To .ListCount - 1

's'il y a doublon passe a la ligne suivante
If .List(J, 0) = Ws.Range("A" & I) Then Exit For
Next J

If J > .ListCount - 1 Then

'ajoute dans ListBox3 colonne 1
.AddItem Ws.Range("A" & I)

'ajoute dans ListBox3 colonne 2
.List(.ListCount - 1, 1) = Ws.Cells(I, 2)

'ajoute dans ListBox3 colonne 3
.List(.ListCount - 1, 2) = Ws.Cells(I, 3)

End If
Next I
End With

End Sub

Merci pour votre aide
 

herve62

XLDnaute Barbatruc
Supporter XLD
Bonjour
Pour aller au plus simple , les entêtes de colonnes ne fonctionnent pas avec "list" mais "rowsource" pas très pratique à utiliser ( mon opinion)
ayant déjà été confronté , je suis resté en List et j'ai mis des "label" au dessus de la listBox !! cela revient au même et pas de soucis
 

herve62

XLDnaute Barbatruc
Supporter XLD
mon tableau comporte 3 colonnes que j'insère dans ma Listbox
Bizarre ?? puisque dans mon exemple c'est exactement ta Sub Doublon_ListBox3 je n'ai que créé un usf avec listbox et j'ai fait qu'un copier/coller de ta sub , j'ai juste renommé la feuille "Feuil1" et j'ai mis des données bidon dedans ! donc tu remets le nom de feuille dans ton fichier et ça devrait aller
 

Fariri

XLDnaute Junior
Bizarre ?? puisque dans mon exemple c'est exactement ta Sub Doublon_ListBox3 je n'ai que créé un usf avec listbox et j'ai fait qu'un copier/coller de ta sub , j'ai juste renommé la feuille "Feuil1" et j'ai mis des données bidon dedans ! donc tu remets le nom de feuille dans ton fichier et ça devrait aller
Autant pour moi, tu as raison ça marche nickel, je me suis trompée de fichier
Super et merci
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 917
Membres
101 839
dernier inscrit
laurentEstrées