Redim Tab pour ajouter une LIGNE

[vgendron]

Hello à toutes et tous,

à mon tour, j'ai un problème à vous soumettre...
déjà. en PJ de quoi travailler..
Pour les besoins d'un autre projet, j'utilise des tablo pour pouvoir travailler sur des quantités de données assez conséquentes.
en début de programme, je mets donc toutes les données de la feuille 1 dans un TabloComplete
De celui ci, j'extrais un TabloExtract avec une séquence (Détermination de la taille - dimensionnenemnt - remplissage)

celui ci sert (entre autres) pour alimenter des combo et listbox sur plusieurs formulaires
Pendant l'utilisation des formulaires
1) certaines données du TabloExtract sont modifiées
2) certaines NOUVELLES données peuvent être créées

j'aimerai donc pouvoir mettre à jour le TabloExtract avec ces nouvelles données..
donc. "naturellement", je me dirige vers le Redim Preserve..
et ....j'ai récemment découvert pourquoi ca ne fonctionnait pas... le REDIM ne permet de modifier QUE la dernière dimension.. qui correspond donc au nombre de colonnes...
Comment faire? y a t il une astuce pour juste ajouter une ligne ou faut il Recharger complètement le tablo?
pour recharger le tabloComplete .. facile. suffit de retaper une seule ligne
tablocomplete=range("......").value

mais pour le tablo extract.. faudrait que je me retape toute la séquence... ?

merci d'avance pour vos avis et idées

 

[thebenoit59]

Bonjour vgendron.

J'avais eu ce soucis également sur un projet sans trouver de solutions, à partir de créer une fonction pour sauvegarder le tableau dans un temporaire, redimensionner le tableau et y retranscrire les anciennes données.

 

[vgendron]

Hello TheBenoit

j'avais bien pensé à ca aussi
sinon.. suis plutot parti avec mon TabExtract que je défini à "l'envers"..
les lignes deviennent les colonnes et vice versa.. ainsi.. quand j'ai une nouvelle ligne de données.. je peux utiliser le Redim pour ajouter une colonne....
ca oblige à une gymnastique cérébrale...:-D
et surtout bien renseigner le code du pourquoi comment....

j'ai vu aussi une histoire de transpose....

 

[thebenoit59]

sinon.. suis plutot parti avec mon TabExtract que je défini à "l'envers"..
les lignes deviennent les colonnes et vice versa.. ainsi.. quand j'ai une nouvelle ligne de données.. je peux utiliser le Redim pour ajouter une colonne....
ca oblige à une gymnastique cérébrale...:-D

J'avais laissé tomber cette solution car trop de gymnastique et la différence de temps d'exécution était très faible dans mon projet

 

[zebanx]

Bonjour Vgendron ( et Re pour Benoist59)

Mes connaissances sont très limitées par rapport à une telle demande mais néanmoins la formule suivante ne bug pas.
Une ligne s'insère bien sur 4 colonnes avec les formules ligne()&colonne() )à chaque relancement de la macro.

ReDim Preserve TabExtract(1 To UBound(TabExtract, 1), 1 To UBound(TabExtract, 2))

Désolé si cela ne correspond pas à ta demande.
Et bonne journée
++

zebanx

 

[klin89]

Bonsoir à tous,

Vois ce lien :

https://wellsr.com/vba/2016/excel/dynamic-array-with-redim-preserve-vba/

klin89

 

[thebenoit59]

Bonsoir à tous,

Vois ce lien :

https://wellsr.com/vba/2016/excel/dynamic-array-with-redim-preserve-vba/

klin89

Bonsoir klin.

Ton lien confirme ce que je pensais. Je ne pense pas qu'une meilleure solution existe.

 

[vgendron]

Hello
merci Klin pour le lien :-D
je me suis donc empressé de récuperer le code et le placer dans ma "macrothèque" :-D
ca me servira très certainement plus tard
dans le projeet actuel, j'ai fait jouer les neurones :-D