Problème de dates

pierrejean

XLDnaute Barbatruc

• 5 Octobre 2015

• #2

Re : Problème de dates

Bonjour PsiKamel

Peux-tu créer un fichier exemple avec un maximum de formats à remettre d'aplomb ??

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Octobre 2015

• #3

Re : Problème de dates

Boujour.
Cette formule dans une colonne libre marche-t-elle dans tous les cas ?

Code:

=DATEVAL(SUBSTITUE($A1;".";""))

Edit: bonjour Pierrejean.

 

Dernière édition: 5 Octobre 2015

Vote positif 0 Vote négatif

P

PsiKamel

XLDnaute Nouveau

• 5 Octobre 2015

• #4

Re : Problème de dates

Voilà un fichier où je n'ai extrait que quelques colonnes.

DateEval ne fonctionne pas la plupart du temps sur le fichier source

(et merci pour votre réactivité !)

 

Pièces jointes

• Test.xlsx

  29.2 KB · Affichages: 27
• Test.xlsx

  29.2 KB · Affichages: 31

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Octobre 2015

• #5

Re : Problème de dates

Sur votre exemple, si, ça fonctionne à tout les coups sur la colonne F
Enfin plus exactement, en AJ2 :

Code:

=SI(ESTTEXTE(F2);DATEVAL(SUBSTITUE(F2;".";""))+TEMPSVAL(SUBSTITUE(F2;".";""));F2)

Mais il y a aussi des cellules vides qu'il faut laisser vides. Alors je préfère peut être le faire en vba.
À +

 

Vote positif 0 Vote négatif

P

PsiKamel

XLDnaute Nouveau

• 5 Octobre 2015

• #6

Re : Problème de dates

Merci beaucoup.
En effet, ça fonctionne. J'essaie de voir comment le faire en VBA (car le but final est de comparer des dates pour avoir des indicateurs). Si je trouve, je poste ce que j'ai fait !

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Octobre 2015

• #7

Re : Problème de dates

De mon coté j'ai mis ça dans le module d'une nouvelle feuille :

VB:

Option Explicit

Private Sub Worksheet_Activate()
Dim T(), L&, C&
T = Feuil1.UsedRange.Value
For L = 2 To UBound(T, 1): For C = 1 To UBound(T, 2)
   If VarType(T(L, C)) = vbString Then T(L, C) = CDate(Replace(T(L, C), ".", ""))
   Next C, L
Me.Cells.Clear
Me.Cells(2, "A").Resize(UBound(T, 1) - 1, UBound(T, 2)).NumberFormat = "m/d/yyyy h:mm"
Me.Cells(1, "A").Resize(UBound(T, 1), UBound(T, 2)).Value2 = T
End Sub

 

Vote positif 0 Vote négatif

P

PsiKamel

XLDnaute Nouveau

• 5 Octobre 2015

• #8

Re : Problème de dates

J'ai à peu près la même solution. Pour ne pas toucher mes données sources, en fait, pour manipuler mes cellules et comparer mes dates, je vais utiliser CDate(Replace(Cells(i, 16), ".", "")) à la place de la valeur de la cellule elle même.
J'ai essayé sur une cellule, ça fonctionne, maintenant, je vais étendre à l'ensemble de mes macros !

Merci beaucoup

Côté pratique, c'est ma première dans ce forum, est-ce que je peux marquer quelque part que mon problème est résolu ?

 

Vote positif 0 Vote négatif