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 Format d'1 variable

Format d'1 variable

13 réponses
Avatar
Michel HOLDERITH
Bonjour a tout le monde,

J'ai dans une cellule excel :

* 24SEP03*

Formule excel = *=(TEXT(DAY(MID(A8;2;7));"00"))&" /
"&(TEXT(MONTH(MID(A8;2;7));"00"))&" / "&(TEXT(YEAR(MID(A8;2;7));"0000"))*
Ce qui me donne = *24 / 09 / 2003*

Je voudrais avoir le meme resultat dans un label dans une forme, mais
comment faire, car la formule text n'est pas reconnue sous VBA ?

D'avance un grand merci,

@+

Michel.
Signaler un problème avec ce contenu

10 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
1 2
Avatar
ru-th
Salut Michel

avec ta formule en d8, et ta date originelle en A8

Sub tes2()
With UserForm1
.Label1.Caption = Range("d8").Text
.Label2.Caption = "*" & UCase(Format([a8], "dd/mmm/yyyy")) & "*"
.Show
End With
End Sub
A+
rural thierry

"Michel HOLDERITH" a écrit dans le message de news:

Bonjour a tout le monde,

J'ai dans une cellule excel :

* 24SEP03*

Formule excel = *=(TEXT(DAY(MID(A8;2;7));"00"))&" /
"&(TEXT(MONTH(MID(A8;2;7));"00"))&" / "&(TEXT(YEAR(MID(A8;2;7));"0000"))*
Ce qui me donne = *24 / 09 / 2003*

Je voudrais avoir le meme resultat dans un label dans une forme, mais
comment faire, car la formule text n'est pas reconnue sous VBA ?

D'avance un grand merci,

@+

Michel.




Avatar
ru-th
.Label2.Caption = "*" & UCase(Format([a8], "dd / mmm / yyyy")) & "*"
pour respecter ta mise en forme

a+
rural thierry

"ru-th" a écrit dans le message de news:

Salut Michel

avec ta formule en d8, et ta date originelle en A8

Sub tes2()
With UserForm1
.Label1.Caption = Range("d8").Text
.Label2.Caption = "*" & UCase(Format([a8], "dd/mmm/yyyy")) & "*"
.Show
End With
End Sub
A+
rural thierry

"Michel HOLDERITH" a écrit dans le message de news:

Bonjour a tout le monde,

J'ai dans une cellule excel :

* 24SEP03*

Formule excel = *=(TEXT(DAY(MID(A8;2;7));"00"))&" /
"&(TEXT(MONTH(MID(A8;2;7));"00"))&" /
"&(TEXT(YEAR(MID(A8;2;7));"0000"))*


Ce qui me donne = *24 / 09 / 2003*

Je voudrais avoir le meme resultat dans un label dans une forme, mais
comment faire, car la formule text n'est pas reconnue sous VBA ?

D'avance un grand merci,

@+

Michel.








Avatar
Pierre CFI
salut Thierry
çà fait quoi un ucase sur des chiffres ? :O)))

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"ru-th" a écrit dans le message de news:
.Label2.Caption = "*" & UCase(Format([a8], "dd / mmm / yyyy")) & "*"
pour respecter ta mise en forme

a+
rural thierry

"ru-th" a écrit dans le message de news:

Salut Michel

avec ta formule en d8, et ta date originelle en A8

Sub tes2()
With UserForm1
.Label1.Caption = Range("d8").Text
.Label2.Caption = "*" & UCase(Format([a8], "dd/mmm/yyyy")) & "*"
.Show
End With
End Sub
A+
rural thierry

"Michel HOLDERITH" a écrit dans le message de news:

Bonjour a tout le monde,

J'ai dans une cellule excel :

* 24SEP03*

Formule excel = *=(TEXT(DAY(MID(A8;2;7));"00"))&" /
"&(TEXT(MONTH(MID(A8;2;7));"00"))&" /
"&(TEXT(YEAR(MID(A8;2;7));"0000"))*


Ce qui me donne = *24 / 09 / 2003*

Je voudrais avoir le meme resultat dans un label dans une forme, mais
comment faire, car la formule text n'est pas reconnue sous VBA ?

D'avance un grand merci,

@+

Michel.












Avatar
ru-th
allons Pierre, ucase(mmm) ne transforme-t'il point sep en SEP ?
;-))
a+
rural thierry

"Pierre CFI" a écrit dans le message de news:
#
salut Thierry
çà fait quoi un ucase sur des chiffres ? :O)))

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"ru-th" a écrit dans le message de news:


.Label2.Caption = "*" & UCase(Format([a8], "dd / mmm / yyyy")) & "*"
pour respecter ta mise en forme

a+
rural thierry

"ru-th" a écrit dans le message de news:

Salut Michel

avec ta formule en d8, et ta date originelle en A8

Sub tes2()
With UserForm1
.Label1.Caption = Range("d8").Text
.Label2.Caption = "*" & UCase(Format([a8], "dd/mmm/yyyy")) & "*"
.Show
End With
End Sub
A+
rural thierry

"Michel HOLDERITH" a écrit dans le message de news:

Bonjour a tout le monde,

J'ai dans une cellule excel :

* 24SEP03*

Formule excel = *=(TEXT(DAY(MID(A8;2;7));"00"))&" /
"&(TEXT(MONTH(MID(A8;2;7));"00"))&" /
"&(TEXT(YEAR(MID(A8;2;7));"0000"))*


Ce qui me donne = *24 / 09 / 2003*

Je voudrais avoir le meme resultat dans un label dans une forme,
mais




comment faire, car la formule text n'est pas reconnue sous VBA ?

D'avance un grand merci,

@+

Michel.
















Avatar
Michel Gaboly
Bonjour,

Utilise la fonction Format. Voici un exemple :


Sub DemoFormat()
MsgBox Format(Date, "dd / mm / yy")
End Sub



Bonjour a tout le monde,

J'ai dans une cellule excel :

* 24SEP03*

Formule excel = *=(TEXT(DAY(MID(A8;2;7));"00"))&" /
"&(TEXT(MONTH(MID(A8;2;7));"00"))&" / "&(TEXT(YEAR(MID(A8;2;7));"0000"))*
Ce qui me donne = *24 / 09 / 2003*

Je voudrais avoir le meme resultat dans un label dans une forme, mais
comment faire, car la formule text n'est pas reconnue sous VBA ?

D'avance un grand merci,

@+

Michel.


--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Avatar
Pierre CFI
oui, mais faire des dates 30/SEP/2003, ... je sais que dans le 49 tout est plutot bizarre mais là, c'est un piége pour les 53 :O))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"ru-th" a écrit dans le message de news: #T$
allons Pierre, ucase(mmm) ne transforme-t'il point sep en SEP ?
;-))
a+
rural thierry


Avatar
ru-th
c'est un format que l'on utilise pour les mayennais pour bien leur montrer
qu'ils ont là à faire à des dates, sinon, pour eux cela fait trop de
chiffres
;-))
a+
rural thierry

"Pierre CFI" a écrit dans le message de news:
bl9bli$iqb$
oui, mais faire des dates 30/SEP/2003, ... je sais que dans le 49 tout est
plutot bizarre mais là, c'est un piége pour les 53 :O))


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"ru-th" a écrit dans le message de news:
#T$

allons Pierre, ucase(mmm) ne transforme-t'il point sep en SEP ?
;-))
a+
rural thierry






Avatar
Michel HOLDERITH
Merci a vous tous de vos reponses
@+
Michel.

"ru-th" wrote in message
news:
c'est un format que l'on utilise pour les mayennais pour bien leur montrer
qu'ils ont là à faire à des dates, sinon, pour eux cela fait trop de
chiffres
;-))
a+
rural thierry

"Pierre CFI" a écrit dans le message de news:
bl9bli$iqb$
oui, mais faire des dates 30/SEP/2003, ... je sais que dans le 49 tout
est


plutot bizarre mais là, c'est un piége pour les 53 :O))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"ru-th" a écrit dans le message de news:
#T$

allons Pierre, ucase(mmm) ne transforme-t'il point sep en SEP ?
;-))
a+
rural thierry










Avatar
Michel HOLDERITH
merci
@+
Michel.

"Michel Gaboly" wrote in message
news:
Bonjour,

Utilise la fonction Format. Voici un exemple :


Sub DemoFormat()
MsgBox Format(Date, "dd / mm / yy")
End Sub



Bonjour a tout le monde,

J'ai dans une cellule excel :

* 24SEP03*

Formule excel = *=(TEXT(DAY(MID(A8;2;7));"00"))&" /
"&(TEXT(MONTH(MID(A8;2;7));"00"))&" /
"&(TEXT(YEAR(MID(A8;2;7));"0000"))*


Ce qui me donne = *24 / 09 / 2003*

Je voudrais avoir le meme resultat dans un label dans une forme, mais
comment faire, car la formule text n'est pas reconnue sous VBA ?

D'avance un grand merci,

@+

Michel.


--
Cordialement,

Michel Gaboly
http://www.gaboly.com





Avatar
Michel HOLDERITH
Re-salut,
Apres test ca ne marche pas..........
Ma valeur reste la meme que dans excel...... 29SEP03
Le label n'affiche pas 29/09/03
@+
Michel.


"Michel HOLDERITH" wrote in message
news:#
Merci a vous tous de vos reponses
@+
Michel.

"ru-th" wrote in message
news:
c'est un format que l'on utilise pour les mayennais pour bien leur
montrer


qu'ils ont là à faire à des dates, sinon, pour eux cela fait trop de
chiffres
;-))
a+
rural thierry

"Pierre CFI" a écrit dans le message de news:
bl9bli$iqb$
oui, mais faire des dates 30/SEP/2003, ... je sais que dans le 49 tout
est


plutot bizarre mais là, c'est un piége pour les 53 :O))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"ru-th" a écrit dans le message de news:
#T$

allons Pierre, ucase(mmm) ne transforme-t'il point sep en SEP ?
;-))
a+
rural thierry














1 2