Vba format date
Résolu/Fermé
A voir également:
- Vba format date
- Telecharger format factory - Télécharger - Conversion & Codecs
- Vba date du jour - Forum Excel
- Erreur 1004 vba ✓ - Forum VB / VBA
- Iphone 14 date de sortie - Guide
- Format date vba ✓ - Forum VB / VBA
1 réponse
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
29 mars 2018 à 17:18
29 mars 2018 à 17:18
Bonjour,
une facon de faire:
une facon de faire:
Sub test_Date()
Derligne_A = 5 'mis pour tester a enlever
For Each Cel In Sheets("A").Range(Cells(2, 29), Cells(Derligne_A, 29))
If Cel Like "*-*" Then
Mois = Mid(Cel, 4, 3)
If Mois = "JAN" Then
MoisN = "01"
ElseIf Mois = "FEV" Then
MoisN = "02"
ElseIf Mois = "MAR" Then
MoisN = "03"
ElseIf Mois = "AVR" Then
MoisN = "04"
ElseIf Mois = "MAI" Then
MoisN = "05"
ElseIf Mois = "JUI" Then
MoisN = "06"
ElseIf Mois = "JUL" Then
MoisN = "07"
ElseIf Mois = "AOU" Then
MoisN = "08"
ElseIf Mois = "SEP" Then
MoisN = "09"
ElseIf Mois = "OCT" Then
MoisN = "10"
ElseIf Mois = "NOV" Then
MoisN = "11"
ElseIf Mois = "DEC" Then
MoisN = "12"
Else
End If
DDAte = Left(Cel, 2) & "/" & MoisN & "/" & "20" & Right(Cel, 2)
Cel.Clear
Cel.Value = DateValue(DDAte)
End If
Next Cel
End Sub
30 mars 2018 à 14:48
C'est résolu,
merci