XL 2013 Décomposer une Date avec VBA

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Octobre 2022

• #2

Bonjour Azerty,
Une idée :

VB:

Sub Décomposition()
    Valeur = Range("F10")   ' A adapter
    Jour = Day(Valeur)
    Mois = Month(Valeur)
    Année = Year(Valeur)
    Heure = TimeValue(Valeur)
End Sub

 

Vote positif 0 Vote négatif

A

azerty129

XLDnaute Nouveau

• 20 Octobre 2022

• #3

J'ai essayé avec le code il ne fonctionne pas.
quel est le souci ?

 

Pièces jointes

• Classeur1.xlsm

  15.8 KB · Affichages: 6

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 20 Octobre 2022

• #4

Bonjour,
Il faut adapter le code...
Par exemple :

VB:

Sub Décomposition()
Dim Cel As Range
For Each Cel In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    With Cel
        If IsDate(.Value) Then 'A savoir que tout nombre peut être considéré comme une date
            .Offset(, 2) = Day(.Value)
            .Offset(, 3) = Month(.Value)
            .Offset(, 4) = Year(.Value)
            .Offset(, 5) = Format(.Value, "hh:mm")
        End If
    End With
Next Cel
End Sub

Bonne journée

 

Vote positif 0 Vote négatif

A

azerty129

XLDnaute Nouveau

• 20 Octobre 2022

• #5

Merci beaucoup pour vos réponse cela fonctionne

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Octobre 2022

• #6

D'où l'utilité d'un fichier test.

 

Vote positif 0 Vote négatif

A

azerty129

XLDnaute Nouveau

• 20 Octobre 2022

• #7

Re voyer vous pourquoi mes dates du 26 ne fonctionne pas (je ne l'ai pas écrite a la main)

 

Pièces jointes

• Classeur1.xlsm

  18.1 KB · Affichages: 5

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 20 Octobre 2022

• #8

Re-,
Je ne sais d'où proviennent ces données ressemblant à des dates, mais leur comportement est vraiment bizarre...
Je n'ai pas réussi à les manipuler afin qu'elles se convertissent, même si on veut supprimer un /, il faut 2 appuis sur le bouton de suppression..
Et on dirait qu'il y a un espace à la fin, mais si on veut le supprimer, c'est le dernier chiffre qui est effacé...
Jamais vu ce type de données...

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Octobre 2022

• #9

Re,
L'analyse de la chaine "‎26/‎06/‎2020 ‏‎16:30" est la suivante :

Déjà c'est une chaine non une date ( car sinon l'analyse montrerai un nombre ) d'autre part il y a des codes 63 qui ne seront pas interprété comme des espaces.

 

Vote positif 0 Vote négatif

A

azerty129

XLDnaute Nouveau

• 24 Octobre 2022

• #10

sylvanu à dit:

Re,
L'analyse de la chaine "‎26/‎06/‎2020 ‏‎16:30" est la suivante :
Regarde la pièce jointe 1152874
Déjà c'est une chaine non une date ( car sinon l'analyse montrerai un nombre ) d'autre part il y a des codes 63 qui ne seront pas interprété comme des espaces.

Cliquez pour agrandir...

C'est données son tirer d'un code pour récupérer une date d'une image par rapport a c'est propriété
le code en question :

Dim Tph(), chDph$, nPh$, ph%
chDph = Chemin
nPh = Dir(chDph & "\*.jpg")
Do While nPh <> ""
ph = ph + 1: ReDim Preserve Tph(1, ph)
'Tph(0, ph) = Replace(nPh, ".jpg", "", , , vbTextCompare)
Tph(0, ph) = DPrVue(chDph, nPh)
nPh = Dir()
Loop
'Tph(0, 0) = "Photo":
Tph(0, 0) = "Prise de vue"


With ActiveSheet.Range("n1").Resize(ph + 1)
.Value = WorksheetFunction.Transpose(Tph)
End With

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Octobre 2022

• #11

Bonjour,
Il n'empêche que cela donne du texte et non une date, donc "Décomposer une Date avec VBA" ne sera pas possible avec ce texte, les codes 63 ne seront pas interprétés correctement.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Octobre 2022

• #12

Re,
Si vous ne pouvez garantir que l'entrée est une date vous pouvez essayer ceci sans aucune garantie que cela couvre toutes les possibilités, mais au moins ça marche avec les ex de votre fichier :

VB:

Sub Décomposition()
Dim Cel As Range, Chaine$, V$, i%
Application.ScreenUpdating = False
For Each Cel In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    Chaine = ""
    With Cel
        V = .Value
        If Not IsDate(V) Then   ' Si ce n'est pas une date on supprime tout ce qui est différent d'un chiffre ou d'un espace ou de "/" ou ":"
            For i = 1 To Len(V)
                carac = Mid(V, i, 1)
                If IsNumeric(carac) Or carac = " " Or carac = "/" Or carac = ":" Then
                    Chaine = Chaine & carac
                End If
            Next i
        Else
            Chaine = V
        End If
        If IsDate(Chaine) Then 'A savoir que tout nombre peut être considéré comme une date
            .Offset(, 2) = Day(Chaine)
            .Offset(, 3) = Month(Chaine)
            .Offset(, 4) = Year(Chaine)
            .Offset(, 5) = Format(Chaine, "hh:mm")
        End If
    End With
Next Cel
End Sub

 

Pièces jointes

• Classeur1 (19).xlsm

  18.5 KB · Affichages: 2

Vote positif 0 Vote négatif

Solution

A

azerty129

XLDnaute Nouveau

• 24 Octobre 2022

• #13

Merci de votre réponse. Une question que veut dire "carac" dans votre code car je l'ai essayé sur mon vrai fichier mais il ne veut pas fonctionner. Mias sur le Test il fonctionne nickel

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Octobre 2022

• #14

Carac est une variable, rien d'autre il extrait un caractère de la chaine.
Envoyez votre "vrai" fichier si pas de données sensibles, il y a plein de raisons pour lesquelles un pb peut surgir.

 

Vote positif 0 Vote négatif

A

azerty129

XLDnaute Nouveau

• 24 Octobre 2022

• #15

J'ai fini par trouver (je l'avais déjà utiliser quelque part dans mon code existant) merci beaucoup pour votre aide. Ca fonctionne à merveille

 

Vote positif 0 Vote négatif