Discussion :

[Fvandermeulen]

Bonjour à tous,
Je viens de lire le Post sur la fonction Gauche, ce qui m'a donné une idée pour amélioré ma base (que je récupère d'une autre personne).

Pas de soucis pour indiquer la gauche ou même la droite, mais il faudrait que je 'compile' les deux avec un caratère supplémentaire.

Je m'explique, dans un champ j'ai des données qui correspondent aux heures mais qui n'e n'ont pas du tout le format, exemple 09h30 = 930; 10h30 = 1030.

J'aimerais l'avoir en format final 09:30 et 10:30.

J'imagine qu'il faut donc compter le nombre de caractères, si <4 alors 0&Left[(Champs],1)&":"&right([champs],2) mais je coince...surtout avec le 'si'

J'espère avoir été clair et pouvoir trouver de l'aide.
Merci,

[Pierre Fauconnier]

Bonjour

En VBA ou en Access?

En Access, Si se dit VraiFaux(Condition;Valeur si vrai; Valeur si faux)

En Access, voici quelque chose qui pourrait convenir et qui renvoie une donnée "heure" valide, nonobstant d'autres contrôles à effectuer (caractères numériques, ...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VraiFaux(NbCar([Champ1])<4;SérieHeure(Gauche([Champ1];1);Droite([Champ1];2);0);SérieHeure(Gauche([Champ1];2);Droite([Champ1];2);0))

[Fvandermeulen]

Re,
C'était en Access, pas VBA, un grand merci, ça fonctionne super, mais comme j'étais pas encore assez précis, j'ai oublié de dire que je suis en UK, j'ai donc du traduire, pour ceux que ça intéresse j'ai trouvé ça...
http://officesystemaccess.seneque.ne..._fonctions.htm

Et voici la 'fonction' de Pierre Fauconnier traduite:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Iif(len([Champ1])<4;TimeSerial(Left([Champ1];1);Right([Champ1];2);0);Timeserial(Left([Champ1];2);Right([Champ1];2);0))

Encore un grand merci et super rapide en plus