Erreur 13 en VBA

Code:

---

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

Bonjour,

l'erreur est que tu déclares une variable TblTunelle en tant que Variant (= tout type de variable)

ensuite, tu l'utilises comme un tableau, mais sans l'avoir dimensionné au préalable, donc ça doit planter dès la ligne

Code:

---

Tonnage = Tonnage + TblTunelle(2, 19)

---

tu pars du principe que ton tableau est déjà dimensionné et qu'il possède des lignes et des colonnes ... or il est vide, c'est un objet qui ne contient rien et aucune position (index) pour recevoir des données

je te conseille :

- de déclarer directement ta variable en tant que tableau
- si c'est une taille fixe : dans la déclaration tu indiques directement sa taille et ses dimensions
- si c'est de taille variable : il faudra le redimensionner à chaque ajout


il est impératif que tu assimiles la manipulation des tableaux avant de te lancer : http://silkyroad.developpez.com/vba/tableaux/

Merci Joe pour votre aide voula se que j'ai fait et sa fonctionne toujours pas j'ai mis en piéce jointe le fichier sur lequel je travail .
En faite moi Normalement je voulais que ma valeur 53 placer dans la cellule B1 se déplace dans les cellules de B6 :T6 et que chaque déplacement de B1 dure 10 secondes et je veux que chaque passage de la valeur de B1 d'une cellule à l'autre, on vérifie que T6 si il est vide ou pas, si oui, B1 avance vers la cellule suivante, si non B1 n'avance pas.
:(:)
merci
cordialement