• Initiateur de la discussion Initiateur de la discussion debutantn1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

debutantn1

Guest
Salut à tous,

On m'a filé un fichier excel à étudier et je ne comprend pas une partie du code.
ReDim TABLEAU(1, cREF)
For k = 1 To UBound(REF, 1)
If IsEmpty(REF(k, 6)) = False Then TABLEAU(1, REF(k, 6)) = Sheets(FEUIL + "0").Cells(L1, REF(k, 4)).Resize(l - L1 + 1, 1)
Next k
ReDim MATRICE(UBound(TABLEAU(1, 1), 1), UBound(TABLEAU, 2))
For i = 1 To UBound(MATRICE, 1)
For j = 1 To UBound(MATRICE, 2)
MATRICE(i, j) = TABLEAU(1, j)(i, 1)
Next j
Next i

Cela fait partie d'une macro qui prend des données sur un onglet, les retraite dans une matrice virtuelle, et les colle dans un ordre et un format défini sur un autre onglet. Ce n'est pas moi qui ai fait ce code et j'ai donc du mal à le debogger: l'avant, avant dernière ligne bloque. Si quelqu'un saurait me dire ce que ce code signifie cela me serait tres utile.

merci, paul
 
Re : code matrice

Salut,

Waooooo, c'est un code pour l'ami Hervé ca !!!!
Plusieurs tableaux à plusieurs dimensions, c'est chaud de le comprendre comme ca, sans avoir en plus, le reste du code.

Par contre, c'est vrai que la ligne TABLEAU(1, j)(i, 1) me semble un peu étrange, c'est toi qui la mise ainsi ?
Parce que je verrais a la limite un truc comme ca TABLEAU(i, j)

Sinon, je pense que le fichier avec la macro entière sans données confidentielles nous aiderai a y voir plus claire.

@+
 
Re : code matrice

re,

Ubound(TABLEAU) renvoie le plus grand indice disponible pour la dimension du tableau TABLEAU.
Ensuite, tu peux rajouter des indices pour définir de quelle dimension tu veux avoir la plus grande dimension.

Et REF n'est pas une commande, il s'agit simplement du nom d'un tableau qui doit déclaré quelque part auparavant dans le code.

@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
8
Affichages
390
Réponses
15
Affichages
784
  • Question Question
Microsoft 365 Erreur UBound
Réponses
4
Affichages
293
Réponses
4
Affichages
281
Réponses
4
Affichages
733
Réponses
6
Affichages
199
Retour