Utilisation de TextBox [Résolu]

- - Dernière réponse : cs_Le Pivert
Messages postés
5701
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 janvier 2019
- 19 déc. 2012 à 08:42
Bonsoir
Dans un userform j'ai deux contrôles Textbox. Je veux tester si ces controles sont vides et si c'est le cas obliger l'utilsateur à saisir des données dans ces Textbox. J'ai fait une boucle avec setfocus sur ces contrôles, mais le code (ci-dessous) se déroule sans attendre les saisies utilisateur. Que faut-il ajouter pour que l'on bloqué en attente de la saisie utilisateur?

Do While Not exitloop

If ((SH1.Cells(gVarligne, colCustomer) "") Or (SH1.Cells(gVarligne, colProject) "")) Then
MsgBox "Please fill first the Customer or Project field before choosing the region"
' enter modifications
WorkloadPlan.CustomerN.SetFocus
WorkloadPlan.CustomerN.Text = "Enter the Customer's Name"
WorkloadPlan.ProjectN.SetFocus
WorkloadPlan.ProjectN.Text = "Enter the Project's Name"
Else
WorkloadPlan.CustomerN.Value = SH1.Cells(gVarligne, colCustomer)
WorkloadPlan.ProjectN.Value = SH1.Cells(gVarligne, colProject)
WorkloadPlan.WorkPN.Value = SH1.Cells(gVarligne, colWP)
exitloop = True
End If
Loop

Merci

SamGuelis
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
5701
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 janvier 2019
466
3
Merci
Bonjour,

Essaie ceci:

 
    If TextBox1.Text "" Or TextBox2.Text "" Then
    MsgBox "Please fill first the Customer or Project field before choosing the region"
Else
    'tu mets ta boucle ici
  End If



@+ Le Pivert

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_Le Pivert
0
Merci
Bonjour,

Fais deux boucles. Comme ton code ne m'inapire absolument rien et que j'ignore à quoi correspondent tes objets, voici un modèle. Et puis c'est complètemet illogique de demande un nom de client et un nom de projet, de ne pas les lire puis de les écraser avec des données provenant de la feuille de calcul

Sut ta Form:

2 labels pour les instructions
2 textboxes pour les entrées

Dans un button_click

label1.caption = "Enter the Customer's Name"
do
nomclient = textbox1.value
loop until nomclient>""
label1.caption = "Enter the Project's Name"
do
nomprojet = textbox2.value
loop until nomprojet>""
Commenter la réponse de Utilisateur anonyme
Messages postés
130
Date d'inscription
dimanche 16 décembre 2007
Dernière intervention
28 janvier 2013
0
Merci
tu peut utiliser les événements timer pour vérifier si c'est vide ou pas !
ou tu peut utiliser les événements "change" des textbox !
Commenter la réponse de rebixav

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.