Listbox

Bonsoir,

Dans un userform j'ai une listbox qui me permet de sélectionner une valeur (des noms) , je souhaiterai lorsque je fais une sélection dans la listbox un code qui permet de vérifier si dans la feuille active en colonne D si se choix à déjà été fait .

Merci de votre expertise

Bonsoir

Essayes ce code

Private Sub ListBox1_Click()
  If Application.CountIf(Columns("D"), Me.ListBox1) > 0 Then
    MsgBox "Choix déjà fait"
  End If
End Sub

Merci parfait