Champs obligatoire

[tophe76]

Bonjour,

Dans mon fichier ci-joint, je souhaiterai :
- dans le champs date que le format soit en date

De plus, je voudrai savoir si il y a une possibilité que si un champs du formulaire ne soit pas remplis qu'on ne puisse pas le validé.

Et pour finir, je souhaiterai quand on appuie sur tabulation, la selection se faisse dans l'ordre des champs

Merci par avance pour votre aide

Cordialement

 

[camarchepas]

Re : Champs obligatoire

Bonjour Tophe,

Oui , mais quel est l'ordre des champs justement ...

 

[tophe76]

Re : Champs obligatoire

l'ordre est :
Date, Catégorie, Sous catégorie, Lieu, ouvrant, source, référence source, commentaire, action curative, résultat, valider, annuler

 

[Gelinotte]

Re : Champs obligatoire

Bonjour,

Un essai ...



G

 

[Jam]

Re : Champs obligatoire

Salut Tophe, camarchepas, Gelinotte, le forum,

Pour choisir l'ordre de tabulation il te suffit d'aller dans les propriétés de l'objet et d'ajuster les 2 propriétés suivantes:
TabStop -> mettre sur True
TabIndex -> Indiquer le numéro d'ordre.

Autre solution, passer par le menu Affichage>Ordre de tabulation puis dans la fenêtre qui s'affiche, ordonner les tabulations.

Bon courage.

 

[tophe76]

Re : Champs obligatoire

merci beaucoup,

Mais le format date on peut écrit encore se que veut. il n'y aurait pas un moyen pour que le format date soit directement intégrer dans le formulaire???

 

[Gelinotte]

Re : Champs obligatoire

Bonjour,

Pour ma part, je ne saurai comment faire. Je laisse les collègues, avec de meilleures connaissances, nous aiguiller sur une bonne solution.


G

 

[Jam]

Re : Champs obligatoire

tophe,

Il existe 2 possibilités à ma connaissance (aucune n'est vraiment simple):
Soit on gère la date dans la Textbox, soit on utilise un objet type ActiveX qui gère les calendrier comme DatePicker (solution plus complexe à mettre en oeuvre). Pour ce dernier, tu peux jeter un oeil à ce lien Activation du contrôle de calendrier et DatePicker pour MS Excel 2010 qui te donnera quelques indications précieuses.
Concernant la première solution, il faut que tu gères le format via le code. Je t'invite à charger la solution de Robert que tu trouveras là https://www.excel-downloads.com/threads/controle-de-date-en-vba.49196/.

Bon courage

 

[Jam]

Re : Champs obligatoire

tophe,

Il existe 2 possibilités à ma connaissance (aucune n'est vraiment simple):
Soit on gère la date dans la Textbox, soit on utilise un objet type ActiveX qui gère les calendrier comme DatePicker (solution plus complexe à mettre en oeuvre). Pour ce dernier, tu peux jeter un oeil à ce lien Activation du contrôle de calendrier et DatePicker pour MS Excel 2010 qui te donnera quelques indications précieuses.
Concernant la première solution, il faut que tu gères le format via le code. Je t'invite à charger la solution de Robert que tu trouveras là https://www.excel-downloads.com/threads/controle-de-date-en-vba.49196/.

Bon courage

 

[job75]

Re : Champs obligatoire

Bonsoir à tous,

Ce code dans l'USF contrôlera le format de la TextBox TDate :

Private Sub Tdate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TDate <> "" And Not (TDate Like "##/##/####" And IsDate(TDate)) Then
  Cancel = True
  MsgBox "Entrez une date au format jj/mm/aaaa"
  TDate = ""
End If
End Sub

A+

 

[job75]

Re : Champs obligatoire

Re,

Bien sûr si le format de la date n'a pas d'importance :

Private Sub Tdate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TDate <> "" And Not IsDate(TDate) Then
  Cancel = True
  MsgBox "Date non valide !", 48
  TDate = ""
End If
End Sub

A+

 

[job75]

Re : Champs obligatoire

Re,

Cela dit en VBA les dates vont de l'an 100 à l'an 9999...

Si l'on veut des années postérieures à 2011 :

Private Sub Tdate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim an As Integer
If IsDate(TDate) Then an = Year(CDate(TDate))
If TDate <> "" And (Not TDate Like "##/##/####" Or an < 2012) Then
  Cancel = True
  MsgBox "Entrez une date au format jj/mm/aaaa à partir de l'année 2012"
  TDate = ""
End If
End Sub

Private Sub Tdate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim an As Integer
If IsDate(TDate) Then an = Year(CDate(TDate))
If TDate <> "" And an < 2012 Then
  Cancel = True
  MsgBox "Entrez une date valide à partir de l'année 2012"
  TDate = ""
End If
End Sub

A+