Bonjour à tous

Voila je suis face un problème de modification en effet ci-dessous j'ai une macro qui vérifie et empêche la validation des doublons saisis dans un texte box (TextBox1) jusque là tout fonctionne bien mais le soucis que j'ai c'est quand au lieu de (TextBox1) c'est (ComboBox1)

Que faudra t-il modifier pour avoir le même principe de la (TextBox1) avec le (ComboBox1)

Merci à vous tous

Cordialement

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Private Sub Validation_Click()
Dim rg As Range
On Error Resume Next
'Si le Produit est déjà existant
  Set rg = Sheets("Liste_Des_Produits").Range("Produits").Find(TextBox1, , xlValues, xlWhole, , , False)
  If Not rg Is Nothing Then
'Alors une erreur s'est produite, en se positionnant sur la Trim TextBox1
  MsgBox " (" & TextBox1 & ") est déjà existant! Veuillez choisir un autre nom de produit", vbOKOnly + vbCritical, "Ajout impossible..."
  On Error GoTo 0: TextBox1.SetFocus: Exit Sub
  End If
End sub