Dans un tableau excel je désire inscrire dans une cellule une date ou une
heure sans devoir
mettre de (.) ou (:).
Exemple :
J'aimerai écrire 25032010 et j'aimerai que cela s'inscrive dans la cellule
ainsi 25.03.10.
j'écris 1230 et j'aimerai que cela s'inscrive dans la cellule ainsi 12h30.
Est-ce possible ??
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
Modeste
Bonsour® "Vagabonda67"
Dans un tableau excel je désire inscrire dans une cellule une date ou une heure sans devoir mettre de (.) ou (:). Exemple : J'aimerai écrire 25032010 et j'aimerai que cela s'inscrive dans la cellule ainsi 25.03.10. j'écris 1230 et j'aimerai que cela s'inscrive dans la cellule ainsi 12h30. Est-ce possible ??
le problème c'est comment faire comprendre à EXCEL le type de donnée que tu souhaites : nombre normal, heure, date ???? cela s'adresse à une seule cellule, une plage de cellule, toute la feuille ?
pour une seule cellule, il est possible d'utiliser un affichage personnalisé : [<2400]00"h"00;[<32000000]00-00-0000;Standard;@
dans les autres cas il faudra utiliser une procédure événementielle (soit automatique, soit déclenchée par macro)
Bonsour® "Vagabonda67"
Dans un tableau excel je désire inscrire dans une cellule une date ou une
heure sans devoir
mettre de (.) ou (:).
Exemple :
J'aimerai écrire 25032010 et j'aimerai que cela s'inscrive dans la cellule
ainsi 25.03.10.
j'écris 1230 et j'aimerai que cela s'inscrive dans la cellule ainsi 12h30.
Est-ce possible ??
le problème c'est comment faire comprendre à EXCEL
le type de donnée que tu souhaites :
nombre normal, heure, date ????
cela s'adresse à une seule cellule, une plage de cellule, toute la feuille ?
pour une seule cellule, il est possible d'utiliser un affichage personnalisé
:
[<2400]00"h"00;[<32000000]00-00-0000;Standard;@
dans les autres cas il faudra utiliser une procédure événementielle (soit
automatique, soit déclenchée par macro)
Dans un tableau excel je désire inscrire dans une cellule une date ou une heure sans devoir mettre de (.) ou (:). Exemple : J'aimerai écrire 25032010 et j'aimerai que cela s'inscrive dans la cellule ainsi 25.03.10. j'écris 1230 et j'aimerai que cela s'inscrive dans la cellule ainsi 12h30. Est-ce possible ??
le problème c'est comment faire comprendre à EXCEL le type de donnée que tu souhaites : nombre normal, heure, date ???? cela s'adresse à une seule cellule, une plage de cellule, toute la feuille ?
pour une seule cellule, il est possible d'utiliser un affichage personnalisé : [<2400]00"h"00;[<32000000]00-00-0000;Standard;@
dans les autres cas il faudra utiliser une procédure événementielle (soit automatique, soit déclenchée par macro)
FdeCourt
Salut,
Avec la macro ci-dessous, à adapter en fonction de tes besoins bien sur :
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 1 And Target.Columns.Count = 1 And Target.Rows.Count = 1 Then Select Case Len(Target) Case 4 Target.Value = Mid(Target, 1, 2) & "h" & Mid(Target, 3, 2) Case 8 Target.Value = CDate(Mid(Target, 1, 2) & "/" & Mid(Target, 3, 2) & "/" & Mid(Target, 5, 4)) Case Else Target.Value = Target.Value End Select End If End Sub
Et à mettre dans le code de la feuille correspondante.
Cordialement,
F.
Salut,
Avec la macro ci-dessous, à adapter en fonction de tes besoins bien
sur :
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 And Target.Columns.Count = 1 And
Target.Rows.Count = 1 Then
Select Case Len(Target)
Case 4
Target.Value = Mid(Target, 1, 2) & "h" & Mid(Target,
3, 2)
Case 8
Target.Value = CDate(Mid(Target, 1, 2) & "/" &
Mid(Target, 3, 2) & "/" & Mid(Target, 5, 4))
Case Else
Target.Value = Target.Value
End Select
End If
End Sub
Et à mettre dans le code de la feuille correspondante.
Avec la macro ci-dessous, à adapter en fonction de tes besoins bien sur :
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 1 And Target.Columns.Count = 1 And Target.Rows.Count = 1 Then Select Case Len(Target) Case 4 Target.Value = Mid(Target, 1, 2) & "h" & Mid(Target, 3, 2) Case 8 Target.Value = CDate(Mid(Target, 1, 2) & "/" & Mid(Target, 3, 2) & "/" & Mid(Target, 5, 4)) Case Else Target.Value = Target.Value End Select End If End Sub
Et à mettre dans le code de la feuille correspondante.
Cordialement,
F.
Modeste
Bonsour® FdeCourt avec ferveur ;o))) vous nous disiez :
Avec la macro ci-dessous, à adapter en fonction de tes besoins bien sur :
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 1 And Target.Columns.Count = 1 And Target.Rows.Count = 1 Then Select Case Len(Target) Case 4 Target.Value = Mid(Target, 1, 2) & "h" & Mid(Target, 3, 2) Case 8 Target.Value = CDate(Mid(Target, 1, 2) & "/" & Mid(Target, 3, 2) & "/" & Mid(Target, 5, 4)) Case Else Target.Value = Target.Value End Select End If End Sub
Bonsour® FdeCourt avec ferveur ;o))) vous nous disiez :
Avec la macro ci-dessous, à adapter en fonction de tes besoins bien
sur :
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 And Target.Columns.Count = 1 And
Target.Rows.Count = 1 Then
Select Case Len(Target)
Case 4
Target.Value = Mid(Target, 1, 2) & "h" & Mid(Target,
3, 2)
Case 8
Target.Value = CDate(Mid(Target, 1, 2) & "/" &
Mid(Target, 3, 2) & "/" & Mid(Target, 5, 4))
Case Else
Target.Value = Target.Value
End Select
End If
End Sub
Bonsour® FdeCourt avec ferveur ;o))) vous nous disiez :
Avec la macro ci-dessous, à adapter en fonction de tes besoins bien sur :
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 1 And Target.Columns.Count = 1 And Target.Rows.Count = 1 Then Select Case Len(Target) Case 4 Target.Value = Mid(Target, 1, 2) & "h" & Mid(Target, 3, 2) Case 8 Target.Value = CDate(Mid(Target, 1, 2) & "/" & Mid(Target, 3, 2) & "/" & Mid(Target, 5, 4)) Case Else Target.Value = Target.Value End Select End If End Sub
J'aime bien ;o)))) NOTE: The procedure below is for USA-style dates (mmddyyyy format). If you use European style dates (ddmmyyyy), you'll have to change some of the code. That is left as an exercise for the reader.
-- Salutations JJ
"Modeste" a écrit dans le message de news: Bonsour® FdeCourt avec ferveur ;o))) vous nous disiez :
J'aime bien ;o))))
NOTE: The procedure below is for USA-style dates (mmddyyyy format). If you use European style dates
(ddmmyyyy), you'll have to change some of the code. That is left as an exercise for the reader.
--
Salutations
JJ
"Modeste" <gd@libre.fr> a écrit dans le message de news: OjbKkbHzKHA.6140@TK2MSFTNGP05.phx.gbl...
Bonsour® FdeCourt avec ferveur ;o))) vous nous disiez :
J'aime bien ;o)))) NOTE: The procedure below is for USA-style dates (mmddyyyy format). If you use European style dates (ddmmyyyy), you'll have to change some of the code. That is left as an exercise for the reader.
-- Salutations JJ
"Modeste" a écrit dans le message de news: Bonsour® FdeCourt avec ferveur ;o))) vous nous disiez :
avec la solution ci-dessous il sera possibles de faire des calculs horaires ou dates on utilise cependant une cellulle supplementaire : =SI(A1<2400;1*TEXTE(A1;"00"":""00");SI(ET(MOD(A1;10000)<1900;ESTERREUR( DATEVAL(TEXTE(ENT(A1/10000);"00""/""00"))));A1;DATEVAL(TEXTE(A1;"00""/""0 0""/""0000")))) format de cellule : [<1]hh:mm ; ; jj.mm.aa.;@
Bonsour® Modeste avec ferveur ;o))) vous nous disiez :
avec la solution ci-dessous il sera possibles de faire des calculs horaires ou dates
on utilise cependant une cellulle supplementaire :
=SI(A1<2400;1*TEXTE(A1;"00"":""00");SI(ET(MOD(A1;10000)<1900;ESTERREUR( DATEVAL(TEXTE(ENT(A1/10000);"00""/""00"))));A1;DATEVAL(TEXTE(A1;"00""/""0 0""/""0000"))))
format de cellule :
[<1]hh:mm ; ; jj.mm.aa.;@
avec la solution ci-dessous il sera possibles de faire des calculs horaires ou dates on utilise cependant une cellulle supplementaire : =SI(A1<2400;1*TEXTE(A1;"00"":""00");SI(ET(MOD(A1;10000)<1900;ESTERREUR( DATEVAL(TEXTE(ENT(A1/10000);"00""/""00"))));A1;DATEVAL(TEXTE(A1;"00""/""0 0""/""0000")))) format de cellule : [<1]hh:mm ; ; jj.mm.aa.;@
Modeste
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
J'aime bien ;o)))) NOTE: The procedure below is for USA-style dates (mmddyyyy format). If you use European style dates (ddmmyyyy), you'll have to change some of the code. That is left as an exercise for the reader. JJ
comment ça...Il n'y a pas encore de MVP EXcel Alsacien ??? pourtant je me suis laissé dire qu'il existait une version Excel "Schnockeloch" ;o))) wàs Excel ànbiete kànn Einzelheite Pack linguistique Microsoft CLIP - Elsässisch http://download.microsoft.com/download/b/3/c/b3cb9604-ad63-46d3-a63d-e077 57021895/clip_frFR.msi
CLIP is optimised by Microsoft Product and language as follows. LanguageOptimized for Product(s) Alsace (Elsässisch) Office 2007
mais je n'ai pas connaissance d'une version Ch'ti... ;o)))
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
J'aime bien ;o))))
NOTE: The procedure below is for USA-style dates (mmddyyyy format).
If you use European style dates (ddmmyyyy), you'll have to change
some of the code. That is left as an exercise for the reader.
JJ
comment ça...Il n'y a pas encore de MVP EXcel Alsacien ???
pourtant je me suis laissé dire qu'il existait une version Excel "Schnockeloch"
;o)))
wàs Excel ànbiete kànn
Einzelheite
Pack linguistique Microsoft CLIP - Elsässisch
http://download.microsoft.com/download/b/3/c/b3cb9604-ad63-46d3-a63d-e077 57021895/clip_frFR.msi
CLIP is optimised by Microsoft Product and language as follows.
LanguageOptimized for Product(s)
Alsace (Elsässisch) Office 2007
mais je n'ai pas connaissance d'une version Ch'ti...
;o)))
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
J'aime bien ;o)))) NOTE: The procedure below is for USA-style dates (mmddyyyy format). If you use European style dates (ddmmyyyy), you'll have to change some of the code. That is left as an exercise for the reader. JJ
comment ça...Il n'y a pas encore de MVP EXcel Alsacien ??? pourtant je me suis laissé dire qu'il existait une version Excel "Schnockeloch" ;o))) wàs Excel ànbiete kànn Einzelheite Pack linguistique Microsoft CLIP - Elsässisch http://download.microsoft.com/download/b/3/c/b3cb9604-ad63-46d3-a63d-e077 57021895/clip_frFR.msi
CLIP is optimised by Microsoft Product and language as follows. LanguageOptimized for Product(s) Alsace (Elsässisch) Office 2007
mais je n'ai pas connaissance d'une version Ch'ti... ;o)))
Jacquouille
Salut Gilbert Et Bilou, il n'a encore rien prévu en Ch'ti ?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Modeste" a écrit dans le message de news: O% Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
J'aime bien ;o)))) NOTE: The procedure below is for USA-style dates (mmddyyyy format). If you use European style dates (ddmmyyyy), you'll have to change some of the code. That is left as an exercise for the reader. JJ
comment ça...Il n'y a pas encore de MVP EXcel Alsacien ??? pourtant je me suis laissé dire qu'il existait une version Excel "Schnockeloch" ;o))) wàs Excel ànbiete kànn Einzelheite Pack linguistique Microsoft CLIP - Elsässisch http://download.microsoft.com/download/b/3/c/b3cb9604-ad63-46d3-a63d-e07757021895/clip_frFR.msi
CLIP is optimised by Microsoft Product and language as follows. LanguageOptimized for Product(s) Alsace (Elsässisch) Office 2007
mais je n'ai pas connaissance d'une version Ch'ti... ;o)))
Salut Gilbert
Et Bilou, il n'a encore rien prévu en Ch'ti ?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Modeste" <gd@libre.fr> a écrit dans le message de news:
O%23U11IIzKHA.264@TK2MSFTNGP05.phx.gbl...
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
J'aime bien ;o))))
NOTE: The procedure below is for USA-style dates (mmddyyyy format).
If you use European style dates (ddmmyyyy), you'll have to change
some of the code. That is left as an exercise for the reader.
JJ
comment ça...Il n'y a pas encore de MVP EXcel Alsacien ???
pourtant je me suis laissé dire qu'il existait une version Excel
"Schnockeloch"
;o)))
wàs Excel ànbiete kànn
Einzelheite
Pack linguistique Microsoft CLIP - Elsässisch
http://download.microsoft.com/download/b/3/c/b3cb9604-ad63-46d3-a63d-e07757021895/clip_frFR.msi
CLIP is optimised by Microsoft Product and language as follows.
LanguageOptimized for Product(s)
Alsace (Elsässisch) Office 2007
mais je n'ai pas connaissance d'une version Ch'ti...
;o)))
Salut Gilbert Et Bilou, il n'a encore rien prévu en Ch'ti ?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Modeste" a écrit dans le message de news: O% Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
J'aime bien ;o)))) NOTE: The procedure below is for USA-style dates (mmddyyyy format). If you use European style dates (ddmmyyyy), you'll have to change some of the code. That is left as an exercise for the reader. JJ
comment ça...Il n'y a pas encore de MVP EXcel Alsacien ??? pourtant je me suis laissé dire qu'il existait une version Excel "Schnockeloch" ;o))) wàs Excel ànbiete kànn Einzelheite Pack linguistique Microsoft CLIP - Elsässisch http://download.microsoft.com/download/b/3/c/b3cb9604-ad63-46d3-a63d-e07757021895/clip_frFR.msi
CLIP is optimised by Microsoft Product and language as follows. LanguageOptimized for Product(s) Alsace (Elsässisch) Office 2007
mais je n'ai pas connaissance d'une version Ch'ti... ;o)))
Jacky
Re.... Pfffffff !! dirait AV Mon....... ==> J'aime bien ;o)))) n'était pas à cause de la langue mais pour la conclusion de Pearson. "That is left as an exercise for the reader."
A ubung fer de Lààser -- Salutations JJ
"Modeste" a écrit dans le message de news: O% Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
J'aime bien ;o)))) NOTE: The procedure below is for USA-style dates (mmddyyyy format). If you use European style dates (ddmmyyyy), you'll have to change some of the code. That is left as an exercise for the reader. JJ
comment ça...Il n'y a pas encore de MVP EXcel Alsacien ??? pourtant je me suis laissé dire qu'il existait une version Excel "Schnockeloch" ;o))) wàs Excel ànbiete kànn Einzelheite Pack linguistique Microsoft CLIP - Elsässisch http://download.microsoft.com/download/b/3/c/b3cb9604-ad63-46d3-a63d-e07757021895/clip_frFR.msi
CLIP is optimised by Microsoft Product and language as follows. LanguageOptimized for Product(s) Alsace (Elsässisch) Office 2007
mais je n'ai pas connaissance d'une version Ch'ti... ;o)))
Re....
Pfffffff !! dirait AV
Mon.......
==> J'aime bien ;o))))
n'était pas à cause de la langue mais pour la conclusion de Pearson.
"That is left as an exercise for the reader."
A ubung fer de Lààser
--
Salutations
JJ
"Modeste" <gd@libre.fr> a écrit dans le message de news: O%23U11IIzKHA.264@TK2MSFTNGP05.phx.gbl...
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
J'aime bien ;o))))
NOTE: The procedure below is for USA-style dates (mmddyyyy format).
If you use European style dates (ddmmyyyy), you'll have to change
some of the code. That is left as an exercise for the reader.
JJ
comment ça...Il n'y a pas encore de MVP EXcel Alsacien ???
pourtant je me suis laissé dire qu'il existait une version Excel "Schnockeloch"
;o)))
wàs Excel ànbiete kànn
Einzelheite
Pack linguistique Microsoft CLIP - Elsässisch
http://download.microsoft.com/download/b/3/c/b3cb9604-ad63-46d3-a63d-e07757021895/clip_frFR.msi
CLIP is optimised by Microsoft Product and language as follows.
LanguageOptimized for Product(s)
Alsace (Elsässisch) Office 2007
mais je n'ai pas connaissance d'une version Ch'ti...
;o)))
Re.... Pfffffff !! dirait AV Mon....... ==> J'aime bien ;o)))) n'était pas à cause de la langue mais pour la conclusion de Pearson. "That is left as an exercise for the reader."
A ubung fer de Lààser -- Salutations JJ
"Modeste" a écrit dans le message de news: O% Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
J'aime bien ;o)))) NOTE: The procedure below is for USA-style dates (mmddyyyy format). If you use European style dates (ddmmyyyy), you'll have to change some of the code. That is left as an exercise for the reader. JJ
comment ça...Il n'y a pas encore de MVP EXcel Alsacien ??? pourtant je me suis laissé dire qu'il existait une version Excel "Schnockeloch" ;o))) wàs Excel ànbiete kànn Einzelheite Pack linguistique Microsoft CLIP - Elsässisch http://download.microsoft.com/download/b/3/c/b3cb9604-ad63-46d3-a63d-e07757021895/clip_frFR.msi
CLIP is optimised by Microsoft Product and language as follows. LanguageOptimized for Product(s) Alsace (Elsässisch) Office 2007
mais je n'ai pas connaissance d'une version Ch'ti... ;o)))
FdeCourt
Modeste,
Une solution universelle ne peut exister, donc il faut accepter de se plier à quelques normes : Sur 4 chiffres (et uniquement 4) il s'agit d'heure, donc 1h15 s'écrit '0115 Et pour les dates, elles sont toujours sur 8 caractères avec le format JJMMAAAA. Ainsi il n'y a plus de problème.
Si ensuite il faut pouvoir faire des calculs sur les valeurs saisies, alors une petite modification de rien du tout de la macro le permet :
Une solution universelle ne peut exister, donc il faut accepter de se
plier à quelques normes :
Sur 4 chiffres (et uniquement 4) il s'agit d'heure, donc 1h15 s'écrit
'0115
Et pour les dates, elles sont toujours sur 8 caractères avec le format
JJMMAAAA.
Ainsi il n'y a plus de problème.
Si ensuite il faut pouvoir faire des calculs sur les valeurs saisies,
alors une petite modification de rien du tout de la macro le permet :
Une solution universelle ne peut exister, donc il faut accepter de se plier à quelques normes : Sur 4 chiffres (et uniquement 4) il s'agit d'heure, donc 1h15 s'écrit '0115 Et pour les dates, elles sont toujours sur 8 caractères avec le format JJMMAAAA. Ainsi il n'y a plus de problème.
Si ensuite il faut pouvoir faire des calculs sur les valeurs saisies, alors une petite modification de rien du tout de la macro le permet :
