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
Sub Tableau()
' Déclaration des variables
Dim Tonnage As Integer
Dim i As Integer
Dim TblTunelle As Variant
 
For i = 0 To 18
Tonnage = Tonnage + TblTunelle(2, 19)
TblTunelle(2, 19 - i) = TblTunelle(2, 18 - i)
i = i + 1
Next i
 
' lancer la procédure "ChangeValue" dans 10 secondes
'Application.OnTime Now + TimeValue("00:00:10"), "ChangeValue"
 
End Sub
voila mon code je sais pas c'est quoi l'erreur aidez moi svp