Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[VBA] Convertion de date. [resolu]

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion mulpha
  • Date de début Date de début

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 !

S'inscrire
M

mulpha

XLDnaute Nouveau
Bonjour à tous le monde.

Et merci à ceux qui ont osez s'aventurer sur mon topic.

J'ai un petit souci lorsque j'extrais mes données de mon ERP(oracle donc) avec les formats de date.
Pour résoudre ce souci j'ai fais manuelement le remplacement de "aug-09" par "août-09" puis ensuite convertir en format date.
Dans ce cas la pas de problème.

Ensuite j'ai voulu intégrer le remplacer puis convertir dans une macro et là... ca marche pô.
Pour info voir mon fichier joint.

Je fais donc appel a vos lumières pour me venir en aide.

Merci par avance
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : [VBA] Convertion de date. Convertir en manuel=ok par macro= pas ok ???

Bonjour Mulpha

A tester:
Code: 
Sub test()
Columns("A:A").Select
Selection.Replace What:="FEB", Replacement:="Fév", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="APR", Replacement:="avril", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="MAY", Replacement:="mai", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="JUN", Replacement:="juin", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="JUL", Replacement:="juil", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="aug", Replacement:="août", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
Selection.Replace What:="DEC", Replacement:="déc", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
tablo = Range("A2:A" & Range("A65536").End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
x = Split(tablo(n, 1), "-")
If UBound(x) > 0 Then
tablo(n, 1) = CDate("01/" & x(0) & "/" & x(1))
End If
Next n
Range("A2").Resize(UBound(tablo, 1), 1) = tablo
Columns("A:A").NumberFormat = "mmm-yy"
End Sub
 
Vote positif 0 Vote négatif
Re : [VBA] Convertion de date. Convertir en manuel=ok par macro= pas ok ???

Bonjour


Je te propose comme ça pour forcer excel à comprendre qu'il s'agit d'une date
Code: 
    Selection.Replace What:="FEB-", Replacement:="01/02/", LookAt:=xlPart
    Selection.Replace What:="APR-", Replacement:="01/04/", LookAt:=xlPart
    Selection.Replace What:="MAY-", Replacement:="01/05/", LookAt:=xlPart
    Selection.Replace What:="JUN-", Replacement:="01/06/", LookAt:=xlPart
    Selection.Replace What:="JUL-", Replacement:="01/07/", LookAt:=xlPart
    Selection.Replace What:="AUG-", Replacement:="01/08/", LookAt:=xlPart
    Selection.Replace What:="DEC-", Replacement:="01/12/", LookAt:=xlPart
 
Vote positif 0 Vote négatif
Re : [VBA] Convertion de date. Convertir en manuel=ok par macro= pas ok ???

Merci beacoup à vous 2 pour vos 2 solutions qui marchent parfaitement !!!

Misange ta solution est plus simple j'aurais pu y penser d'ailleurs...

Mais celle de pierrejean est un défi à comprendre lol ! (je vais bien sur la décortiquer !)

Encore merci pour votre patience et votre aide dont vous faites preuve sur le forum.

Pour information, ce morceau de code sera insérer dans une macro pour une grande entreprise francaise qui tournera tous les mois (dixaines d'extractions réalisées par mois) Eh oui, vous avez encore contribué à améliorer l'efficassité francaise 😉

A bientot peut etre
Cdlt
Mulpha
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

S
  • Résolu(e)
Microsoft 365 Format date
Réponses
6
Affichages
331
Sylvia57
S
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
307
TooFatBoy
  • Question Question
XL 2016 Gestion de Fuites d'un Parc de Compteurs
Réponses
6
Affichages
430
Captain NRJ
I
  • Question Question
XL 2019 (RESOLU) Date de dernière modification d'une plage de cellule
Réponses
3
Affichages
1 K
patricktoulon
D
  • Question Question
Microsoft 365 Cas réel - avec problème complexe sur de la prevision de match en evitant les doublons
Réponses
1
Affichages
889
Dock91
D
D
  • Résolu(e)
Microsoft 365 Ajouter une date de création automatique selon colonne A et une date de modification selon colonne F
Réponses
1
Affichages
612
Phil69970
Y
  • Question Question
Microsoft 365 Excel-VBA - Problème de bouche trop longue
2 3
Réponses
42
Affichages
3 K
yannos12
Y
M
  • Résolu(e)
Microsoft 365 enregistrement copie du classeur ouvert avec mot de passe et incrémentation
2
Réponses
27
Affichages
2 K
meyscal
M
A
  • Résolu(e)
Microsoft 365 problème dates et sommeprod
2
Réponses
20
Affichages
2 K
ababi
A
C
  • Question Question
XL 2019 Filtrage de données en VBA
Réponses
11
Affichages
2 K
Phil69970
O
  • Résolu(e)
XL 2019 Moyenne de valeurs par date à partir d'un tableau
Réponses
4
Affichages
1 K
Olocsob
O
A
  • Question Question
XL 2019 Calculer une occurence en fonction d'une date supérieur à une autre
Réponses
9
Affichages
1 K
FlamXYZ
F
D
  • Question Question
XL 2016 [RESOLU] Copie d'une zone selon contenu d'une cellule et mise a jour de certaines cellules de la zone et format date
Réponses
0
Affichages
1 K
dupuy.mathias
D
D
  • Question Question
XL 2016 [RESOLU] plusieurs demandes VBA sur fichier de suivi de téléphones
Réponses
3
Affichages
1 K
dupuy.mathias
D
  • Question Question
Calcul du nombre d'heures en fonction de dates - 3 conditions (Sans VBA)
Réponses
5
Affichages
1 K
OliVBB
O
  • Question Question
Microsoft 365 Archiver des données selon choix de listes déroulantes
Réponses
0
Affichages
968
Olivier2049
O
A
  • Question Question
XL 2016 Onglets de synthèse routine
Réponses
1
Affichages
934
Hasco
S
  • Question Question
Filtrage via VBA avec parametre Variable (Date du jour en cours) RESOLU
Réponses
1
Affichages
711
Sghaier Chafaa
S
M
  • Question Question
XL 2016 Nombre de jours par mois
Réponses
10
Affichages
2 K
chris
A
  • Question Question
Plage de cellule ajustée automatiquement pour mes graphiques
Réponses
6
Affichages
2 K
amodu1244
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…