Passer de (TextBox1) à (ComboBox1) que faudra t-il modifier dans ma macro ?
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:
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 |
