Discussion :

[drissk]

Bonjour,

J'ai besoin de votre aide !

Je sais pas si c'est possible sur excel,
j'ai deux colonnes sur excel avec des dates et heures. La premières de type : "13/01/2009 11:53:20" et la deuxième de type : "13/01/09 11:53".
le problème c'est que la première à un pas de temps d'environ 10 min et l'autre à un pas de temps d'environ 5min.
Malheureusement les dates ne coïncides pratiquement jamais et une colonne évolue plus vite qu'une autre.
Existe'il un moyen sur excel pour faire coïncider à peu prés le dates ?
Merci pour votre aide.

[Philippe Tulliez]

Bonjour,
Il faudrait peut-être développer un peu plus ta demande.
Il est possible de regrouper des dates même si les heures ne sont pas identiques
Un petit exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SOMMEPROD( (TRONQUE(A2) = TRONQUE($B$2:$B$15)) * 1 )

Cette formule compte dans la plage B2:B15, le nombre de dates identiques à celle contenue dans A2, sachant que dans les 2 colonnes, les dates sont combinées avec les heures.

[drissk]

Bonjour,

merci Philippe pour ta réponse, elle es intéressante mais c'est pas vraiment ce que je recherche.
j'ai mis un fichier excel, où il y a deux tableaux avec des datetime qui se trouvent sur les colonnes A et H, et je voudrais faire correspondre les datetime de la colonne A avec ceux de la colonnes H.
Par exemple, prendre la première date de la colonne A et lui faire correspondre la date de la colonne de H qui se rapproche le plus.

Merci

[SfJ5Rpw8]

si j'ai bien compris tes 2 colonnes n'ont pas le même nombre de lignes .. comment veut-tu faire la correspondance ? en rajoutant des lignes à la colonne qui en manque ou bien en enlevant des lignes à la colonne qui en as le plus ...?

[drissk]

Salut,

Oui, tu as bien compris, en enlevant des lignes à la colonnes qui en a en plus. C'est à dire les lignes qui n'ont pas eu de correspondances.

[SfJ5Rpw8]

Tiens j'ai préparé cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
 
Sub Equivalence()
 Dim sh As Worksheet
 Set sh = ThisWorkbook.Sheets("Feuil2") 'Feuille source..
 Dim i As Integer 'index dans 1° tableau
 Dim j As Integer 'index dans 2° tableau
 Dim k As Integer 'index précédent du 2° tableau
 j = 2
 
 For i = 2 To sh.Range("A1").CurrentRegion.Rows.Count
  Debug.Print sh.Cells(i, 1)
   k = j
   While sh.Cells(j, 8) <> "" And (sh.Cells(j, 8) < sh.Cells(i, 1))
        k = j
        j = j + 1
   Wend
   If sh.Cells(j, 8) <> "" Then
 
      sh.Cells(i, 4) = Y3(sh.Cells(k, 8), sh.Cells(j, 8), sh.Cells(i, 1), sh.Cells(k, 9), sh.Cells(j, 9))
      sh.Cells(i, 5) = Y3(sh.Cells(k, 8), sh.Cells(j, 8), sh.Cells(i, 1), sh.Cells(k, 10), sh.Cells(j, 10))
   End If
 
 Next
 
 
End Sub
Function Y3(X1 As Date, X2 As Date, X3 As Date, Y1 As Double, Y2 As Double) As Double
       Dim A As Double
       Dim B As Double
       If (X1 = X2) Then
          A = 0
          B = Y1
       Else
        A = (Y1 - Y2) / (X1 - X2)
         B = Y1 - (X1 * A)
       End If
       Y3 = X3 * A + B
End Function

[drissk]

Salut

Merci beaucoup !!
c'est exactement ce que je voulais.

juste une dernière question, tu as utilisé quel genre d'interpolation ?

[SfJ5Rpw8]

as tu regardé/compris la fonction Y3 ? .. j'ai juste déterminé une droite reliant les 2 points encadrant la date en colonne A .. et puis grâce aux coefficients A et B définissant cette droite ( Y = A*X + B) j'ai calculé la valeur de Y pour la date en colonne A

[drissk]

salut,

Oui j'ai regardé mais j'avait pas trop compris, maintenant c'est claire,
je t'en remercie !