Opérations (+,-, ..) sur variables tableau

Version imprimable

24/04/2011, 12h43
bob3333

Opérations (+,-, ..) sur variables tableau

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

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

exemple

Code:

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

24/04/2011, 13h22
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 :(
24/04/2011, 15h13
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.
24/04/2011, 15h41
bob3333

merci beaucoup :D