Tableau variable

Bonjour,

Décidément, VBA est compliqué pour les débutants sans mode opératoire !

Je joins un fichier Test pour expliquer ma demande.

Je voudrais que les données dans le tableau de D7 à AH? (tableau à ligne variable) soient affectées à un tableau de variable.

D'ou le code suivant que j'ai essayé de faire :

Option Explicit

Sub TabTou()

Dim Derlig As Long

Derlig = Range("C65536").End(xlUp).Row

ReDim TabTou(1 To Derlig, 1 To 31) As Variant

Dim i As Byte, j As Byte

For i = 1 To UBound(TabTou, 1)

For j = 1 To UBound(TabTou, 2)

TabTou(i, j) = i & j

Debug.Print TabTou(i, j)

Next j

Next i

End Sub

J'ai bien entendu une erreur sur TabTou(i, j) = i & j (indice n'appartient pas à la sélection). Je suppose que c'est une histoire de coordonnées mais je ne trouve pas la solution.

Si quelqu'un peut m'aider, ce serait un soulagement pour moi de comprendre.

Bonne soirée et merci à vous d'avance.

Bonjour,

J'ai modifié ton code car tu utilises TabTou en tant que nom de procédure Sub et en tant que variable ! Et ça marche.

Sub TabTou()

    Dim Derlig As Long
    Derlig = Range("C65536").End(xlUp).Row
    ReDim TableauTou(1 To Derlig, 1 To 31) As Variant
    Dim i As Byte, j As Byte

    For i = 1 To UBound(TableauTou, 1)
        For j = 1 To UBound(TableauTou, 2)
            TableauTou(i, j) = i & ":" & j
            Debug.Print TableauTou(i, j)
        Next j
    Next i

End Sub

A+