Specialisé les case d'Userform

Bonsoir,

Je souhaite mettre dans ma nouvelle userform diffèrentes choses :

  • / Grisailler la partie Qu/sortie, Qu retour et numèro de bons dans le CAS ou l'utilisateur appuie sur le bouton "entrée)
  • / Grisaille la partie Qu/entrée dans le Cas ou l'utilisateur appuie sur "Sortie"
  • / de saisir qu'une forme date dans la date, et qu'elle ne depasse pas la date de saisie
  • / de mettre que des chiffres dans la Qu/Entrée, Qu/Sortie, Qu/retour
  • / de saisir un nombre de 4 chiffres dans la partie Bon

Je vous joint mon fichier et je vous remercie d'avance !

11v1.xlsm (13.21 Ko)

Bonsoir soufiane8096

Oups je n'y comprend rien à ta demande ! à moins que tu puisses nous guider un peu plus !

Si quelqu'un a compris merci de venir à notre secours

Dans le document joint, dans la partie programmation y a un userform. Je veux que lorsque le Userform est lancé, que lorsque l'utilisateur choisie entrée, alors le partie numèro de bons, quan/sortie et quan/retour soit desactivé pour l'utilisateur pour ne pas qu'il puisse le remplir.

Puis s'il choisir sortie, alors la case quan/entrée soit désactivé.

Puis lorsqu'il veut écrire la date, il ne saisie qu'une forme date, et que la macro verifie si cette date est avant ou après la date ou il saisie, dans le cas d'avant sa passe, dans le cas d'après il refuse. Par exemple on est le 24 septembre 2013, si l'utilisateur saisi une sortie le 26 septembre 2013, un message d'erreur s'affiche !

Lorsqu'il saisie le numèro de bon : il ne pourra saisir que 4 chiffres (et pas des lettres)

Pour les quantités : saisir que des chiffres.

J'espere avoir été clair

Bonjour

Première réponse concernant l'OptionButton1.... le reste à suivre.

Tu as deux possibilité Textbox non visible ou non activé, au choix comme tu le souhaites.

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
TextBox2.Visible = False 'Textbox non visible
TextBox4.Enabled = False 'Textbox désactivé mais visible
Else
TextBox3.Enabled = True 'Textbox activé et visible
End If
End Sub
Rechercher des sujets similaires à "specialise case userform"