Bonjour,
J'espère que vous allez bien et que le sujet n'a pas déjà été traité.
Ce que je cherche à faire :
Transférer un tableau structuré dans un tableau VBA pour diminuer mes temps de calculs et de traitement de données.
Pour illustrer mon problème, je vous joins un exemple contenant moins de données que dans le fichier que je traite normalement.
Dans cet exemple, j'ai transposé mes données de mon tableau structuré vers mon tableau VBA, puis j'ai effectué quelques modifications de données. Malheureusement je n'arrive pas à ajouter de nouvelle ligne à mon tableau VBA et je ne sais pas si mon code me permettra de transférer mon tableau VBA vers mon tableau structuré avec cette syntaxe. Seriez-vous en mesure de m'aider sur ce point ci svp ?
Par la même occasion et si vous avez le temps, je prends toute remarque constructive me permettant d'améliorer ma syntaxe.
Merci du temps que vous m'accorder.
Cordialement,
Jonas
ci-dessous le code :
J'espère que vous allez bien et que le sujet n'a pas déjà été traité.
Ce que je cherche à faire :
Transférer un tableau structuré dans un tableau VBA pour diminuer mes temps de calculs et de traitement de données.
Pour illustrer mon problème, je vous joins un exemple contenant moins de données que dans le fichier que je traite normalement.
Dans cet exemple, j'ai transposé mes données de mon tableau structuré vers mon tableau VBA, puis j'ai effectué quelques modifications de données. Malheureusement je n'arrive pas à ajouter de nouvelle ligne à mon tableau VBA et je ne sais pas si mon code me permettra de transférer mon tableau VBA vers mon tableau structuré avec cette syntaxe. Seriez-vous en mesure de m'aider sur ce point ci svp ?
Par la même occasion et si vous avez le temps, je prends toute remarque constructive me permettant d'améliorer ma syntaxe.
Merci du temps que vous m'accorder.
Cordialement,
Jonas
ci-dessous le code :
VB:
Option Explicit
Sub Mon_Tableau()
Dim monTableau()
'Copier le tableau structuré dans un tableau VBA
monTableau() = Range("T_Tableau")
'Changer une valeur dans le monTableau
monTableau(2, 2) = "ARTICLE10" 'ARTICLE01 --> ARTICLE10
'Vérifications
Debug.Print UBound(monTableau)
Debug.Print monTableau(2, 2)
Debug.Print monTableau(1, 1) & Chr(10)
'Ajouter une ligne
ReDim Preserve monTableau(UBound(monTableau) + 1)
Debug.Print UBound(monTableau) 'Vérifications
monTableau(7, 1) = 7
monTableau(7, 2) = ART07
monTableau(7, 3) = 10
'Actualiser le tableau structuré
Range("T_Tableau") = monTableau
End Sub