Ajouter des valeurs dans un tableau à 2 dim

Bonjour à tous,

Je voudrais ajouter une plage de cellule dans un tableau à 2 dimensions. J'utilise un boucle for pour remplir les lignes de mon tableau mais le code n'est pas correcte. Pouvez-vous m'indiquer mon problème Voici un extrais de mon programme. Ici D=0 et I=12

For C = 2 To 21 tableauFinal(C - 2, D) = Range(Cells(C, I)) Next

Je vous remercie

Bonsoir,

Je relance le poste

Merci d'avance.

Envoie le fichier(appauvri des données critiques) un support nous permet d'aller bien plus vite!

Bonsoir,

Voici le fichier avec un petit aperçu du programme.

Sub copierTableau()

    Dim I As Integer, B As Integer, C As Integer, D As Integer
    Dim tableauFinal()
    I = 12
    D = 0
    Do
        If Cells(1, I) = "" Then Exit Do
        If Cells(1, I) = "Écart fournisseur / mesureur (%)" Then
            For B = 0 To 2
                For C = 2 To 21
                    tableauFinal(C - 2, D) = Range(Cells(C, I))
                Next

                D = D + 1
                I = I + 1
            Next
        I = I + 9

        End If

    Loop
    MsgBox tableauFinal
End Sub

il suffit de lire les erreurs du vba et de regarder ce que l'auto complétion te demande comme paramètres:

Tu vas aussi avoir un souci avec ton tableau

Dim tableauFinal()

, tu le déclares mais sans lui donner de dimensions, excel ne va pas aimer

Bonjour,

Merci pour ton aide

Je n'ai pas indiqué le nombre de lignes et de colonnes car je ne les connais pas à l'avance. Je pensais que

Dim tableauFinal()

crée un tableau dont les lignes et les colonnes se créent automatiquement, comme une arraylist

Si cela pose vraiment un souci, pour l'instant mon tableau compte 21 lignes et 15 colonnes.

Pour la fonction Range, je pense bien avoir rempli ces critères. Dans mon cas, je veux mettre la cellule de paramètre(C, I)

Alors il ne te faut pas boucler pour le remplir, un exemple avec un tableau random et l'espion qui montre le remplissage du tableau après utilisation du code:

Sub creation_tableau_final()
Dim tableauFinal()

tableauFinal = Range(Cells(4, 3), Cells(7, 5))

End Sub