Formatage date

[shakabiz]

Bonjour à tous,

Je me permets de vous solliciter sur une difficulté de format de date sur un fichier exporté d'une application de gestion.
Mon export sort les données format texte, et là je suis en difficulté pour pour les exploiter en nombre ou date.
Je vois joins un exemple de mon fichier.
Merci d'avance pour votre aide
Cordialement

 

[Patrice33740]

Bonjour,

1. Pour obtenir une date :
=DATE(GAUCHE(D6;2);STXT(D6;3;2);DROITE(D6;2))
Edit : Oups ! Merci M12, c'est effectivement
=DATE(DROITE(D6;2);STXT(D6;3;2);GAUCHE(D6;2))
2. Pour le solde
=N(I6)-N(J6)
Édit : ou plutôt :
=N(K5)+N(I6)-N(J6)

 

[M12]

Bonjour à tous
Pour la date

=DATE(DROITE(D6;2)+100;STXT(D6;3;2);GAUCHE(D6;2))

Pour le solde

=N(K5)+N(J6)-N(I6)

 

[shakabiz]

Bonjour le forum,
Merci à M12, tous
Sincères salutations

 

[job75]

Bonsoir,

Je passais ici par hasard, formule pour la date :

=--TEXTE(D6;"00\/00\/00")

A+

 

[M12]

Bonsoir,

Je passais ici par hasard, formule pour la date :

=--TEXTE(D6;"00\/00\/00")

A+

Bonsoir Job75,

Par hasard, NON, et merci pour la formule (je vais là mettre au chaud)

 

[eriiic]

Bonjour,

maintenant on dira "malin comme un job75"

 

[job75]

Bonjour le forum,

Pour faire vite on exécutera cette macro :

Sub Convertir()
Dim t, i&, x$
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData 'si la feuille est filtrée
With Range("D1", Range("D" & Rows.Count).End(xlUp)(2)) 'au moins 2 éléments
  t = .Value 'matrice, plus rapide
  For i = 1 To UBound(t) - 1
    x = Format(t(i, 1), "00\/00\/00")
    If Not IsDate(t(i, 1)) And IsDate(x) Then t(i, 1) = CDate(x)
  Next
  .NumberFormat = "dd/mm/yyyy"
  .Value = t
End With
End Sub

Bonne journée.