copier dateRésolu

Question

je veux utiliser une date de forme "02/02/2005" qui se trouve dans une cellule A1, et la concatener &#224; du texte dans une autre mais sous la forme "2 f&#233;vrier 2005" dans une cellule B2
pour au final avoir quelquechose comme : aujourd'hui nous sommes le 2 f&#233;vrier 2005
merci pour votre aide

jrivet · Accepted Answer

Re,

Je viens d'essayer ceci avec Excel 2000:

Dans B4: 05/11/1996

Range("D5").Value = "Date d'envoi: " & Day(Range("B4").Value) & " " & MonthName(Month(Range("B4").Value)) & " " & Year(Range("B4").Value)

Resultat dans D5: Date d'envoi: 5 Novembre 1996


Voila,

J'espere que ca t'aide.

@+
Julien

jrivet · Answer

Salut,

Essaie de voir si ce qui suit peut t'aider:

MsgBox "aujourd' hui nous somme le " & Day(Date) & " " & MonthName(Month(Date)) & " " & Year(Date)

Voila.

@+
Julien

cs_DARKSIDIOUS · Answer

Je sais pas si en VBA on peut faire c&#224;, mais en VB6 ca donnerait :

MsgBox Format("02/02/2005", "dd mmmm yyyy")

_____________________________________________________________________

cs_Stephane33 · Answer

Sinon allez dans le formatage de la cellule(Clic bouton droit > formatage), et y saisir
"Aujourd'hui nous sommes le " NNNNJ MMMM AAAA 
(sous openoffice.calc)
ou sous excel
"Aujourd'hui nous sommes le " dddd dd mmmm aaaaa

cs_lauron · Answer

je ne veux pas utiliser la date du jour, c'est le probl&#232;me

cs_lauron · Answer

je ne veux pas utiliser la date du jour, c'est le probl&#232;me

jrivet · Answer

Salut,


En suivant l'exemple que je t'ai donné, remplace Date par une chaine de caractere representant n'importe quelle date (en la formatant si besoin grace aux solutions proposees par DarkSidious et Stephane33

exemple:
MsgBox "aujourd' hui nous somme le " & Day("01/02/2005") & " " & MonthName(Month("01/02/2005")) & " " & Year("01/02/2005")

@+
Julien

cs_lauron · Answer

j'ai fait une macro pour copier la cellule contenant une date saisie dans une autre exemple

 Range("B4").Select
    Selection.Copy
    Range("D5").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CommandBars("Control Toolbox").Visible = False

comment puis-je forcer le format ?
merci

jrivet · Answer

Re,

Si tu veux juste copier le contenu de B4 en D5 pourquoi ne fais tu pas simplement

Range("D5").Value = Range("B4").Value

De cette maniere si le Format de B4 est correct, il sera copie aussi dans D5...
Si ce n'est pas du tout ca, je ne vois pas l'interet de ta macro.

Je ne sais pas si cela peut t'aider.
@+
Julien

cs_lauron · Answer

je veux copier B4 en D5 mais en concatenant la valeur avec du texte
concatener (D5; date d'envoi")
si je fait &#231;a, &#224; la place de la date, il me ram&#232;ne le nombre de jours &#233;coul&#233; depuis le 1.1.1900.
ce que je voudrai c'est avoir apr&#232;s concat&#233;nation : "15 novembre 2005 date d'envoi"

cs_lauron · Answer

EUREKA merci et bravo

Copier date

11 réponses

Discussions similaires