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 Bizarerie de format date

Bizarerie de format date

7 réponses
Avatar
Golf
Bonsoir
J'ai un listbox qui reprend les éléments E1:H11 d'un tableau.
Sur la tableau j'ai une colonne H qui contient des dates au format jjj jj
mmm aa
lorsque je suis dans l'éditeur VBA, pas de problème, en revanche lorsque les
macros sont activées, au lieu d'avoir : sam 03 juil 04, j'ai : sat 03 jul 04
comment puis je faire afin d'avoir le bon format ?
J'ai au départ cela qui met les dates en dur dans la colonne H

If frm_table.Lbl_type.Caption = "Toto" Then
Sheets("Params").[G6] = Txt_noms_records
Sheets("Params").[H6].Value = Date
Sheets("Params").[F6].Value = Sheets("Params").[I1]
Unload Me
End If

Merci
Golf
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 Golf,

Pour obtenir le bon format, tu dois appliquer le format désiré à ta cellule et tu copies par la suite la date

Sheets("Params").[H6].numberformat = "ddd dd mmm yy"
Sheets("Params").[H6].Value = Date


Salutations!


"Golf" a écrit dans le message de news:%23k$
Bonsoir
J'ai un listbox qui reprend les éléments E1:H11 d'un tableau.
Sur la tableau j'ai une colonne H qui contient des dates au format jjj jj
mmm aa
lorsque je suis dans l'éditeur VBA, pas de problème, en revanche lorsque les
macros sont activées, au lieu d'avoir : sam 03 juil 04, j'ai : sat 03 jul 04
comment puis je faire afin d'avoir le bon format ?
J'ai au départ cela qui met les dates en dur dans la colonne H

If frm_table.Lbl_type.Caption = "Toto" Then
Sheets("Params").[G6] = Txt_noms_records
Sheets("Params").[H6].Value = Date
Sheets("Params").[F6].Value = Sheets("Params").[I1]
Unload Me
End If

Merci
Golf
Avatar
Golf
Bonsoir Denis
En fait, je ne comprends pas ce qui se passe.
Sur la feuille de calcul tout est correct, en revanche dans le listbox, j'ai
la date en format américain, malgré ta proc, c'est toujours pareil.


"michdenis" a écrit dans le message de
news:%
Bonjour Golf,

Pour obtenir le bon format, tu dois appliquer le format désiré à ta
cellule et tu copies par la suite la date


Sheets("Params").[H6].numberformat = "ddd dd mmm yy"
Sheets("Params").[H6].Value = Date


Salutations!


"Golf" a écrit dans le message de
news:%23k$

Bonsoir
J'ai un listbox qui reprend les éléments E1:H11 d'un tableau.
Sur la tableau j'ai une colonne H qui contient des dates au format jjj jj
mmm aa
lorsque je suis dans l'éditeur VBA, pas de problème, en revanche lorsque
les

macros sont activées, au lieu d'avoir : sam 03 juil 04, j'ai : sat 03 jul
04

comment puis je faire afin d'avoir le bon format ?
J'ai au départ cela qui met les dates en dur dans la colonne H

If frm_table.Lbl_type.Caption = "Toto" Then
Sheets("Params").[G6] = Txt_noms_records
Sheets("Params").[H6].Value = Date
Sheets("Params").[F6].Value = Sheets("Params").[I1]
Unload Me
End If

Merci
Golf





Avatar
michdenis
Bonjour Désolé,


Admettons que ton contrôle provient de la barre d'outils "contrôle" et qu'il est rempli avec des données provenant de la
feuille 1 plage A1:A10

Si tu veux faire afficher un format de date particulier dans le contrôle, utilise ceci :

'-------------------------------
Private Sub ComboBox1_GotFocus()

With ComboBox1
.Clear
For Each c In Range("A1:A10")
.AddItem Format(c, "ddd dd mmm yy")
Next
End With

End Sub
'-------------------------------

Si tu désires obtenr une date dans le genre 02/07/2004, tu peux utiliser ceci :

'-------------------------
Private Sub ComboBox1_GotFocus()

Dim Tblo As Variant

Tblo = Range("A1:A10")
ComboBox1.Clear
ComboBox1.List = Tblo

End Sub
'-------------------------


Salutations!



"Golf" a écrit dans le message de news:
Bonsoir Denis
En fait, je ne comprends pas ce qui se passe.
Sur la feuille de calcul tout est correct, en revanche dans le listbox, j'ai
la date en format américain, malgré ta proc, c'est toujours pareil.


"michdenis" a écrit dans le message de
news:%
Bonjour Golf,

Pour obtenir le bon format, tu dois appliquer le format désiré à ta
cellule et tu copies par la suite la date


Sheets("Params").[H6].numberformat = "ddd dd mmm yy"
Sheets("Params").[H6].Value = Date


Salutations!


"Golf" a écrit dans le message de
news:%23k$

Bonsoir
J'ai un listbox qui reprend les éléments E1:H11 d'un tableau.
Sur la tableau j'ai une colonne H qui contient des dates au format jjj jj
mmm aa
lorsque je suis dans l'éditeur VBA, pas de problème, en revanche lorsque
les

macros sont activées, au lieu d'avoir : sam 03 juil 04, j'ai : sat 03 jul
04

comment puis je faire afin d'avoir le bon format ?
J'ai au départ cela qui met les dates en dur dans la colonne H

If frm_table.Lbl_type.Caption = "Toto" Then
Sheets("Params").[G6] = Txt_noms_records
Sheets("Params").[H6].Value = Date
Sheets("Params").[F6].Value = Sheets("Params").[I1]
Unload Me
End If

Merci
Golf





Avatar
Golf
Bonsoir Denis, et merci, c'est bizarre, j'ai toujours ce format américain
Merci quand même.
Golf

"michdenis" a écrit dans le message de
news:%
Bonjour Désolé,


Admettons que ton contrôle provient de la barre d'outils "contrôle" et
qu'il est rempli avec des données provenant de la

feuille 1 plage A1:A10

Si tu veux faire afficher un format de date particulier dans le contrôle,
utilise ceci :


'-------------------------------
Private Sub ComboBox1_GotFocus()

With ComboBox1
.Clear
For Each c In Range("A1:A10")
.AddItem Format(c, "ddd dd mmm yy")
Next
End With

End Sub
'-------------------------------

Si tu désires obtenr une date dans le genre 02/07/2004, tu peux utiliser
ceci :


'-------------------------
Private Sub ComboBox1_GotFocus()

Dim Tblo As Variant

Tblo = Range("A1:A10")
ComboBox1.Clear
ComboBox1.List = Tblo

End Sub
'-------------------------


Salutations!



"Golf" a écrit dans le message de
news:

Bonsoir Denis
En fait, je ne comprends pas ce qui se passe.
Sur la feuille de calcul tout est correct, en revanche dans le listbox,
j'ai

la date en format américain, malgré ta proc, c'est toujours pareil.


"michdenis" a écrit dans le message de
news:%
Bonjour Golf,

Pour obtenir le bon format, tu dois appliquer le format désiré à ta
cellule et tu copies par la suite la date


Sheets("Params").[H6].numberformat = "ddd dd mmm yy"
Sheets("Params").[H6].Value = Date


Salutations!


"Golf" a écrit dans le message de
news:%23k$

Bonsoir
J'ai un listbox qui reprend les éléments E1:H11 d'un tableau.
Sur la tableau j'ai une colonne H qui contient des dates au format jjj
jj


mmm aa
lorsque je suis dans l'éditeur VBA, pas de problème, en revanche lorsque
les

macros sont activées, au lieu d'avoir : sam 03 juil 04, j'ai : sat 03
jul


04
comment puis je faire afin d'avoir le bon format ?
J'ai au départ cela qui met les dates en dur dans la colonne H

If frm_table.Lbl_type.Caption = "Toto" Then
Sheets("Params").[G6] = Txt_noms_records
Sheets("Params").[H6].Value = Date
Sheets("Params").[F6].Value = Sheets("Params").[I1]
Unload Me
End If

Merci
Golf










Avatar
garnote
Bonsoir,

Peut-être qu'en allant voir :
Poste de travail / Panneau de configuration /
Paramètres de configuration / Date

Je dis ça à tout hasard.

Serge

"Golf" a écrit dans le message de news:
O8131$
Bonsoir Denis, et merci, c'est bizarre, j'ai toujours ce format américain
Merci quand même.
Golf

"michdenis" a écrit dans le message de
news:%
Bonjour Désolé,


Admettons que ton contrôle provient de la barre d'outils "contrôle" et
qu'il est rempli avec des données provenant de la

feuille 1 plage A1:A10

Si tu veux faire afficher un format de date particulier dans le
contrôle,


utilise ceci :

'-------------------------------
Private Sub ComboBox1_GotFocus()

With ComboBox1
.Clear
For Each c In Range("A1:A10")
.AddItem Format(c, "ddd dd mmm yy")
Next
End With

End Sub
'-------------------------------

Si tu désires obtenr une date dans le genre 02/07/2004, tu peux utiliser
ceci :


'-------------------------
Private Sub ComboBox1_GotFocus()

Dim Tblo As Variant

Tblo = Range("A1:A10")
ComboBox1.Clear
ComboBox1.List = Tblo

End Sub
'-------------------------


Salutations!



"Golf" a écrit dans le message de
news:

Bonsoir Denis
En fait, je ne comprends pas ce qui se passe.
Sur la feuille de calcul tout est correct, en revanche dans le listbox,
j'ai

la date en format américain, malgré ta proc, c'est toujours pareil.


"michdenis" a écrit dans le message de
news:%
Bonjour Golf,

Pour obtenir le bon format, tu dois appliquer le format désiré à ta
cellule et tu copies par la suite la date


Sheets("Params").[H6].numberformat = "ddd dd mmm yy"
Sheets("Params").[H6].Value = Date


Salutations!


"Golf" a écrit dans le message de
news:%23k$

Bonsoir
J'ai un listbox qui reprend les éléments E1:H11 d'un tableau.
Sur la tableau j'ai une colonne H qui contient des dates au format jjj
jj


mmm aa
lorsque je suis dans l'éditeur VBA, pas de problème, en revanche
lorsque



les
macros sont activées, au lieu d'avoir : sam 03 juil 04, j'ai : sat 03
jul


04
comment puis je faire afin d'avoir le bon format ?
J'ai au départ cela qui met les dates en dur dans la colonne H

If frm_table.Lbl_type.Caption = "Toto" Then
Sheets("Params").[G6] = Txt_noms_records
Sheets("Params").[H6].Value = Date
Sheets("Params").[F6].Value = Sheets("Params").[I1]
Unload Me
End If

Merci
Golf














Avatar
garnote
Poste de travail / Panneau de configuration /
Paramètres régionaux / Date

voulais-je écrire !

Serge

"Golf" a écrit dans le message de news:
O8131$
Bonsoir Denis, et merci, c'est bizarre, j'ai toujours ce format américain
Merci quand même.
Golf
Avatar
Golf
Bonsoir Serge, en fiat j'avais déjà regardé, et que nenni.
Golf

"garnote" a écrit dans le message de
news:0cFFc.86949$

Poste de travail / Panneau de configuration /
Paramètres régionaux / Date

voulais-je écrire !

Serge

"Golf" a écrit dans le message de news:
O8131$
Bonsoir Denis, et merci, c'est bizarre, j'ai toujours ce format américain
Merci quand même.
Golf