convertion nombre en format date ex : 1230 en 12:30

[khephrens]

bonsoir le forum

j'aimerais, que dans une plage donnée ex: (a1:e6), convertir en vba des nombres saisis en format date
ex: 12 en 12:30 ou 1230 en 12:30
l'objectif étant d'avoir un meilleur confort de saisie et au final pouvoir additionner des heures.

merci pour votre aide
khephrens 🙂

 

[Misange]

Re : convertion nombre en format date ex : 1230 en 12:30

Bonsoir

regarde ici
Ce lien n'existe plus

 

[mapomme]

Re : convertion nombre en format date ex : 1230 en 12:30

Bonsoir voisin 🙂,

Ma première boude ce soir. Et ce n'était pas la dernière 🙁

 

[khephrens]

Re : convertion nombre en format date ex : 1230 en 12:30

merci pour l'info
j'ai récupéré cette macro :

sub formH()
Application.ScreenUpdating = False
For Each c In Selection
c.Value = TimeValue(Left(Application.Text(c.Value, "0000"), 2) _
& ":" & Right(c.Value, 2))
c.NumberFormat = "h"" H ""mm"
Next c
end sub

mais elle ne fonctionne pas ou je ne sais pas comment la faire fonctionner..
j'aimerais qu 'a chaque saisie dans une cellule d'une plage donnée la macro s'applique automatiquement.
je ne sais pas si je suis assez clair 🙂

 

[Victor21]

Re : convertion nombre en format date ex : 1230 en 12:30

Bonsoir khephrens, mapomme, Misange 🙂

Si vous voulez qu'elle s'applique automatiquement, regardez dans l'aide(F1) les procédures événementielles :
Worksheet_Calculate() ou Worksheet_Change()

 

[khephrens]

Re : convertion nombre en format date ex : 1230 en 12:30

bonsoir voisin mapomme
super ta macro
mais j'aimerais qu'elle s'applique lors de la saisie dans la cellule dans la plage?? est ce possible?
merci

 

[Victor21]

Re : convertion nombre en format date ex : 1230 en 12:30

Re, khephrens.

Lisez-vous toutes les réponses, dois-je me répéter ?

 

[mapomme]

Re : convertion nombre en format date ex : 1230 en 12:30

Re,

Version v2 erronée. Préférer la v3 ICI.

 

[khephrens]

Re : convertion nombre en format date ex : 1230 en 12:30

bonsoir victor
inutile de répéter j'ai lu votre réponse!
je suis novice en VBA et je ne comprends pas
j'aimerais adapter la macro de mapomme pour qu'elle s’exécute à la saisie dans la plage donnée.
merci au forom pour votre aide

 

[khephrens]

Re : convertion nombre en format date ex : 1230 en 12:30

génial voisin mapomme ça fonctionne parfaitement en automatique...
merci au forum 🙂

 

[mapomme]

Re : convertion nombre en format date ex : 1230 en 12:30

Re,

Bon, décidément je ferais mieux d'aller me coucher, la v3 c'est du grand n'importe quoi aussi !

 

[khephrens]

Re : convertion nombre en format date ex : 1230 en 12:30

rebonsoir mapomme🙂
la macro fonctionne à un détail près
la saisie de 12 renvoie bien 12:00
mais des lors que l'on tape un chiffre par exemple 7 qui devrait renvoyer 7:00 ca ne fonctionne pas
ya til un moyen de résoudre ce petit souci??
merci encore

 

[mapomme]

Re : convertion nombre en format date ex : 1230 en 12:30

re-bonsoir,

C'est sans doute parce qu'on célèbre Pâques que je me suis transformé en poule pondeuse de code complètement débile et faux! (les breuvages absorbés lors du repas pascal ne sont peut-être pas non plus étrangers à cette métamorphose)

La voie que j'ai choisie ne peut qu'aboutir à une impasse. J'efface donc tout et je vais me terrer au fond de mon lit pour dissimuler toute ma honte. Auparavant, j'adopte la solution de Misange 🙂 au cas de khephrens par solidarité angevine.

 

[Staple1600]

Re : convertion nombre en format date ex : 1230 en 12:30

Bonsoir à tous

Je peux donc dire ce soir, bonsoir ma poule 😉
Si je tape 9999 l'erreur c'est pour ta pomme, ma poule 😉

 

[mapomme]

Re : convertion nombre en format date ex : 1230 en 12:30

Re,

Une version avec le code proposé par Misange 🙂 - avec l'avertissement indiqué par les auteurs "*Attention de toujours bien saisir 2 chiffres pour les minutes*"

edit: Bonsoir Staple1600 🙂 - j'ai réédité le message en question 😱