J
Jeff
Guest
Bonjour le forum,
Je sèche sur un problème de validation de données dans un userform.
Dans le USF en question, il faut saisir différentes données (sexe, nom, prénom, réf., etc), puis cliquer sur un bouton de commande de validation.
Tant que l'ensemble des données n'est pas renseigné, un MSB Box affiche un petit message d'erreur. Je souhaiterais que lorsque l'ensemble des données est saisi, le clic sur le bouton de commande ferme le USF.
Ci-dessous, le code VBA actuel :
Sub Nom()
If UserForm1.ComboBox4.Value = "" Or UserForm1.ComboBox1.Value = "" Or UserForm1.ComboBox2.Value = "" Or UserForm1.ComboBox3.Value = "" Or UserForm1.TextBox1.Value = "" Or UserForm1.TextBox2.Value = "" Or UserForm1.TextBox3.Value = "" Then
MsgBox "Vous n'avez pas saisi toutes les données de base"
Else
If UserForm1.ComboBox4.Value = "Homme" Then
If UserForm1.TextBox3.Value < 1 Or UserForm1.TextBox3.Value > 36000 Then
Else
MsgBox "Le numéro de référence saisi est incorrect"
End If
Else
If UserForm1.TextBox3.Value < 100000 Or UserForm1.TextBox3.Value > 360000 Then
Else
MsgBox "Le numéro de référence saisi est incorrect"
End If
End If
Sheets(1).Range("P1") = UserForm1.TextBox1.Value
Sheets(1).Range("Q1") = UserForm1.TextBox2.Value
Sheets(1).Range("R1") = UserForm1.TextBox3.Value
Sheets(1).Range("R2") = UserForm1.ComboBox1.Value
Sheets(1).Range("P6") = UserForm1.ComboBox2.Value
Sheets(1).Range("Q6") = UserForm1.ComboBox3.Value
Sheets(1).Range("S1") = UserForm1.ComboBox4.Value
End If
End Sub
Merci par avance de votre aide et bravo et merci à toutes et celles et ceux qui font partager leur savoir sur Excel sur le forum...
A+
Je sèche sur un problème de validation de données dans un userform.
Dans le USF en question, il faut saisir différentes données (sexe, nom, prénom, réf., etc), puis cliquer sur un bouton de commande de validation.
Tant que l'ensemble des données n'est pas renseigné, un MSB Box affiche un petit message d'erreur. Je souhaiterais que lorsque l'ensemble des données est saisi, le clic sur le bouton de commande ferme le USF.
Ci-dessous, le code VBA actuel :
Sub Nom()
If UserForm1.ComboBox4.Value = "" Or UserForm1.ComboBox1.Value = "" Or UserForm1.ComboBox2.Value = "" Or UserForm1.ComboBox3.Value = "" Or UserForm1.TextBox1.Value = "" Or UserForm1.TextBox2.Value = "" Or UserForm1.TextBox3.Value = "" Then
MsgBox "Vous n'avez pas saisi toutes les données de base"
Else
If UserForm1.ComboBox4.Value = "Homme" Then
If UserForm1.TextBox3.Value < 1 Or UserForm1.TextBox3.Value > 36000 Then
Else
MsgBox "Le numéro de référence saisi est incorrect"
End If
Else
If UserForm1.TextBox3.Value < 100000 Or UserForm1.TextBox3.Value > 360000 Then
Else
MsgBox "Le numéro de référence saisi est incorrect"
End If
End If
Sheets(1).Range("P1") = UserForm1.TextBox1.Value
Sheets(1).Range("Q1") = UserForm1.TextBox2.Value
Sheets(1).Range("R1") = UserForm1.TextBox3.Value
Sheets(1).Range("R2") = UserForm1.ComboBox1.Value
Sheets(1).Range("P6") = UserForm1.ComboBox2.Value
Sheets(1).Range("Q6") = UserForm1.ComboBox3.Value
Sheets(1).Range("S1") = UserForm1.ComboBox4.Value
End If
End Sub
Merci par avance de votre aide et bravo et merci à toutes et celles et ceux qui font partager leur savoir sur Excel sur le forum...
A+