Vérifie Doublons dans Colonne ListBox

[MuscatMimi]

Bonjour a tout le Forum

Dans le Code ci-dessous sert a vérifier les Doublons dans la Listbox2
pour la premiére Colonne,pour moi pas bon

Je n'arrive pas a le Modifier, afin que les Doublons soient vérifiés dans
la deuxiéme Colonne

Ou dois-je modifier???? merci de votre aide

Private Sub CommandButton10_Click()
'transfert 1 vers 2

Dim x As Integer, i As Integer 'déclare les variable x et i

For x = 1 To ListBox1.ListCount - 1 'boucle 1 : sur tous les éléments de la ComboBox1
    
    If ListBox1.Selected(x) = True Then 'condition 1 : si l'élément est sélectionné
    
        For i = 1 To ListBox2.ListCount - 1  'boucle 2 : sur tous les éléments de la ComboBox2
            If ListBox1.List(x) = ListBox2.List(i) Then 'condition 2 : si les éléments sont identiques
                MsgBox " la donnée " & ListBox1.List(x) & " a déjà été sélectionnée.", , "Attention" 'message
                ListBox2.RemoveItem (i) 'supprime l'élément de la ComboBox2
                GoTo suite 'va à la balise suite (sans ajouter cet élément à la ComboBox2)
            End If 'fin de la condition 2
        Next i 'prochain élément de la boucle 2
        
       ' ListBox2.AddItem ListBox1.List(x) 'ajoute l'élément à la ComboBox2
 '**************************************moi
    'ListBox1.RemoveItem ListBox1.ListIndex
  ComboBox4.SetFocus
  If ListBox1.ListIndex = -1 Then Exit Sub
ListBox2.AddItem ListBox1.Value
ListBox2.List(ListBox2.ListCount - 1, 1) = ListBox1.Column(1, ListBox1.ListIndex)
ListBox2.List(ListBox2.ListCount - 1, 2) = ListBox1.Column(2, ListBox1.ListIndex)
ListBox2.List(ListBox2.ListCount - 1, 3) = ComboBox4.Value

If Me.ComboBox4 = "" Then
      MsgBox "Attention Vous Avez Oublié de Saisir une Quantité"
     ListBox2.Clear
 
Me.ComboBox4.SetFocus

Exit Sub

 End If
  Me.ComboBox4 = ""
'*************************************************************moi
    End If 'fin de la condition 1

suite: 'balise
Next x 'prochain élément de la boucle 1

For x = 1 To ListBox1.ListCount - 1 'boucle 3: sur tous les éléments de la ComboBox1
    ListBox1.Selected(x) = False 'désélectionne les éléments sélectionnés
Next x 'prochain élément de la boucle 3

'Call comptage 'lance la macro "comptage"
End Sub

Bonne journée
Cordialement

 

[kjin]

Re : Vérifie Doublons dans Colonne ListBox

Bonjour,
2e colonne ou Listbox2 ?
A+
kjin

 

[MuscatMimi]

Re : Vérifie Doublons dans Colonne ListBox

Salut Kjin

Je cherche a modifier ce code afin qu'il cherche doublons que ,dans
Colonne2 de la ListBox2

actuellement il cherche les doublons dans Colonne 1 de la ListBox2

A plus Kjin

 

[kjin]

Re : Vérifie Doublons dans Colonne ListBox

Re,
Pas sûr d'avoir compris, tu as plusieurs colonnes dans chaque listbox, tu veux tester les doublons entre quoi et quoi ? listbox1/colonne1 --> listbox2/colonne2 ou sinon précise
A+
kjin

 

[MuscatMimi]

Re : Vérifie Doublons dans Colonne ListBox

tu a mallu ma derniére réponse,ou je me suis mal exprimé

Vérifie doublons ListBox2, Colonne 2

a plus

 

[MuscatMimi]

Re : Vérifie Doublons dans Colonne ListBox

Bonsoir
Juste un petit Up

Kjin m'a oublié,ou est trés occupé

Bonne soirée

 

[kjin]

Re : Vérifie Doublons dans Colonne ListBox

Bonsoir,
C'est un peu les 2
Mais comme je n'ai toujours pas pigé, essaie ceci

If ListBox1.List(x) = ListBox2.List(i, 1)

A+
kjin

 

[MuscatMimi]

Re : Vérifie Doublons dans Colonne ListBox

Re kjin

Prends ton temps,
Je viens de faire un essai avec ton code
mais en fait j'avais déja essayé cela
rien ne fonctionne


Bonne soirée
A ++++++

 

[kjin]

Re : Vérifie Doublons dans Colonne ListBox

Re,
Ce serait plus simple de faire passer un bout de fichier et l'explication qui va avec
A+
kjin

 

[MuscatMimi]

Re : Vérifie Doublons dans Colonne ListBox

ok
je te le passe demain

 

[MuscatMimi]

Re : Vérifie Doublons dans Colonne ListBox

Bonjour Kjin

J'ai contourné le problème en retirant l'item choisi dans ListBox1
une fois chargé dans la Listbox2
et vice versa
Regarde mon Fichier
Je vais le placer en Téléchargement
En fait j'ai commencé a faire ce fichier, d'aprés un fil de discution
a propos de Liste de Courses

Bonne journée
Cordialement

 

[kjin]

Re : Vérifie Doublons dans Colonne ListBox

Bonjour,
J'ai compris cette fois !
La solution retenue me parait être la bonne
Tu pourrais, pour le fun, utiliser le glisser/déplacer
A+
kjin

 

[MuscatMimi]

Re : Vérifie Doublons dans Colonne ListBox

Bonjour Kjin

Oui je vais essayer le Glissé/Déposé

a++++++++++

 

[MuscatMimi]

Re : Vérifie Doublons dans Colonne ListBox

Re Kjin

et bé dur dur de faire un glissé déposé

j'y suis pas encore arrivé

 

[Bebere]

Re : Vérifie Doublons dans Colonne ListBox

bonjour Vaucluse,Kjin
si cela peut t'aider tant mieux
à bientôt