Rendre obligatoire toutes les saisies

[aubelix]

Bonjour à tous les amis du Forum

Une fois de plus, je sollicite votre aide.
Je suis bloqué sur un problème simple pour les pros de VBA.
Via un USF et des listes déroulantes, je renseigne diverses
rubriques.
J'aurais aimé rendre obligatoire la saisie de tous les champs.

Soit par message d'erreur si tous les rubriques n'ont pas été renseignées
soit griser toutes les rubriques et dégriser au fur et à mesure qu'elles
sont renseignées. Ne donner la main sur le bouton valider que lorsque
toutes les champs ont été renseignés.

Une autre condition le champ "Ordre" en jaune doit être impérativement numérique.

Par avance Merci pour votre aide.
Cordialement.

 

[yassoux]

Re : Rendre obligatoire toutes les saisies

Salut!
personnellement je me forme aussi à vba donc je ne suis pas encore un AS ^^
mais pour ce qui est d'obliger l'utilisateur à entré des valeurs numérique, j'ai déjà galérer donc voila pour toi :

Private Sub textbox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Is < 48, Is > 57
KeyAscii = 0
End Select

End Sub

voili voiloux

 

[GeoTrouvePas]

Re : Rendre obligatoire toutes les saisies

Bonjour,

Et voilà qui devrait te convenir. Je t'ai mis quelques commentaires pour que tu comprennes les manip. Hésite pas à faire signe si il y a un soucis.

Bonne journée

 

[aubelix]

Re : Rendre obligatoire toutes les saisies

Merci pour vos réponse Yassoux et GeoTrouvePas

Le fichier que tu as joint GeoTrouvePas est déjà mis bien au chaud
pour le garder précieusement...

Merci pour cette leçon et de ta disponibilité.
Cordialement.

 

[GeoTrouvePas]

Re : Rendre obligatoire toutes les saisies

Mais de rien ! C'est comme ça que j'ai vraiment commencé Vba il y a de ça deux mois, en farfouillant et en interrogeant les forums et surtout en comptant sur la disponibilité des autres ^^

 

[aubelix]

Re : Rendre obligatoire toutes les saisies

Re GeoTrouvePas

Après test..., cerise sur le gateau :
Est-il possivle dès que les 6 champs sont bien remplis et une confirmation
que les données choisies sont conformes, de fermer l'USF ?

Par avance Merci.
Cordialement.

 

[GeoTrouvePas]

Re : Rendre obligatoire toutes les saisies

Oui. Comme tu l'as déjà fait pour la gestion du bouton "Annuler", il suffit de rajouter, à la fin de la procédure "CommandButton1_click" :

Unload USF_saisies

 

[aubelix]

Re : Rendre obligatoire toutes les saisies

Re
Merci, j'ai interprété, alors que c'est logique.

Cordialement