Problème avec tableau

Bonjour,

Je souhaite remplir un tableau mais j'ai le message suivant au lancement de la macro :

L'indice n'appartient pas à la sélection

Dim DerPLANNING, DerDONNEES, PRE, DER, i As Integer
Dim Tablo() As Variant

DerPLANNING = Sheets("PLANNING").Range("G" & Rows.Count).End(xlUp).Row
DerDONNEES = Sheets("DONNEES").Range("A" & Rows.Count).End(xlUp).Row
PRE = CLng(Sheets("PLANNING").Range("K5")) - 44197 + 2
DER = CLng(Sheets("PLANNING").Range("AZ5")) - 44197 + 2

i = 0
For Ligne = 2 To DerDONNEES
    For Colonne = PRE To DER
        Set Commentaire = Sheets("DONNEES").Cells(Ligne, Colonne).Comment
        If Not Commentaire Is Nothing Then
            ReDim Tablo(i)
            Tablo(i, 0) = Sheets("DONNEES").Cells(Ligne, 1)
            Tablo(i, 1) = Sheets("DONNEES").Cells(1, Colonne)
            Tablo(i, 2) = Sheets("DONNEES").Cells(Ligne, Colonne).Comment.Text
            i = i + 1
        End If
    Next Colonne
Next Ligne

Merci de votre aide,

Cordialement.

Bonsoir

Un exemple de ton fichier serait le bienvenu(avec explications)

Cordialement

Ci-joint le fichier.

Le but étant de récupérer les commentaires de la feuille "DONNEES" et de les remettre dans le planning de la feuille "PLANNING" (nom / date).

A savoir que la liste de nom des 2 feuilles ne seront pas forcément dans le même ordre.

Cordialement,

Bonsoir à tous,

Le tableau Tablo est dimensionné à 1 dimension :

ReDim Tablo(i)

et on essaye de l'alimenter comme une tableau à 2 dimensions

Tablo(i, 0) = Sheets("DONNEES").Cells(Ligne, 1)
...
...

Par ailleurs le fait d'utiliser ReDim redimensionne le tableau mais le réinitialise également ... voir l'utilisation de ReDim Preserve qui conserve le contenu du tableau

Pour un tableau à plusieurs dimensions on ne peut modifier que la dernière ....

A+

Bonjour,

Je ne maîtrise pas bien les tableaux, serait-il possible de m expliquer ou et comment modifier le code afin que celui-ci fonctionne.

Cordialement