VBA transformer résultat formule en date exploitable

[julien91080]

Bonjour a la communauté,

Grace à des formules, j'obtiens sur un onglet un résultat similaire à : 31-08-2015 (collé à gauche de la cellule) sur toute une plage de données.
Mon souci est que je cherche à faire des tableaux de bord pour connaitre le nombre de cellules < AUJOURDHUI ou une certaine date.

cela ne marche pas, malgré le format des cellules en date j'obtiens le résultat suivant:


Date de référence =25/08/2015

Date Test Date
01-07-2015 =SI(D2<Date de référence;1;0) =0


J'ai beau faire par macro (le but étant d'automatiser l'action), un copier/collage spéciale valeur mais la macro fonctionne pour quelque ligne mais pas toute.

En espérant avoir été clair.

Merci par avance.

Julien

 

[vgendron]

Re : VBA transformer résultat formule en date exploitable

Bonjour,

Afin qu'on se fasse une meilleure idée de ce qui pose problème, il faudrait que tu postes un fichier exemple avec quelques lignes seulement

par ex: chez moi. si je tape dans une cellule 01-08-2015, Excel détecte automatiquement une date et transforme en 01/08/2015
et la formule fonctionne très bien..

 

[Jacou]

Re : VBA transformer résultat formule en date exploitable

Bonjour Julien
ça sera plus facile de te répondre avec un fichier exemple.
bonne journée

Edit : oups je n'ai pas été le plus rapide

 

[julien91080]

Re : VBA transformer résultat formule en date exploitable

Voici une version de l'outil.

Merci pour votre aide
.
Julien

 

[job75]

Re : VBA transformer résultat formule en date exploitable

Bonjour julien91080, vgendron, Jacou,

Voyez le fichier joint et cette macro dans le code de "Feuil2" :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 4 Then Exit Sub
Dim t, i&
Cancel = True
With Range("D2", Range("D" & Rows.Count).End(xlUp)(3))
  t = .Value 'matrice, plus rapide
  For i = 1 To UBound(t)
    If IsDate(t(i, 1)) Then t(i, 1) = CDate(t(i, 1))
  Next
  .NumberFormat = "dd/mm/yyyy" 'si nécessaire
  .Value = t
End With
End Sub

L'exécution est très rapide car on utilise un tableau VBA.

A+

 

[julien91080]

Re : VBA transformer résultat formule en date exploitable

Bonjour job75,

Visiblement cela marche sur ce fichier. J'essai de le transposer dans mon véritable fichier et te fais un retour.

Merci pour cette solution.

Cordialement,

Julien

 

[julien91080]

Re : VBA transformer résultat formule en date exploitable

Ok je valide, c'est super.

Merci beaucoup pour votre aide.

 

[julien91080]

Re : VBA transformer résultat formule en date exploitable

Puis-je exagéré en vous demandant comment est-il possible d'améliorer mon code qui génère une "consolidation" dans la feuil2?

En gros, dans mon onglet T2 j'ai 2 lignes par salariés: une toto avec un montant et l'autre tata avec une date.
Mon objectif est de recréer un tableau avec une seule ligne par salariés avec toto et tata sur cette ligne:

Salarié1 toto1 tata1
Salarié2 toto2 tata2
SalariéX totoX tataX


Merci par avance.

Cordialement,

julien