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

3 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
Michel HOLDERITH
Ah oui il faut considerer que la valeur "29SEP03" est en format texte et non
une date, voila pourquoi ta macro ne marche pas, ou je me trompe ?
@+
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














Avatar
ru-th
oui, tu te trompes,
la raison que cela ne marche pas, c'est que je n'ai pas compris la question
que tu posais, ou du moins, j'en ai fait une projection mentale quelque peu
erronné due à l'érosion de mes synapses

si tu pars de *29SEP03* pour arriver dans le label à *29 / 09 / 2003*

With UserForm1
.Label2.Caption = Evaluate("=""*""&TEXT(MID(a8,2,LEN(a8)-2)*1,""dd / mm /
yyyy"")&""*""")
.Show
End With
End Sub

de même ta formule pourrait donnée
="*"&TEXTE(STXT(A1;2;NBCAR(A1)-2)*1;"jj / mm / aaaa")&"*"

on verra si j'ai (enfin) compris
a+
rural thierry


"Michel HOLDERITH" a écrit dans le message de news:
#
Ah oui il faut considerer que la valeur "29SEP03" est en format texte et
non

une date, voila pourquoi ta macro ne marche pas, ou je me trompe ?
@+
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


















Avatar
Michel HOLDERITH
TIP-TOP TROP FORT.
C'est cooooooooool ca marche pil comme je veux.
Encore pardon si mes explications n'etaient pas tres clair.
Encore merci
@+
Michel.

"ru-th" wrote in message
news:#
oui, tu te trompes,
la raison que cela ne marche pas, c'est que je n'ai pas compris la
question

que tu posais, ou du moins, j'en ai fait une projection mentale quelque
peu

erronné due à l'érosion de mes synapses

si tu pars de *29SEP03* pour arriver dans le label à *29 / 09 / 2003*

With UserForm1
.Label2.Caption = Evaluate("=""*""&TEXT(MID(a8,2,LEN(a8)-2)*1,""dd / mm /
yyyy"")&""*""")
.Show
End With
End Sub

de même ta formule pourrait donnée
="*"&TEXTE(STXT(A1;2;NBCAR(A1)-2)*1;"jj / mm / aaaa")&"*"

on verra si j'ai (enfin) compris
a+
rural thierry


"Michel HOLDERITH" a écrit dans le message de news:
#
Ah oui il faut considerer que la valeur "29SEP03" est en format texte et
non

une date, voila pourquoi ta macro ne marche pas, ou je me trompe ?
@+
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