Discussion :

[bob3333]

bonjour,

j'ai une variable tableau "T1" qui contient au préalable des valeurs dates (jj-mmm-aa) tirées d'une sheet.

une deuxième variable "T2" qui contient les même type de valeur.


Peut-ton soustraire les deux tableau de manière a avoir une 3e variable tableau T3 qui contient la différence des dates des deux tableaux (T = T1 - T2)???

Merci d'avance

[mercatog]

Oui en faisant une boucle (sur les tableaux c'est très rapide par rapport aux boucles sur les cellules excel)

exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim LastLig As Long, i As Long, n As Long
Dim T1, T2
Dim T3() As Integer
 
With Sheets("Feuil1")
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    T1 = .Range("A1:A" & LastLig).Value
    T2 = .Range("E1:E" & LastLig).Value
    ReDim T3(1 To UBound(T1, 1), 1 To 1)
    For i = 1 To UBound(T1, 1)
        T3(i, 1) = DateDiff("d", T1(i, 1), T2(i, 1))
    Next i
    .Range("X1:X" & LastLig) = T3
End With

[bob3333]

ok merci infiniment.

mais pourquoi T3 est déclaré comme Integer? T3 vas contenir des dates non?

y'a-il une version en anglais de Datediff mon excel est en version english

[mercatog]

J'ai mis pour l'exemple T3 est une durée (différence entre 2 dates)
DateDiff est une fonction vba

Pour tester le code, crée en Feuil1 une série de dates en colonne A (disons dans A1:A20)
En colonne E une autre série de dates (dans E1:E20)
Lance la macro et regarde la résultat en X1:X20.

C'était un exemple.

[bob3333]

merci beaucoup