Découpage de date

Victor21

XLDnaute Barbatruc

Supporter XLD

• 10 Mai 2014

• #2

Re : Découpage de date

Bonsoir, GADENSEB

Pourquoi faire simple ?
I1=H1 suffit en modifiant le format de la colonne I "aaaa-mm-jj"

 

Vote positif 0 Vote négatif

GADENSEB

XLDnaute Impliqué

• 10 Mai 2014

• #3

Re : Découpage de date

Ben j'y bien pensé
Mais la macro que j'utilise ensuite ne marche pas dans ce cas là !

Je suis obligé de convertir (dans une autre colonne) sous le format 2014-04-15.....
Je sais c'est pénible....

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 10 Mai 2014

• #4

Re : Découpage de date

Bonsour®
comme l'a dit Victor 🙄
Pourquoi faire simple ?
I1=TEXTE(H1;"aaaa-mm-jj")

😕 😡
sans connaitre ce que la macro suivante effectue, toutes les hypothèses sont permises...

un extrait de fichier et la macro éviteraient de chercher tout azimuths...

 

Dernière édition: 10 Mai 2014

Vote positif 0 Vote négatif

GADENSEB

XLDnaute Impliqué

• 10 Mai 2014

• #5

Re : Découpage de date

Ok je vous file mon fichier test
C'est pour exécuter la macro GOOGLEAGENDA
Cela me génère mes rdv sous google agenda

le format si spéciale est pour générer une DATEDEBUT et DATEFIN

le format imposé est 2014-04-15 pour ces dates ..
Si vous voyez une autre combine, je suis preneur !!!

Bonne soirée
Seb

 

Pièces jointes

• TEST MACRO V2 - DEMO.xlsm

  30 KB · Affichages: 36

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 10 Mai 2014

• #6

Re : Découpage de date

Bonsour®

VB:

Sub CONVERT()
j = Range("h2").End(xlDown).Row
For i = 2 To j
 Cells(i, "I") = "'" & Format(Cells(i, "h"), "yyyy-mm-dd")
Next
End Sub

VB:

DATEDEBUT = Format(Range("F" & i), "yyyy-mm-dd") & "T13:00:00.000Z"
'DATEDEBUT = Range("F" & i).Value
'& "<gd:when startTime='2014-05-09T13:00:00.000Z' " _
Sheets("Feuil1").Range(int1 & "255" & ":" & int2 & "255").Select
'ConcRange = CStr(rngCell.Value)
DATEFIN = Format(Range("F" & i), "yyyy-mm-dd") & "T17:00:00.000Z"
'DATEFIN = Range("F" & i).Value
'& "endTime='2014-05-09T17:00:00.000Z'></gd:when>"

 

Dernière édition: 10 Mai 2014

Vote positif 0 Vote négatif

GADENSEB

XLDnaute Impliqué

• 10 Mai 2014

• #7

Re : Découpage de date

Merci à Tous
C'est ce que je cherchais

Merci

Bonne soirée

Seb

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Mai 2014

• #8

Re : Découpage de date

Bonsoir à tous


Est-ce la voie formulistique marche aussi ?

Code:

=T(TEXTE(B1;"aaaa/mm/jj"))

NB: J'ai testé aussi Données/Convertir [Etape 3: •Date: AMJ]
Mais sans succès, quelqu'un pourrait-il me dire pourquoi ? 😉

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 11 Mai 2014

• #9

Re : Découpage de date

Bonsour®

Staple1600 à dit:

Bonsoir à tous


NB: J'ai testé aussi Données/Convertir [Etape 3: •Date: AMJ]
Mais sans succès, quelqu'un pourrait-il me dire pourquoi ? 😉

Cliquez pour agrandir...

parce que ... 🙄
l'option AMJ concerne uniquement le format lu(source)

"By design" Excel reconnait alors une date et applique automatiquement le format date défini dans les options Windows

seul un format Texte coté cible permet d'échapper à cette fonctionnalité "By design" 😎

 

Pièces jointes

• Capture.jpg

  43.7 KB · Affichages: 48
• Capture.jpg

  43.7 KB · Affichages: 43

Vote positif 0 Vote négatif