Forcer saisie textbox avant de passer a la suivante [Résolu]

[arthur83fr]

bonjour,

me revoila avec deux petits pb que je n'arrive pas a resoudre

1 comment faire un controle de saisie sur un textbox cad si tb vide, on oblige la saisie de celle ci avant de passer a la tb suivante

2 sur un userform avec 8 tb je voudrais controler que 5 tb aient bien été replies (cad non vide) avant de de pouvoir valider les données et de les inscrire dans la feuille "Clients"

merci pour votre aide


je joint un bout de code pour le 1° pb mais celui ci ne fonctionne pas vraimentcomme je le voudrais

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
' force la saisie en majuscule dans champ Nom et verifie textbox non vide
 
Private Sub TextBox4Nom_KeyPress(ByVal keyAscii As MSForms.ReturnInteger)
keyAscii = Asc(UCase(Chr(keyAscii)))
 
If TextBox4Nom.Text = "" Then 'Cancel = True
    MsgBox "Veuillez saisir le nom"
    TextBox4Nom.SetFocus
Else
    Beep
End If
 
End Sub

[kiki29]

Salut, à consulter :

http://didier-gonard.developpez.com/...e-dans-texbox/ ainsi que http://silkyroad.developpez.com/VBA/...serForm/#LII-E

[Ormonth]

Bonjour,

pour un remplissage en cascade, tu peux jouer sur la propriété Enabled de tes contrôles, ils sont visibles grisés mais non accessibles et tu les libères au fur et à mesure des remplissages.

Pour la validation finale ( tenant compte du fait que sauf programmation contraire, l'utilisateur a pu effacer un contrôle après coup) tu peux faire un truc simpliste du genre :

Code :

1
2
3
4
5
For Each monControl In usfAmoi.Controls '  oblige saisie champs obligatoires
    If monControl.Name = "Toto1" Or monControl.Name = "Toto2" Or monControl.Name = "totox" Then
        If monControl.Text = "" Then MsgBox "vous devez compléter les champs en violet avant de Valider !", , "DVP Appli": Exit Sub
    End If
Next monControl

Si tu venais à avoir pas mal de contrôles à gérer ou à le faire de façon récurrente, au gré de ton avancement en VBA, penches-toi sur les modules de classe.

cordialement,

Didier

[arthur83fr]

bonjour,

je vous remercie pour vos reponses et conseils
j ai resolu mon pb

merci encore a vous