ouvrir et fermer une userform

[Christian3000]

Bonjour à tous,

Petit problème (sûrement facile) à vous soumettre! 😀
J''ai créé une userform pour ajouter des contacts à une base de données. 4 textbox dans cette userform: nom, prénom, date de début du contrat et date de fin.
Le truc c'est que j'aimerais que la userform se ferme automatiquement si les textbox nom et prénom sont remplies. Si non, j'ai prévu une msgbox (qui marche par ailleurs très bien) pour rappeler à l'utilisateur de remplir les textbox et j'aimerais que, dans ce cas-là, la userform reste ouverte.

Voici le code:

Private Sub CommandAjouter_Click()
Dim numlignevide As String
Worksheets("EE").Activate
numlignevide = ActiveSheet.Columns(10).Find("").Row
If TextNom.Text = "" Then
MsgBox "Veuille remplir le nom du participant", vbCritical, "Champs manquant"
TextNom.SetFocus
ElseIf Textprenom.Text = "" Then
MsgBox "Veuille remplir le prénom du participant", vbCritical, "Champs manquant"
Textprenom.SetFocus
Else
ActiveSheet.Cells(numlignevide, 10) = UCase(TextNom.Text)
ActiveSheet.Cells(numlignevide, 11) = Textprenom.Text
ActiveSheet.Cells(numlignevide, 12) = DTPdebut.Value
ActiveSheet.Cells(numlignevide, 13) = DTPfin.Value
TextNom.Text = ""
Textprenom.Text = ""
TextNom.SetFocus
End If

Merci d'avance pour votre aide!

Christian

 

[Christian3000]

Re : ouvrir et fermer une userform

Merci! Ça marche parfaitement!

Bonne soirée,

Ch.