ouvrir et fermer une userform

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Christian3000

XLDnaute Nouveau
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
2 K
Retour