Soucis avec listBox

[Fariri]

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

 

[ChTi160]

Bonjour Fariri
il me semble :
Edit :

Seule la propriété "RowSource" permet d'avoir des entêtes de colonnes

sinon tu peux passer par des Labels qui contiendrons tes Entêtes !
jean marir

 

[herve62]

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

 

[Fariri]

Merci à vous deux pour vos réponses.
Dans mon code, comment faire pour qu'il n'intègre pas la ligne 1 lors de l'intégration des données dans la ListBox

 

[BOISGONTIER]

Bonjour,

Différents scénarios pour les en-têtes de ListBox:

Formulaire liste multi-colonnes

Boisgontier

 

[herve62]

Ci joint un exemple , tu mets ta boucle I=2 to ..... et la ligne entete ne s'affiche plus

 

[Fariri]

Ci joint un exemple , tu mets ta boucle I=2 to ..... et la ligne entete ne s'affiche plus

Merci Beaucoup, super

 

[Fariri]

Ci joint un exemple , tu mets ta boucle I=2 to ..... et la ligne entete ne s'affiche plus

Le soucis est que mon tableau comporte 3 colonnes que j'insère dans ma Listbox et je ne sais comment modifier le code du fichier que tu m'as transmis
J'ai essayé plusieurs solutions mais sans succès

 

[Fariri]

Bonjour,

Différents scénarios pour les en-têtes de ListBox:

Formulaire liste multi-colonnes

Boisgontier

Merci pour le lien, super
J'aimerai adapter mon code pour qu'il ne m'affiche pas la 1ère ligne car c'est l'entête de mon tableau

 

[BOISGONTIER]

Postez le fichier

Boisgontier

 

[herve62]

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]

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

 

[Fariri]

Postez le fichier

Boisgontier

Merci pour la proposition, le problème est résolu