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
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