Lors de l'importation d'un fichier texte, une colonne contenant une date est
scindée en 2 (P et Q).
Pour pouvoir récupérer cette date, j'applique une formule dans la cellule
voisine...
With Range("R1")
'.NumberFormat = "dd/mm/yy"
.FormulaR1C1 = "=MID(RC[-2],4,6)&RC[-1]"
'.NumberFormat = "dd/mm/yy"
.Value2 = .Value
End With
La date obtnue est la bonne (01/10/03) jusqu'à ce que je fige cette valeur
(.Value = .Value), là elle passe en Americain : 10/01/03
j'ai essayé un peu tout sans résultat : (.Value2 = .Value , .NumberFormat =
"dd/mm/yy"...
Qu'est-ce qu'il y a en P1 et Q1...exemple et résultat attendu ?
AV
Domi
En P1 : le texte suivant : "e: 01/10/" En Q1 : le texte suivant : "03" Ce qui explique le MID.. pour recuperer la première partie de la date... Ce que je voudrais recuperer c'est 01/10/03.
Merci Domi
"AV" a écrit dans le message de news: bo65km$gn8$
Qu'est-ce qu'il y a en P1 et Q1...exemple et résultat attendu ?
AV
En P1 : le texte suivant : "e: 01/10/"
En Q1 : le texte suivant : "03"
Ce qui explique le MID.. pour recuperer la première partie de la date...
Ce que je voudrais recuperer c'est 01/10/03.
Merci
Domi
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
bo65km$gn8$1@news-reader2.wanadoo.fr...
Qu'est-ce qu'il y a en P1 et Q1...exemple et résultat attendu ?
En P1 : le texte suivant : "e: 01/10/" En Q1 : le texte suivant : "03" Ce qui explique le MID.. pour recuperer la première partie de la date... Ce que je voudrais recuperer c'est 01/10/03.
Merci Domi
"AV" a écrit dans le message de news: bo65km$gn8$
Qu'est-ce qu'il y a en P1 et Q1...exemple et résultat attendu ?
AV
Frédéric Sigonneau
Bonsoir,
Tu peux aussi essayer avec cette formule, qui demande explicitement la conversion de la chaine de caractères en date :
Sub test() With Range("R1") .FormulaR1C1 = "Útevalue(MID(RC[-2],4,6)&RC[-1])" .Value = .Value End With End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
En P1 : le texte suivant : "e: 01/10/" En Q1 : le texte suivant : "03" Ce qui explique le MID.. pour recuperer la première partie de la date... Ce que je voudrais recuperer c'est 01/10/03.
Merci Domi
"AV" a écrit dans le message de news: bo65km$gn8$
Qu'est-ce qu'il y a en P1 et Q1...exemple et résultat attendu ?
AV
Bonsoir,
Tu peux aussi essayer avec cette formule, qui demande explicitement la
conversion de la chaine de caractères en date :
Sub test()
With Range("R1")
.FormulaR1C1 = "Útevalue(MID(RC[-2],4,6)&RC[-1])"
.Value = .Value
End With
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
En P1 : le texte suivant : "e: 01/10/"
En Q1 : le texte suivant : "03"
Ce qui explique le MID.. pour recuperer la première partie de la date...
Ce que je voudrais recuperer c'est 01/10/03.
Merci
Domi
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
bo65km$gn8$1@news-reader2.wanadoo.fr...
Qu'est-ce qu'il y a en P1 et Q1...exemple et résultat attendu ?
Tu peux aussi essayer avec cette formule, qui demande explicitement la conversion de la chaine de caractères en date :
Sub test() With Range("R1") .FormulaR1C1 = "Útevalue(MID(RC[-2],4,6)&RC[-1])" .Value = .Value End With End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
En P1 : le texte suivant : "e: 01/10/" En Q1 : le texte suivant : "03" Ce qui explique le MID.. pour recuperer la première partie de la date... Ce que je voudrais recuperer c'est 01/10/03.
Merci Domi
"AV" a écrit dans le message de news: bo65km$gn8$
Qu'est-ce qu'il y a en P1 et Q1...exemple et résultat attendu ?
AV
Domi
Merci Frédéric. Ca marche. Domi
"Frédéric Sigonneau" a écrit dans le message de news:
Bonsoir,
Tu peux aussi essayer avec cette formule, qui demande explicitement la conversion de la chaine de caractères en date :
Sub test() With Range("R1") .FormulaR1C1 = "Útevalue(MID(RC[-2],4,6)&RC[-1])" .Value = .Value End With End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
En P1 : le texte suivant : "e: 01/10/" En Q1 : le texte suivant : "03" Ce qui explique le MID.. pour recuperer la première partie de la date... Ce que je voudrais recuperer c'est 01/10/03.
Merci Domi
"AV" a écrit dans le message de news: bo65km$gn8$
Qu'est-ce qu'il y a en P1 et Q1...exemple et résultat attendu ?
AV
Merci Frédéric.
Ca marche.
Domi
"Frédéric Sigonneau" <frederic.sigonneau@wanadoo.fr> a écrit dans le message
de news: 3FA6C4F5.DFE9D4D4@wanadoo.fr...
Bonsoir,
Tu peux aussi essayer avec cette formule, qui demande explicitement la
conversion de la chaine de caractères en date :
Sub test()
With Range("R1")
.FormulaR1C1 = "Útevalue(MID(RC[-2],4,6)&RC[-1])"
.Value = .Value
End With
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
En P1 : le texte suivant : "e: 01/10/"
En Q1 : le texte suivant : "03"
Ce qui explique le MID.. pour recuperer la première partie de la date...
Ce que je voudrais recuperer c'est 01/10/03.
Merci
Domi
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
bo65km$gn8$1@news-reader2.wanadoo.fr...
Qu'est-ce qu'il y a en P1 et Q1...exemple et résultat attendu ?
"Frédéric Sigonneau" a écrit dans le message de news:
Bonsoir,
Tu peux aussi essayer avec cette formule, qui demande explicitement la conversion de la chaine de caractères en date :
Sub test() With Range("R1") .FormulaR1C1 = "Útevalue(MID(RC[-2],4,6)&RC[-1])" .Value = .Value End With End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
En P1 : le texte suivant : "e: 01/10/" En Q1 : le texte suivant : "03" Ce qui explique le MID.. pour recuperer la première partie de la date... Ce que je voudrais recuperer c'est 01/10/03.
Merci Domi
"AV" a écrit dans le message de news: bo65km$gn8$
Qu'est-ce qu'il y a en P1 et Q1...exemple et résultat attendu ?
