Doublon entre listbox et colonne A

bonjour

ce code

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            Exit For
        End If
    Next i

    Ln = Range("A" & Rows.Count).End(xlUp)(2).Row
    Range("A" & Ln) = ListBox1.Column(0, i)
    Range("B" & Ln) = ListBox1.Column(1, i)
    Range("E" & Ln) = ListBox1.Column(2, i)
    Range("D" & Ln) = ListBox1.Column(3, i)
    Range("C" & Ln) = "DM"
    UserForm1.Show

End Sub

me permet au double click sur une ligne de ma listbox d'insérer les informations dans une feuille excel jusque la sa fonctionne parfaitement mais j'aimerai que quand je double, click sur la ligne il compare la première colonne de la listbox et la colonne A du fichier pour voir si je n'est pas un doublon et si il y a un doublon msgbox si pas de doublon insertion de la ligne dans le fichier.

merci

Bonjour

Sinon je ne comprends le pourquoi de votre boucle .Idem pour l'instruction userform1.show --> A supprimer je pense
Puis dans votre code, Listbox1.column(0, i) va vous renvoyer une erreur. La valeur de la variable i vient d'où ?

Cordialement

Edit : Essayez ceci

If WorksheetFunction.CountIf(Range("A:A"), Me.ListBox1.List(ListBox1.ListIndex, 1)) > 0 Then MsgBox "votre message"

effectivement cela ne sert a rien j'ai recopier sa d'un autre fichier

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

   ' For i = 0 To ListBox1.ListCount - 1
    '    If ListBox1.Selected(i) = True Then
     '       Exit For
      '  End If
    'Next i
    If WorksheetFunction.CountIf(Range("A:A"), Me.ListBox1.List(ListBox1.ListIndex, 1)) > 0 Then
    MsgBox "votre message"
        Else

    Ln = Range("A" & Rows.Count).End(xlUp)(2).Row
    Range("A" & Ln) = ListBox1.Column(0, i)
    Range("B" & Ln) = ListBox1.Column(1, i)
    Range("E" & Ln) = ListBox1.Column(2, i)
    Range("D" & Ln) = ListBox1.Column(3, i)
    Range("C" & Ln) = "DM"
    UserForm1.Show
  '  TextBox1 = ""
    End If

End Sub

sa ne fonctionne pas

Au début de votre code mettez ceci

Msgbox Me.ListBox1.List(ListBox1.ListIndex, 1)

cela vous renvoie quoi ?

If WorksheetFunction.CountIf(Range("A:A"), Me.ListBox1.List(ListBox1.ListIndex, 1)) > 0 Then

sa fonctionne il fallait remplacer par

If WorksheetFunction.CountIf(Range("A:A"), Me.ListBox1.List(ListBox1.ListIndex, 0)) > 0 Then

merci beaucoup