conversion format date

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

marcello06

XLDnaute Occasionnel
bonsoir à tous

je me tourne vers vous pour vous exposer mon (petit ) soucis

j'ai une requette qui me retourne plusieurs champ dont un champ date sous la forme classique jj/mm/aaaa comme 31/10/2006 mais va donc comprendre parfois
elle me retourne 11/08/2006 pour le 8 nov 2006 comment faire en vba pour convertir sur cette colonne?
je vous joins une partie de mon fichier en exemple


j'ai le plaisir de vous lire regulierement (et d'apprendre)et je vous remercie d'avance pour vos réponses
 

Pièces jointes

Re : conversion format date

Bonjour le forum, Simons,

Simons, ta macro m'intéresse mais je n'arrive pas, dans mon cas, à la faire fonctionner ?.

Pourriez-vous jeter un oeil à mon fichier.

Je vous remercie pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian.
 

Pièces jointes

Re : conversion format date

Salut le Forum et toi Marcello

Une Function deTi

Private Function MetEnDate(ByVal StrD$) As Date 'Ti
Dim Splt
If IsDate(StrD) Then
If Len(StrD) - Len(Replace(StrD, "/", "")) < 2 Then StrD = StrD & "/0"
Splt = Split(StrD, "/")
MetEnDate = DateSerial(Splt(2), Splt(1), Splt(0))
End If
End Function


Mettre dans la feuille 1


Sub formatdate()
Dim Cel As Range
Dim Cel2 As Range


Set Cel = Range("e2:e20")
'Pour chaque cellule de la plage de cellule
For Each Cel2 In Cel
Cel2.MetEnDate = "dd/mm/yyyy"
Next
End Sub

Merci à Ti du Forum Veriti pour toutes les merveilles
@+
 
Re : conversion format date

Re Salut Christian

Je te joins le fichier , mais je ne suis pas sûr que tes dates récupérées soit d'origine date , sinon en tapant les dates en format normal (00/00/0000)
elles ne se retournent plus

Aprés cela me dépasse !
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
153
Réponses
6
Affichages
284
Réponses
9
Affichages
154
Réponses
4
Affichages
342
Réponses
1
Affichages
303
Compte Supprimé 979
C
Retour