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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : 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
 
 
    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