Convertir un nombre en date

[Axel22]

Bonjour je suis recherche une macro qui pourrait me convertir un nombre en date sous format dd/mm/yyyy.
Sauf que mes nombres sont sous cette forme : 19950529 et je voudrais qu'il devienne 29/05/1995
Si quelqu'un à la solution je suis preneur.
Merci d'avance 😉

 

[M12]

Bonjour

Teste cette formule

=DATE(STXT(A1;1;4);STXT(A1;5;2);STXT(A1;7;2))

 

[JHA]

Bonjour à tous,

Par formule, avec nombre en "B7"

=DATE(ANNEE(GAUCHE(B7;4));MOIS(STXT(B7;5;2));JOUR(DROITE(B7;2)))

copier vers le bas
Après recopie, tu sélectionnes les dates et copier/collage spécial/valeur
puis tu supprimes la colonne des nombres.


JHA

 

[Hasco]

Bonjour,

Sans macro (ou alors il faut la justifier) et avec une date en A1 : =DATE(GAUCHE(A1;4);STXT(A1;5;2);DROITE(A1;2));
A+

 

[Axel22]

Merci pour vos réponses mais j'aurai besoin d'un code VBA pour automatiser la conversion de du nombre en date

 

[job75]

Bonjour Axel22, M12, JHA, Roblochon,

j'aurai besoin d'un code VBA pour automatiser la conversion de du nombre en date

Voyez le fichier joint et ces macros :

Sub NombreVersDate()
Dim P As Range, tablo, i&, x$
With ActiveSheet
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    Set P = .UsedRange.Columns(1) '1ère colonne, à adapter
End With
tablo = P.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
Application.ScreenUpdating = False
P.NumberFormat = "dd/mm/yyyy" 'format Date
For i = 1 To UBound(tablo)
    x = tablo(i, 1)
    If x Like "########" Then
        x = Right(x, 2) & "/" & Mid(x, 5, 2) & "/" & Left(x, 4)
        If IsDate(x) Then tablo(i, 1) = CDate(x) Else P(i).NumberFormat = "General"
    Else
        P(i).NumberFormat = "General" 'format Standard
    End If
Next
P = tablo 'restitution
End Sub

Sub DateVersNombre()
Dim P As Range, tablo, i&, x
With ActiveSheet
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    Set P = .UsedRange.Columns(1) '1ère colonne, à adapter
End With
tablo = P.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
For i = 1 To UBound(tablo)
    x = tablo(i, 1)
    If IsDate(x) Then tablo(i, 1) = Format(x, "yyyymmdd")
Next
Application.ScreenUpdating = False
P.NumberFormat = "General" 'format Standard
P = tablo 'restitution
End Sub

A+

 

[Modeste geedee]

Bonsour®

Bonjour je suis recherche une macro qui pourrait me convertir un nombre en date sous format dd/mm/yyyy.
Sauf que mes nombres sont sous cette forme : 19950529 et je voudrais qu'il devienne 29/05/1995
Si quelqu'un à la solution je suis preneur.
Merci d'avance 😉

les nombres sont-ils toujours dans la(es) meme(s) colonne(s) ????
dans ce cas :
selectionner la colonne
données > convertir
à l"étape 3 choisir
format AMJ
terminer

appliquer ensuite le format de date qui vous convient ...

 

[job75]

Le client a demandé du VBA Modeste geedee 🙄

 

[Modeste geedee]

Bonsour®

Le client a demandé du VBA Modeste geedee 🙄

😡 c'est devenu la norme ...🙁
on ignore le B A BA des feuilles de calcul, les bases des formules, on ignore l'analyse et l'algorithmie ...
😎et puis le boss de XLD résout tout ...

 

[Axel22]

Merci beaucoup pour vos réponses 😉

 

[job75]

BonjourAxel22, le forum,

Fichier (2) avec un seul bouton et une seule macro :

Sub Conversion()
If IsError(Application.Caller) Then Exit Sub
Dim P As Range, tablo, o As Object, i&, x
With ActiveSheet
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    Set P = .UsedRange.Columns(1) '1ère colonne, à adapter
    tablo = P.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
    Set o = .DrawingObjects(Application.Caller)
End With
Application.ScreenUpdating = False
If o.Text Like "Nombre*" Then
    o.Text = "Date vers Nombre"
    P.NumberFormat = "dd/mm/yyyy" 'format Date
    For i = 1 To UBound(tablo)
        x = tablo(i, 1)
        If x Like "########" Then
            x = Right(x, 2) & "/" & Mid(x, 5, 2) & "/" & Left(x, 4)
            If IsDate(x) Then tablo(i, 1) = CDate(x) Else P(i).NumberFormat = "General"
        Else
            P(i).NumberFormat = "General" 'format Standard
        End If
    Next
Else
    o.Text = "Nombre vers Date"
    For i = 1 To UBound(tablo)
        x = tablo(i, 1)
        If IsDate(x) Then tablo(i, 1) = Format(x, "yyyymmdd")
    Next
    P.NumberFormat = "General" 'format Standard
End If
P = tablo 'restitution
End Sub

Bonne journée.

 

[Axel22]

Merci beaucoup job75 ! Vous m'avez débloqué 😉 Bonne journée