Vba format date

Résolu/Fermé
tt - Modifié le 29 mars 2018 à 11:35
 tt - 30 mars 2018 à 14:48
Bonjour,

je vous sollicite sur un problème de format date, après avoir croisé deux fichiers, je me retrouve avec des dates en texte et des dates au format "dd/mm/yyyy"

le texte se trouve sous la forme : 01 - JAN - 2018

je traite donc avec le code ci dessous, 

For Each Cel In Sheets("A).Range(Cells(2, 29), Cells(Derligne_A, 29))
        If Cel Like "*-*" Then
            If Mid(Cel, 4, 3) = "JAN" Then
                Cel.Value = Left(Cel, 2) & "/" & "01" & "/" & "20" & Right(Cel, 2)
                Cel.Value = Format(Cel.Value, "dd/mm/yyyy")
            End If
            If Mid(Cel, 4, 3) = "FEV" Then
                Cel.Value = Left(Cel, 2) & "/" & "02" & "/" & "20" & Right(Cel, 2)
                Cel.Value = Format(Cel.Value, "dd/mm/yyyy")
            End If
            If Mid(Cel, 4, 3) = "MAR" Then
                Cel.Value = Left(Cel, 2) & "/" & "03" & "/" & "20" & Right(Cel, 2)
                Cel.Value = Format(Cel.Value, "dd/mm/yyyy")
            End If
            If Mid(Cel, 4, 3) = "AVR" Then
                Cel.Value = Left(Cel, 2) & "/" & "04" & "/" & "20" & Right(Cel, 2)
                Cel.Value = Format(Cel.Value, "dd/mm/yyyy")
            End If
            If Mid(Cel, 4, 3) = "MAI" Then
                Cel.Value = Left(Cel, 2) & "/" & "05" & "/" & "20" & Right(Cel, 2)
                Cel.Value = Format(Cel.Value, "dd/mm/yyyy")
            End If
            If Mid(Cel, 4, 3) = "JUI" Then
                Cel.Value = Left(Cel, 2) & "/" & "06" & "/" & "20" & Right(Cel, 2)
                Cel.Value = Format(Cel.Value, "dd/mm/yyyy")
            End If
            If Mid(Cel, 4, 3) = "JUL" Then
                Cel.Value = Left(Cel, 2) & "/" & "07" & "/" & "20" & Right(Cel, 2)
                Cel.Value = Format(Cel.Value, "dd/mm/yyyy")
            End If
            If Mid(Cel, 4, 3) = "AOU" Then
                Cel.Value = Left(Cel, 2) & "/" & "08" & "/" & "20" & Right(Cel, 2)
                Cel.Value = Format(Cel.Value, "dd/mm/yyyy")
            End If
            If Mid(Cel, 4, 3) = "SEP" Then
                Cel.Value = Left(Cel, 2) & "/" & "09" & "/" & "20" & Right(Cel, 2)
                Cel.Value = Format(Cel.Value, "dd/mm/yyyy")
            End If
            If Mid(Cel, 4, 3) = "OCT" Then
                Cel.Value = Left(Cel, 2) & "/" & "10" & "/" & "20" & Right(Cel, 2)
                Cel.Value = Format(Cel.Value, "dd/mm/yyyy")
            End If
            If Mid(Cel, 4, 3) = "NOV" Then
                Cel.Value = Left(Cel, 2) & "/" & "11" & "/" & "20" & Right(Cel, 2)
                Cel.Value = Format(Cel.Value, "dd/mm/yyyy")
            End If
            If Mid(Cel, 4, 3) = "DEC" Then
                Cel.Value = Left(Cel, 2) & "/" & "12" & "/" & "20" & Right(Cel, 2)
                Cel.Value = Format(Cel.Value, "dd/mm/yyyy")
            End If
        End If
    Next Cel


mais le format de la cellule n'est pas validée en date dd/mm/yyyy,

les dates restent sur la gauche, et je suis obligé de faire un double clic sur chaque ligne pour la prise en compte du nouveau format,

Est ce que vous avez une solution ?

Merci d'avance,
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
29 mars 2018 à 17:18
Bonjour,

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
1
tt
30 mars 2018 à 14:48
Bonjour,

C'est résolu,

merci
0

Discussions similaires

je cherche la date et le lieu de naissance d une personne
country -
bg62 -

bonjour
je cherche la date et le lieu de naissance d une personne

2 réponses
taxe foncière pour locataire
Cryséis -
irongege -

bonjour, je suis locataire à l'étage d'une maison. je reçois ce mois ci ma quittance de loyer accompagnée d'une facture correspondant à la taxe foncière. En effet notre propiétaire ayant reçu l'avis de taxe foncière, il la divise en 4 (nombre de locataires) et nous facture la somme. Sachant que nous payons une taxe d'habitation, sommes nous redevables de cette somme? Cette pratique est-elle normale?

1 réponse
Problème publipostage date de naissance
garbiche22 -
cg13 -

Bonjour,

J'ai créé une base de données sur Excel avec différentes informations dont un champ "Date de naissance". Lorsque je suis sur mon fichier Word et que je créais un publipostage en fonction de cette base de données, la date est en format anglais c'est-à-dire que l'ordre des chiffres est inversé. Je suis allé sur des forums pour tenter de trouver une solution, celle que j'ai retrouvé le plus était la modification du champ en ajoutant " \@"dd/MM/yyyy" ". Le seul résultat que j'ai est que cela m'affiche la date du jour, certes en format français mais ce n'est pas ce que je recherche.

Quelqu'un aurait-il une solution ??

Merci d'avance !!

...

3 réponses