Calcul dans une variable Tableau
Bonjour,
Je m'initie petit à petit aux variables tableau
http://boisgontierjacques.free.fr/pa.../tableaux.htm#
Ma question, est-il possible d'ajouter une valeur à colonne du tableau.
on pourrait imagine aussi multiplier genre appliquer la fonction
Code:
1
2
| Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False |
Mon but:
changer l'heure pour tous les événements que je récolte. (été hiver)
Pour l'instant je fais une boucle et ça fonctionne
La vitesse est impressionnante par rapport à une loop sur la feuille.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Set dtTime = CreateObject("Wbemscripting.swbemdatetime")
dtTime.setvardate (FormatDateTime(Time))
H_E_H = Time - dtTime.getvardate(False)
H_E_H = Replace(H_E_H, ".", ".")
Tbl = Ws_Protec.Range("A2:BA" & Ws_Protec.[D65000].End(xlUp).Row).Value
For i = LBound(Tbl) To UBound(Tbl)
Tbl(i, 9) = Tbl(i, 9) + H_E_H
Tbl(i, 10) = Tbl(i, 10) + H_E_H
Tbl(i, 38) = Tbl(i, 38) + H_E_H
Tbl(i, 39) = Tbl(i, 39) + H_E_H
Ws_Protec.Range("A2:BA" & UBound(Tbl)) = Tbl |
Merci pour vos conseils.
Denis
