Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel VBA - saisie des heures simplifiée en omettant :

VBA - saisie des heures simplifiée en omettant :

7 réponses
Avatar
twinley
Bonsoir,

J'ai vu une macro permettant de simplifier la saisie des heures, en ne
tapant pas le : mais impossible de retrouver ou et sur quelle base je peux
faire ma recherche...
..tain d'Alzheimer.
Si quelqu'un à les idées plus claires que moi et sait où je peux retrouver
ce code, voilà deux heures que je cherche

Merci pour l'aide
--
à+twinley
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Twinley,

As-tu regardé dans le module feuille où l'action se déroule ? Dans ton classeur Perso.xls ?

Est-ce possible que tu aies utilisé "options de corrections automatiques" dans le sous menu outils ?


Salutations!


"twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:
Bonsoir,

J'ai vu une macro permettant de simplifier la saisie des heures, en ne
tapant pas le : mais impossible de retrouver ou et sur quelle base je peux
faire ma recherche...
..tain d'Alzheimer.
Si quelqu'un à les idées plus claires que moi et sait où je peux retrouver
ce code, voilà deux heures que je cherche

Merci pour l'aide
--
à+twinley
Avatar
twinley
Merci pour ton aide michdenis, mais je me suis mal exprimé.
Dans le forum ou dans un site, peut être excelabo, ou un autre, j'ai vu une
sub qui simplifiait la saisie des heures. A savoir on tape 1030 et la macro
transforme en 10:30.
Je cherche cette macro pour l'insérer dans mon classeur.
Impossible de remettre la main dessus. J'ai essayé pas mal de mot clé, mais
je tape à côté. J'en suis à trois heures de recherche...et toujours rien
trouvé.
Désolé d'avoir été si peu clair. Décidemment c'est pas ma soirée.
--
à+twinley
"michdenis" a écrit dans le message de
news:
Bonjour Twinley,

As-tu regardé dans le module feuille où l'action se déroule ? Dans ton
classeur Perso.xls ?


Est-ce possible que tu aies utilisé "options de corrections automatiques"
dans le sous menu outils ?



Salutations!


"twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:


Bonsoir,

J'ai vu une macro permettant de simplifier la saisie des heures, en ne
tapant pas le : mais impossible de retrouver ou et sur quelle base je peux
faire ma recherche...
..tain d'Alzheimer.
Si quelqu'un à les idées plus claires que moi et sait où je peux retrouver
ce code, voilà deux heures que je cherche

Merci pour l'aide
--
à+twinley





Avatar
E KERGRESSE
Une réponse est dans Excelabo. Ci-jointes, les recettes de CHISV et de
Frédéric SIGONNEAU;


Saisie rapide de dates comme 1425 pour 14 H 25
Je voudrais pouvoir saisir 1425 et que dans ma cellule ce soit 14 H 25 qui
soit entré. Si je
mets 0#" H "#0 comme format personnalisé cela fonctionne mais excel ne
consdère plus
la valeur comme une date... 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

ChrisV
******************
Autre solution :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 8 And Not Target.HasFormula Then
Application.EnableEvents = False
Target.Value = (Target.Value 100) & ":" & (Target.Value Mod 100)
Application.EnableEvents = True
End If

End Sub

Dans cet exemple de code, tu peux taper 1400 dans une cellule de la colonne
H et
tu auras 14:00 dans la cellule, que tu peux mettre en forme avec ton format
personnalisé (0#" H "#0).
*Attention de toujours bien saisir 2 chiffres pour les minutes*.
A adapter selon ton besoin. ChrisV, Frédéric Sigonneau, (N°599)

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:
#qL#
Merci pour ton aide michdenis, mais je me suis mal exprimé.
Dans le forum ou dans un site, peut être excelabo, ou un autre, j'ai vu
une

sub qui simplifiait la saisie des heures. A savoir on tape 1030 et la
macro

transforme en 10:30.
Je cherche cette macro pour l'insérer dans mon classeur.
Impossible de remettre la main dessus. J'ai essayé pas mal de mot clé,
mais

je tape à côté. J'en suis à trois heures de recherche...et toujours rien
trouvé.
Désolé d'avoir été si peu clair. Décidemment c'est pas ma soirée.
--
à+twinley
"michdenis" a écrit dans le message de
news:
Bonjour Twinley,

As-tu regardé dans le module feuille où l'action se déroule ? Dans ton
classeur Perso.xls ?


Est-ce possible que tu aies utilisé "options de corrections
automatiques"


dans le sous menu outils ?


Salutations!


"twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:


Bonsoir,

J'ai vu une macro permettant de simplifier la saisie des heures, en ne
tapant pas le : mais impossible de retrouver ou et sur quelle base je
peux


faire ma recherche...
..tain d'Alzheimer.
Si quelqu'un à les idées plus claires que moi et sait où je peux
retrouver


ce code, voilà deux heures que je cherche

Merci pour l'aide
--
à+twinley









begin 666 up.gif
M1TE&.#EA$ `0`)$#`-34U)F9O&9FF?___R'Y! $```,`+ `````0`! ```(R
MG(^I)K(J0G"/24E7# !@+77=AVR<>&5-<XYK9HD>7+;S$D3;N^@3CN84KC7
'JH(<% ``.P``
`
end


Avatar
twinley
AH ! super
c'est ce que je cherchais
Tu me sauves la vie.
Mais ou as tu trouvé cela dans Excelabo ? Je ne devrais pas poser la
question car la pôvre Misange va changer de couleur...
Mais là je devenais fou. Et je ne peux pas dire que c'est la pagaille dans
son nichoir. C'est dans ma tête et ma logique.
Merci
--
à+twinley
"E KERGRESSE" a écrit dans le message
de news:

Une réponse est dans Excelabo. Ci-jointes, les recettes de CHISV et de
Frédéric SIGONNEAU;


Saisie rapide de dates comme 1425 pour 14 H 25
Je voudrais pouvoir saisir 1425 et que dans ma cellule ce soit 14 H 25
qui

soit entré. Si je
mets 0#" H "#0 comme format personnalisé cela fonctionne mais excel ne
consdère plus
la valeur comme une date... 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

ChrisV
******************
Autre solution :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 8 And Not Target.HasFormula Then
Application.EnableEvents = False
Target.Value = (Target.Value 100) & ":" & (Target.Value Mod 100)
Application.EnableEvents = True
End If

End Sub

Dans cet exemple de code, tu peux taper 1400 dans une cellule de la
colonne

H et
tu auras 14:00 dans la cellule, que tu peux mettre en forme avec ton
format

personnalisé (0#" H "#0).
*Attention de toujours bien saisir 2 chiffres pour les minutes*.
A adapter selon ton besoin. ChrisV, Frédéric Sigonneau, (N°599)

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:
#qL#
Merci pour ton aide michdenis, mais je me suis mal exprimé.
Dans le forum ou dans un site, peut être excelabo, ou un autre, j'ai vu
une

sub qui simplifiait la saisie des heures. A savoir on tape 1030 et la
macro

transforme en 10:30.
Je cherche cette macro pour l'insérer dans mon classeur.
Impossible de remettre la main dessus. J'ai essayé pas mal de mot clé,
mais

je tape à côté. J'en suis à trois heures de recherche...et toujours rien
trouvé.
Désolé d'avoir été si peu clair. Décidemment c'est pas ma soirée.
--
à+twinley
"michdenis" a écrit dans le message de
news:
Bonjour Twinley,

As-tu regardé dans le module feuille où l'action se déroule ? Dans ton
classeur Perso.xls ?


Est-ce possible que tu aies utilisé "options de corrections
automatiques"


dans le sous menu outils ?


Salutations!


"twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:


Bonsoir,

J'ai vu une macro permettant de simplifier la saisie des heures, en ne
tapant pas le : mais impossible de retrouver ou et sur quelle base je
peux


faire ma recherche...
..tain d'Alzheimer.
Si quelqu'un à les idées plus claires que moi et sait où je peux
retrouver


ce code, voilà deux heures que je cherche

Merci pour l'aide
--
à+twinley














Avatar
twinley
ben oui, en faisant la recherche avec le moteur excelabo sur le mot saisie,
je trouve.
Je l'ai fais ici et sur google et je trouvais pas...
Enfin bref, y a des soir comme ça
--
à+twinley
"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:
AH ! super
c'est ce que je cherchais
Tu me sauves la vie.
Mais ou as tu trouvé cela dans Excelabo ? Je ne devrais pas poser la
question car la pôvre Misange va changer de couleur...
Mais là je devenais fou. Et je ne peux pas dire que c'est la pagaille dans
son nichoir. C'est dans ma tête et ma logique.
Merci
--
à+twinley
"E KERGRESSE" a écrit dans le
message

de news:

Une réponse est dans Excelabo. Ci-jointes, les recettes de CHISV et de
Frédéric SIGONNEAU;


Saisie rapide de dates comme 1425 pour 14 H 25
Je voudrais pouvoir saisir 1425 et que dans ma cellule ce soit 14 H 25
qui

soit entré. Si je
mets 0#" H "#0 comme format personnalisé cela fonctionne mais excel ne
consdère plus
la valeur comme une date... 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

ChrisV
******************
Autre solution :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 8 And Not Target.HasFormula Then
Application.EnableEvents = False
Target.Value = (Target.Value 100) & ":" & (Target.Value Mod 100)
Application.EnableEvents = True
End If

End Sub

Dans cet exemple de code, tu peux taper 1400 dans une cellule de la
colonne

H et
tu auras 14:00 dans la cellule, que tu peux mettre en forme avec ton
format

personnalisé (0#" H "#0).
*Attention de toujours bien saisir 2 chiffres pour les minutes*.
A adapter selon ton besoin. ChrisV, Frédéric Sigonneau, (N°599)

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:
#qL#
Merci pour ton aide michdenis, mais je me suis mal exprimé.
Dans le forum ou dans un site, peut être excelabo, ou un autre, j'ai
vu



une
sub qui simplifiait la saisie des heures. A savoir on tape 1030 et la
macro

transforme en 10:30.
Je cherche cette macro pour l'insérer dans mon classeur.
Impossible de remettre la main dessus. J'ai essayé pas mal de mot clé,
mais

je tape à côté. J'en suis à trois heures de recherche...et toujours
rien



trouvé.
Désolé d'avoir été si peu clair. Décidemment c'est pas ma soirée.
--
à+twinley
"michdenis" a écrit dans le message de
news:
Bonjour Twinley,

As-tu regardé dans le module feuille où l'action se déroule ? Dans
ton




classeur Perso.xls ?

Est-ce possible que tu aies utilisé "options de corrections
automatiques"


dans le sous menu outils ?


Salutations!


"twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:


Bonsoir,

J'ai vu une macro permettant de simplifier la saisie des heures, en
ne




tapant pas le : mais impossible de retrouver ou et sur quelle base
je




peux
faire ma recherche...
..tain d'Alzheimer.
Si quelqu'un à les idées plus claires que moi et sait où je peux
retrouver


ce code, voilà deux heures que je cherche

Merci pour l'aide
--
à+twinley


















Avatar
AV
Dans le module de la feuille :

Private Sub Worksheet_Change(ByVal zz As Excel.Range)
If IsNumeric(zz.Value) And zz.Value > 1 Then
X = zz.Value
zz = TimeSerial(Int(txt / 10000), Int((X Mod 10000) / 100), X Mod 100)
zz.NumberFormat = "[hh]:mm:ss"
End If
End Sub

AV
Avatar
twinley
Merci AV
c'est plus facile d'apprendre le VBA en trois exemples que de suivre un
cours.

--
à+twinley
"AV" a écrit dans le message de
news:%
Dans le module de la feuille :

Private Sub Worksheet_Change(ByVal zz As Excel.Range)
If IsNumeric(zz.Value) And zz.Value > 1 Then
X = zz.Value
zz = TimeSerial(Int(txt / 10000), Int((X Mod 10000) / 100), X Mod 100)
zz.NumberFormat = "[hh]:mm:ss"
End If
End Sub

AV