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 Comment retrouver ma Date en Français ?

Comment retrouver ma Date en Français ?

9 réponses
Avatar
bartez
Bonjour à tous,

J'ai un petit souçi avec les lignes de code suivante:

Début="01/06/2005"
Fin="31/05/2006"
Range(A1).Value = Début.Caption
Range(A2).Value = Fin.Caption

Je me retouve avec :

en A1 : 06/01/2005 aligné à droite

et en A2 : 31/05/2006 aligné à gauche

Bien sûr le format de ces cellules est le même, à savoir : Format Date,
Alignement Standard

Merci de votre aide
Philippe
Signaler un problème avec ce contenu

9 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
Daniel
Bonjour.
Essaie :
Range("A1").Value = CDate(debut)
Range("A2").Value = CDate(fin)
Cordialement.
Daniel
"bartez" a écrit dans le message de news:
%
Bonjour à tous,

J'ai un petit souçi avec les lignes de code suivante:

Début="01/06/2005"
Fin="31/05/2006"
Range(A1).Value = Début.Caption
Range(A2).Value = Fin.Caption

Je me retouve avec :

en A1 : 06/01/2005 aligné à droite

et en A2 : 31/05/2006 aligné à gauche

Bien sûr le format de ces cellules est le même, à savoir : Format Date,
Alignement Standard

Merci de votre aide
Philippe



Avatar
bartez
Merci daniel pour ta réponse, mais ça ne fonctionne pas :-(

La date est récupérée sous sa forme américaine

@+
Philippe

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

Bonjour.
Essaie :
Range("A1").Value = CDate(debut)
Range("A2").Value = CDate(fin)
Cordialement.
Daniel
"bartez" a écrit dans le message de news:
%
Bonjour à tous,

J'ai un petit souçi avec les lignes de code suivante:

Début="01/06/2005"
Fin="31/05/2006"
Range(A1).Value = Début.Caption
Range(A2).Value = Fin.Caption

Je me retouve avec :

en A1 : 06/01/2005 aligné à droite

et en A2 : 31/05/2006 aligné à gauche

Bien sûr le format de ces cellules est le même, à savoir : Format Date,
Alignement Standard

Merci de votre aide
Philippe







Avatar
Daniel
"Début" est une variable. Pourquoi lui adjoindre "caption" ?
Daniel
"bartez" a écrit dans le message de news:
%
Merci daniel pour ta réponse, mais ça ne fonctionne pas :-(

La date est récupérée sous sa forme américaine

@+
Philippe

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

Bonjour.
Essaie :
Range("A1").Value = CDate(debut)
Range("A2").Value = CDate(fin)
Cordialement.
Daniel
"bartez" a écrit dans le message de news:
%
Bonjour à tous,

J'ai un petit souçi avec les lignes de code suivante:

Début="01/06/2005"
Fin="31/05/2006"
Range(A1).Value = Début.Caption
Range(A2).Value = Fin.Caption

Je me retouve avec :

en A1 : 06/01/2005 aligné à droite

et en A2 : 31/05/2006 aligné à gauche

Bien sûr le format de ces cellules est le même, à savoir : Format Date,
Alignement Standard

Merci de votre aide
Philippe











Avatar
SL
Bonjour
Et avec ceci :
Début = "06/01/2005" 'format mm/jj/aaaa
Fin = "05/31/2006"
Range("A1").Value = Début 'A1 entre "
Range("A2").Value = Fin

ça marche

Stéphane

"bartez" a écrit dans le message de news:
%
Merci daniel pour ta réponse, mais ça ne fonctionne pas :-(

La date est récupérée sous sa forme américaine

@+
Philippe

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

Bonjour.
Essaie :
Range("A1").Value = CDate(debut)
Range("A2").Value = CDate(fin)
Cordialement.
Daniel
"bartez" a écrit dans le message de news:
%
Bonjour à tous,

J'ai un petit souçi avec les lignes de code suivante:

Début="01/06/2005"
Fin="31/05/2006"
Range(A1).Value = Début.Caption
Range(A2).Value = Fin.Caption

Je me retouve avec :

en A1 : 06/01/2005 aligné à droite

et en A2 : 31/05/2006 aligné à gauche

Bien sûr le format de ces cellules est le même, à savoir : Format Date,
Alignement Standard

Merci de votre aide
Philippe











Avatar
bartez
Début et Fin sont des Label dans un formulaire.
Je cherche a récupérer leur titre qui est une date et placer cette date dans
une feuille Excel.
Mais àa ne fonctionne pas, pour la date du 31/05 pas de problème, pour
l'autre , Excel me traduit 01/06 en 06/01 donc il me la transforme en date
américaine :-(

Début.Caption="01/06/2005"
Fin.Caption="31/05/2006"
Range("A1").Value = Début.Caption
Range("A2").Value = Fin.Caption

Je viens de re tester et c'est toujours pareil

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

Bonjour
Et avec ceci :
Début = "06/01/2005" 'format mm/jj/aaaa
Fin = "05/31/2006"
Range("A1").Value = Début 'A1 entre "
Range("A2").Value = Fin

ça marche

Stéphane

"bartez" a écrit dans le message de news:
%
Merci daniel pour ta réponse, mais ça ne fonctionne pas :-(

La date est récupérée sous sa forme américaine

@+
Philippe

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

Bonjour.
Essaie :
Range("A1").Value = CDate(debut)
Range("A2").Value = CDate(fin)
Cordialement.
Daniel
"bartez" a écrit dans le message de news:
%
Bonjour à tous,

J'ai un petit souçi avec les lignes de code suivante:

Début="01/06/2005"
Fin="31/05/2006"
Range(A1).Value = Début.Caption
Range(A2).Value = Fin.Caption

Je me retouve avec :

en A1 : 06/01/2005 aligné à droite

et en A2 : 31/05/2006 aligné à gauche

Bien sûr le format de ces cellules est le même, à savoir : Format Date,
Alignement Standard

Merci de votre aide
Philippe















Avatar
Daniel
Essaie ça :
Range("A1").Value = DateSerial(Year(Début.Caption),
Month(Début.Caption), _
Day(Début.Caption))
Daniel
"bartez" a écrit dans le message de news:
%23l9S$
Début et Fin sont des Label dans un formulaire.
Je cherche a récupérer leur titre qui est une date et placer cette date
dans une feuille Excel.
Mais àa ne fonctionne pas, pour la date du 31/05 pas de problème, pour
l'autre , Excel me traduit 01/06 en 06/01 donc il me la transforme en date
américaine :-(

Début.Caption="01/06/2005"
Fin.Caption="31/05/2006"
Range("A1").Value = Début.Caption
Range("A2").Value = Fin.Caption

Je viens de re tester et c'est toujours pareil

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

Bonjour
Et avec ceci :
Début = "06/01/2005" 'format mm/jj/aaaa
Fin = "05/31/2006"
Range("A1").Value = Début 'A1 entre "
Range("A2").Value = Fin

ça marche

Stéphane

"bartez" a écrit dans le message de news:
%
Merci daniel pour ta réponse, mais ça ne fonctionne pas :-(

La date est récupérée sous sa forme américaine

@+
Philippe

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

Bonjour.
Essaie :
Range("A1").Value = CDate(debut)
Range("A2").Value = CDate(fin)
Cordialement.
Daniel
"bartez" a écrit dans le message de news:
%
Bonjour à tous,

J'ai un petit souçi avec les lignes de code suivante:

Début="01/06/2005"
Fin="31/05/2006"
Range(A1).Value = Début.Caption
Range(A2).Value = Fin.Caption

Je me retouve avec :

en A1 : 06/01/2005 aligné à droite

et en A2 : 31/05/2006 aligné à gauche

Bien sûr le format de ces cellules est le même, à savoir : Format
Date, Alignement Standard

Merci de votre aide
Philippe



















Avatar
michdenis
Bonjour Bartez,

Il existe ces 2 possibilités :

With Worksheets("Feuil1")
.Range("A1").Value = Format(Début.Caption, "mm/d/yyyy")
.Range("A2").Value = Format(Fin.Caption, "mm/d/yyyy")
End With


Et pour pouvoir vraiment choisir le format avec lequel elle va s'afficher :

With Worksheets("Feuil1")
.Range("A1").NumberFormat = "dd/mm/yy" 'Selon ton choix
.Range("a1").Value = CDate(début.caption)
.Range("A2").NumberFormat = "dd/mm/yy"
.Range("a2").Value = CDate(fin.caption)

End With



Salutations!






"bartez" a écrit dans le message de news: %
Bonjour à tous,

J'ai un petit souçi avec les lignes de code suivante:

Début="01/06/2005"
Fin="31/05/2006"
Range(A1).Value = Début.Caption
Range(A2).Value = Fin.Caption

Je me retouve avec :

en A1 : 06/01/2005 aligné à droite

et en A2 : 31/05/2006 aligné à gauche

Bien sûr le format de ces cellules est le même, à savoir : Format Date,
Alignement Standard

Merci de votre aide
Philippe
Avatar
Philippe Noss
Bonjour
AMHA, Davalue devrait simplement suffire
Début="01/06/2005"
Fin="31/05/2006"
Range("A1").Value = datevalue(Début.Caption )
Range("A2").Value = datevalue(Fin.Caption )
Philippe NOSS
Bon je vine peut etre un peu tard
Avatar
bartez
Merci pout toutes vos solutions :-)
Je les ai testé et elles fonctionnent toutes parfaitement.

Je vais utiliser celle de Philippe NOSS car elle c'est plus simple à écrire
;-)

Encore merci de votre aide à tous !

Philippe

"Philippe Noss" a écrit dans le message de news:

Bonjour
AMHA, Davalue devrait simplement suffire
Début="01/06/2005"
Fin="31/05/2006"
Range("A1").Value = datevalue(Début.Caption )
Range("A2").Value = datevalue(Fin.Caption )
Philippe NOSS
Bon je vine peut etre un peu tard