Discussion :

[Anonquatre]

Bonjour,
Pourriez vous m'aider pour un algorithme svp ?

Je souhaite remplir un tableau à 2 dim automatiquement mais je suis un peu perdu.
J'aimerais faire comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim Tableaux()
Dim Tableau1() <-- PremiereLigneDuFichier
For L as NbLignesDansMonFichier (a partir de ligne 2)
    For E dans Tableaux
        si E matche (partiellement !) avec L
            redim Tableau1 +1
            ajouter E dans Tableau1 'la ligne est trouvé dans un tableau déjà existant alors on l'ajoute dedans
        sinon
            redim Tableaux +1
            dim Tableau2
            ajouter E dans TableauN+1 'la ligne est pas dans les tableaux déjà existant alors on ajoute un tableau pour la stoquer

Est-ce que c'est la bonne manière de procéder ?
Sauriez-vous comment transformer cela en VBA pour avoir un parcours rapide du ficher excel SVP ?
Pensez-vous qu'il sera performant pour 150 000 lignes ?

Merci beaucoup

[patricktoulon]

Bonjour

aux vues de l'esquisse d'algo/de code que tu a produit il me parait nécessaire que tu te familiarise avec les variables tableaux (mémoire /range) en VBA
car tu n'y est pas du tout
https://silkyroad.developpez.com/vba/tableaux/

[Pierre Fauconnier]

Salut.

Avant de penser à coder, il faut savoir où tu es (ce que tu as au départ) et où tu veux aller (ce que tu souhaites obtenir à l'arrivée). Sans une analyse fonctionnelle, cela ne sert à rien de coder. Et sans nous dire ce que tu veux réaliser comme analyse, peu de chances de pouvoir t'aider.

Cela étant, récupérer une plage dans un tableau est assez simple en VBA, mais comme on ne sait pas trop ce que souhaites faire de ce tableau...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  Dim t
 
  t = Range("a1:d150000").Value