Formatage date

Patrice33740

XLDnaute Impliqué

• 10 Août 2017

• #2

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)

 

Dernière édition: 10 Août 2017

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 10 Août 2017

• #3

Bonjour à tous
Pour la date

Code:

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

Pour le solde

Code:

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

 

Vote positif 0 Vote négatif

S

shakabiz

Guest

• 11 Août 2017

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Août 2017

• #5

Bonsoir,

Je passais ici par hasard, formule pour la date :

Code:

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

A+

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 11 Août 2017

• #6

job75 à dit:

Bonsoir,

Je passais ici par hasard, formule pour la date :

Code:

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

A+

Cliquez pour agrandir...

Bonsoir Job75,

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

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 11 Août 2017

• #7

Bonjour,

maintenant on dira "malin comme un job75" 🙂

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Août 2017

• #8

Bonjour le forum,

Pour faire vite on exécutera cette macro :

Code:

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.

 

Vote positif 0 Vote négatif