DATE de naissance en VBA

[GILLES]

Bonjour à tous.

Une question de plus sur les dates de naissance.
J'ai chercher en vain sur le forum.

En effet, j'ai des billets de train à prendre + 12 ans, - de 12 ans.
Je ne sais même pas par où il faut commencer. J'ai monté un USF
en pièce jointe.

Si quelqu'un peut m'aider je lui suis déja reconnaissant.

Gilles

 

[Gérard DEZAMIS]

Bonsoir Gilles

Pas d'espoir hâtif
je ne te propose que qq chose en formule on ne sait jamais si les "Excelliens VBAteux" sont encore à la plage ou coincés au bureau par les orages !

@+
GD

 

[gilles]

-Merci Gérard
Je vais tenter de comprendre vu mon modeste niveau.

Gilles

 

[Gérard DEZAMIS]

Bonjour Gilles

Pas de problème si tu accroches sur qq chose dans ce fichier tu me demandes...
Tu vois je suis encore en train de dépouiller les macros des autres pour progresser alors ...

@ Bientôt

GD

 

[salim]

Bonjour Gilles , Gérard et le Forum

Gilles je me suis pencher sur ton problème et j'ai réussi a réaliser une version qui fonctionne malgré 1 ou 2 petit BUG du à la saisie correcte des dates il faut les saisir au format 00/00/0000 .
et entrée une date valide le 32/13/2004 t'enverra voir notre ami le BUG.
pour la date de départ tu as le choix de la saisir via le contrôle calendrier ou à la main, si tu saisie à la main ATTENTION format 00/00/0000 sinon BUG.

une phrase de commentaire à l'intérieur du code fait référence à GM prière de ne pas l'effacer car sans son application réaliser le 17-01-2003 pour XLD.
je n'aurai sans doute pas réussi ce petit programme qui j'espère répondra à tes attentes , tiens nous au courant.

@+ Salim

 

[@+Thierry]

Bonjour Salim, Gérard, Gilles,

Vite fait avant de me coucher je viens de jetter un coup d'oeil à ton fichier Salim, pour ton problème de Checking si on a bien saisi une date, remplace ton test sur la TextBox6 en début de "Private Sub CommandButton1_Click()" par celui-ci :

If Not IsDate(TextBox6) Then
MsgBox " Vous devez saisir une date SVP merci "
With TextBox6
.Value = ""
.SetFocus
End With
Exit Sub
End If

C'est tout simple


Bon Dimanche
@+Thierry

 

[salim]

Bonsoir le Fil et le Forum

Merci @+Thierry c'est noter je suis ton conseil dès demain.

@+ Salim

 

[Gérard DEZAMIS]

Bonjour à Tous

Pour essayer les conseils-transfo de @+T je lance
DatesVBAGilles.zip et j'obtiens ===> mon fichier joint !

On est dimanche, c'est repos mais où est passé mon calendrier ?
Auriez-vous une petite idée dominicale ?

Merci d'avance

@+
GD

 

[salim]

Salut le Fil et le Forum

Salut Gérard si j'ai bien compris tu tombe sur ton propre fichier ? alors là aucune idée.



Je join le fichier, modifier . tiens nous au courant si tu n'arrive pas à l'ouvrir.

@+ Salim

 

[Gérard DEZAMIS]

Bonjour Salim

Merci de voler aussi rapidement à mon secours.
Non, je ne tombe pas sur mon fichier, je vien d'ouvrir le tien et idem, le calendrier s'affiche, je rentre les dates, les calculs sont bons et le tarif est correct mais dans mes cases de calendrier je n'ai ...... rien !

Je clique donc au hasard pour afficher une date Un peu humoristique comme solution non ?

Bon Diamche et Mercie encore
@+
GD

 

[salim]

Re Gérard

Si j'ai bien saisie tu as les cases du calendrier et tu ne vois pas les jour inscrit dessu donc tu click sur des case don tu ne voi pas le chiffre est-ce bien ça ?.

@+ Salim

 

[Gérard DEZAMIS]

Re Salim

Tout à fait !

Et je ne sais pas comment réinstaller ce fichu calendrier !

@+
GD

 

[salim]

Re Gérard

Alors tu vas dans VBE tu click sur la barre de menu "OUTILS" ensuite "CONTROLES SUPPLEMENTAIRES". et tu selectionne " CONTROLE CALENDRIER " et il devrait normalement faire son apparition dans ta boîtes à outils.

Tiens nous au courant.

@+ Salim

 

[GILLES]

Bonjour à tous.

Je remercie vivement, avec certes du retard, tous ceux qui m'ont répondu.


Bonne journée à tous.

 

[salim]

Re le Fil et le Forum

Gilles une modification à été apportée au code pour qu'il passe au mois suivant en effet j'ai tapée ma date de naissance il ma indiqué le nombre d'année (ok) le nombre de mois et 34 jours au lieu de passer au mois supérieur alors je joint le fichier corrigé.

@+ Salim