Joshua1969
XLDnaute Nouveau
Re-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.
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.