VBA Userform

[chloe1992]

J’ai une base de données qui renseigne le nom d’un client et à coté son statut. Je souhaiterais que en remplissant un formulaire (Userform) on puisse rajouter un client et son statut dans la base. Je souhaiterais ensuite qu’un message d’erreur s’affiche si nous saisissons un client qui est déjà dans la base pour nous empêcher d’avoir un doublon. Mais je voulais laisser une possibilité de modifier le statut d’un client qui existe dans la base. Je pensé utiliser une checkbox si on l’on choisit un client qui existe déjà : message d’erreur mais si on coche la checkbox on va chercher le client dans la base on le cible pour venir apporter notre modification sur le nouveau statut qu’on lui donne.

Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

'Ce code permet d empêcher la validation si la valeur que nous avons
' choissit dans le combobox est une valeur déjà présente dans la base client
Dim rg As Range
If ComboBox1.Text = "" Then Exit Sub
Set rg = Sheets("Client").Range("A:A").Find(ComboBox1.Text)
If Not rg Is Nothing Then
MsgBox "Existe déjà"
Cancel = True


If CheckBox1 = False ???????????????????????????????? C'est la que je bloque


End If
End If
End Sub