Complément de code

Bonjour le Forum,

Je viens de créer un code de manière à recopier la ListeBox1 vers ListBox2, j'aimerai un complément de code avant d'effectuer la copie de manière à controler si un items est déjà dans ListBox2.

* ListBox1 multiselect

- Plusieurs Items (10 par ex)

je copie 5 items, ensuite 3 nouveaux items (la j'aimerai vérifier qu'il n'y a pas de doublon dans les items).

Si pas de doublon , on copie (mon code) sinon on annule le doublon.

est ce possible, svp ?

Mon code

Private Sub CommandButton2_Click()
' De la Listbox1 vers la ListBox2
Dim I As Integer, Heures As Integer

  With Me.ListBox2
  ' Je suppose ici le code à ajouter' SI doublon on l'efface
    For I = 0 To Me.ListBox1.ListCount - 1
      If Me.ListBox1.Selected(I) = True Then
        .AddItem ListBox1.List(I)
        .List(.ListCount - 1, 1) = Me.TextBox2
        .List(.ListCount - 1, 2) = Me.TextBox3
    If Me.OptionButton1 = True Then
        .List(.ListCount - 1, 3) = "CP"
    Else
        .List(.ListCount - 1, 3) = ""
    End If
    If Me.OptionButton2 = True Then
        .List(.ListCount - 1, 4) = "CA"
    Else
        .List(.ListCount - 1, 4) = ""
    End If
        .List(.ListCount - 1, 5) = ""             ' Pour enlever le Null
        .List(.ListCount - 1, 6) = ""             ' Pour enlever le Null
      End If
    Next I
  End With
End Sub

Cdlt

pompaero

Bonjour Pompaero, bonjour le forum,

Peut-être comme ça :

Private Sub CommandButton2_Click()
' De la Listbox1 vers la ListBox2
Dim I As Integer, Heures As Integer, J As Integer

With Me.ListBox2
    ' Je suppose ici le code à ajouter' SI doublon on l'efface
    For I = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(I) = True Then
            For J = 0 To .ListCount - 1
                If Me.ListBox1.List(I) = .List(J) Then GoTo suite
            Next J
            .AddItem ListBox1.List(I)
            .List(.ListCount - 1, 1) = Me.TextBox2
            .List(.ListCount - 1, 2) = Me.TextBox3
            If Me.OptionButton1 = True Then
                .List(.ListCount - 1, 3) = "CP"
            Else
                .List(.ListCount - 1, 3) = ""
            End If
            If Me.OptionButton2 = True Then
                .List(.ListCount - 1, 4) = "CA"
            Else
                .List(.ListCount - 1, 4) = ""
            End If
            .List(.ListCount - 1, 5) = ""             ' Pour enlever le Null
            .List(.ListCount - 1, 6) = ""             ' Pour enlever le Null
        End If
suite:
    Next I
End With
End Sub

Bonjour,

un jour j'ai fais ce fichier :

Il ne correspond pas forcément à la problématique, mais la gestion des doublons existe puisque cela entraine un cumul dans la liste 2...

@ bientôt

LouReeD

Bonjour ThauThème, LouReeD

Déjà, désolé pour ce silence un peu long, travail oblige.

Je vous réponds rapidement, en vous remerciant de vos réponses et vu l'heure tardive, je regarde vos propositions demain.

Merci

Cordialement

pompaero.