controle de saisie des userforms

[Adeus]

Bonjour à toutes et à tous.

Est t'on capable d'obliger un utilisateur à remplir la totalité de l'userform?

Est il possible de controler ce que marque un utilisateur dans l'userform (par exemple si on demande un nombre, et que l'utilisateur marque un mot, le userform ne se fermera psa).

J'ai mis un exemple pour mieux expliquer ma problématique.

Merci d'avance.

[file name=TestAdeus.zip size=21072]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TestAdeus.zip[/file]

Adeus

 

[PascalXLD]

Bonjour

juste après ta ligne

Private Sub CommandButton1_Click()

Tu fais un test sur tes textbox

du genre

if textbox1 ='' then
msgbox 'Il faut remplir toutes les zones'
exit sub
End if

......

If TextBox8 = '' Then
MsgBox 'Il faut remplir toutes les zones'
Exit Sub
ElseIf Not IsNumeric(TextBox7) Then
MsgBox 'La quantité est un nombre'
Exit Sub
End If

Bon courage

 

[mutzik]

bonjour Adeus

Ci-dessous un exemple pour le textbox6

Private Sub CommandButton1_Click()
Ligne = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
Range('A' & Ligne - 1) = TextBox1
Range('B' & Ligne - 1) = TextBox2
Range('C' & Ligne - 1) = TextBox3
Range('D' & Ligne - 1) = TextBox4
Range('E' & Ligne - 1) = TextBox5

If Not IsNumeric(TextBox6) Then
TextBox6 = ''
TextBox6.SetFocus
Exit Sub
End If

Range('F' & Ligne - 1) = TextBox6
Range('G' & Ligne - 1) = TextBox7
Range('H' & Ligne - 1) = TextBox8
Unload Me
End Sub

arfff Salut Pascal

Message édité par: mutzik, à: 12/01/2006 17:38

 

[PascalXLD]

Re et salut bertrand

Perso Bertrand je préfère faire tous mes contrôles avant de coller quoi que ce soit dans ma feuille

Je pars du principe que les tu commences à copier le textbox1 puis le 2 et que le controle du 3 te fais sortir de la procédure. Donc une fois le textbox3 correct tu recommences toute l aprocédure donc tu re recopies le textbox 1 puis le 2 sur une nouvelle ligne.
Donc tu as une erreur dans ta base de données

Bonne soirée à tous

 

[mutzik]

Re, Salut Pascal,

tout à fait d'accord avec toi, ce que j'ai proposé n'était en fait qu'un exemple pour la 6, à l'utilisateur de faire pour les autres et chercher un peu.

J'ai toujours été contre le fait de fournir des solutions clé en main, sauf urgence !

Je pense que cela ne fait pas progresser le demandeur si on lui donne le tout fini

bonne soirée, je rentre chez moi

 

[adeus]

Merci beaucoup pour ces explications.

Adeus