Erreur d'execution '13' : multiplier un tableau par des coef

Question

Bonjour, j'ai commencé VBA ce matin

Je me retrouve face à un problème de compatibilité

Dans mon programme je remplis d'abord un tableau dynamique tab1 à 2 dimensions (nombre de ligne variable, toujours 6 colonne) avec des nombres déjà inscrits dans les cellules (B4 à J XXX).

Je multiplie ces valeurs par différents coefficients et la c'est le drame. (j'ai surligné la ligne problématique).

Parmi ces coef il y a des valeurs d'un tableau à 6 valeurs (tabDm). Chaque valeurs devraient multiplier les colonnes de mon big tableau

Option Explicit
Public Sub PM05()
Dim i As Integer, j As Integer, k As Integer, last_line As Integer

Dim a As Single
Dim tab1()
Dim tabDm(6)
Const partdensity As Double = 3

    Application.ScreenUpdating = False

    tabDm(0) = 0.06
    tabDm(1) = 0.35
    tabDm(2) = 5.2
    tabDm(3) = 58.09
    tabDm(4) = 353.55
    tabDm(5) = 1656.5

    last_line = Range("A1").End(xlDown).Row
    ReDim tab1(last_line - 3, 6)

    For j = 0 To last_line - 3
        tab1(j, 0) = Range("B" & j + 3)
        tab1(j, 1) = Range("C" & j + 3)
        tab1(j, 2) = Range("D" & j + 3)
        tab1(j, 3) = Range("E" & j + 3)
        tab1(j, 4) = Range("F" & j + 3)
        tab1(j, 5) = Range("G" & j + 3)
    Next

    For i = 0 To last_line - 3
        For k = 0 To 5
      tab1(i, k) = tab1(i, k) * tabDm(k) * partdensity * Application.Pi / 6 * 0.000001
        Next
    Next

End Sub

h2so4 · Accepted Answer

Ta macro semble ok. l'erreur doit provenir des données. as-tu bien des valeurs numériques dans tout ton tableau B3:G & lastline ...