Autres XL2007 : Problème adressage dans Tblo

[erics83]

Bonjour,

j'ai un problème avec l'adressage dans un tableau :

Une mise en Tblo :

tbl = Feuil1.Range("A2:C8")

Je souhaiterai avoir le résultat de la combinaison "Nom1" et "Niveau 5", sans passer par une boucle...une écriture du style (un peu comme on fait avec un . Cells(,) :
Tbl("Nom1","5") qui donne "Val1" comme résultat....

Naturellement mon fichier est plus important (450000 lignes), j'ai utilisé les formules INDEX/EQUIV, mais très/trop long en calcul ..donc j'essaye avec un Tblo...et souhaite éviter de faire une boucle, car dans l'ensemble de mon code, il y a un calcul qui me donne"Nom1 et "5", donc c'est pour cette raison que je cherche l'adressage de "Nom1"/"5" directement et sans passer par une boucle de recherche...

J'ai pensé que peut-être il y avait une solution en utilisant le tuto Dictionary de JB, mais...pas fonctionné....

Merci pour votre aide,

 

[_Thierry]

Bonsoir @erics83

450,000 lignes, arf ! moi je mets tout ça sur SQL Server (2017 Express est free)
Après c'est une nano seconde pour remonter avec une close "Where" depuis VBA ADO...

Mais bon il y aura peut-être une solution sans boucle sur ton tableau, mais là je ne la vois pas...
Je pense même que les Auto-Filters d'Excel s'arrêtent avant autant de lignes...

On va voir les Barabatruquiens
@+Thierry

 

[_Thierry]

Bonsoir @Staple1600

Pardon pas vu avant !

J'ai testé mais si Eric veut trouver le résultat de la combinaison "Nom1" et "Niveau 5" (comme une clause "Where", il fait comment sans un loop sur Tbl ?

@+Thierry

 

[erics83]

Merci _Thierry,

Oui, c'est effectivement ça que je recherche à faire....un adressage style "Where", Index/equiv, RechercheV, etc...

Prendre les coordonnés (que l'on connait) et les rechercher dans le Tblo....

Oups, c'est vrai merci @Stapple1600, ton post a disparu, j'ai juste eu le temps de le voir...Merci,

Merci pour ton aide,

 

[BOISGONTIER]

Bonsoir,

Est -il possible d'organiser les données sous un autre forme (cf PJ)?

Si c'est le cas, on peut indexer le second tableau avec un dico et la recherche devient instantanée

http://boisgontierjacques.free.fr/fichiers/Cellules/RegroupeDicTotal.xls

Nom1	Val5	Val4	Val3	Val6	Val1	Val2	Val7
Nom2
Nom3
Nom4
Nom5
Nom6

Boisgontier

 

[eriiic]

Bonjour à tous,

sans boucle :

    Dim tbl, lig As Variant, nom As String, niv As Long
    tbl = Feuil1.Range("A2:C8")
    nom = "Nom1": niv = 5
    lig = Application.Match("nom1", Columns(1), 0)
    If IsError(lig) Then
        MsgBox "non trouvé"
    Else
        MsgBox tbl(lig + niv - 2, 3)
    End If

Equiv() sur feuille est relativement rapide.
Mais si tu en as qq milliers à faire ça peut valoir le coup de faire une boucle pour récupérer dans un dictionary la 1ère ligne de chaque nom, et faire le même calcul pour avoir la ligne de la donnée.
eric

Edit : pour info 1000 Equiv() sur 450000 lignes (500 au milieu, 500 à la fin) prennent quand même 18s (bouzin de 12 ans d'age)
Si beaucoup il vaut mieux accepter une boucle pour construire un dictionnaire

 

[erics83]

Bonjour JB,

Oui, on pourrait mettre le tableau sous une autre forme, éventuellement en utilisant votre code "
Transformation d'un tableau 2D en BD" ?

Merci pour votre aide,

 

[BOISGONTIER]

Il faudrait un échantillon du tableau (y a t'il 7 items pour chaque nom?)

Boisgontier

 

[erics83]

Merci eriiiic,

Oui, cela donne exactement le résultat que je recherchais à obtenir...Mais effectivement, je cherche la rapidité et donc la proposition

Mais si tu en as qq milliers à faire ça peut valoir le coup de faire une boucle pour récupérer dans un dictionary la 1ère ligne de chaque nom, et faire le même calcul pour avoir la ligne de la donnée.

Oui, justement, j'avais trouvé (=recherche doublons, en faisant mondico(c)="") les noms, mais je n'arrivais pas à retrouver le numéro de ligne, d'où le recours à un adressage...

Merci pour ton aide,

 

[Staple1600]

Re

Juste pour infos

Oups, c'est vrai merci @Staple1600, ton post a disparu, j'ai juste eu le temps de le voir...Merci,
Merci pour ton aide,

Je l'avais supprimé parce que j'avais zappé cette histoire de 400 000 lignes.
Il contenait juste ce petit bout de code

Sub test()
Dim tbl
tbl = Range("A2:C8")
MsgBox tbl(7, 3)
For i = 1 To 3
MsgBox Application.Index(tbl, 7, i)
Next
End Sub

 

[erics83]

Merci JB,

Ci joint le fichier de base (8000 lignes). Je cherche par exemple la ligne de 43840R3C4 avec comme Niveau "-9", car ensuite, j'effectuerai des calculs avec les valeurs se trouvant dans H:AB

Merci pour votre aide,

 

[_Thierry]

Bonsoir à tous

Bon finalement ce n'est pas si terrible avec un simple loop sur Tableau.

Je ne vais pas poster un fichier avec 450,000 Rows, (dans le 10Mb) mais donc j'ai fait un fichier avec un bouton qui va créer les 450,000 rows en 1 minute plus/moins

Ensuite vous pourrez tester le Loop avec le bouton dédié, c'est assez rapide quand même (plus que je ne pensais)

Je vous laisse voir
@+Thierry

 

[erics83]

Whaou, Merci _Thierry ,

Effectivement, c'est rapide !! Merci !! Je pensais qu'une boucle (je faisais avec For...mais peut-être j'avais mis trop de "conditions") était plus lente....d'où la recherche avec les noms dan le Tblo....

Merci pour votre aide et merci pour ce code !

 

[BOISGONTIER]

cf PJ

On peut imaginer de sauvegarder l'index et ne le créer qu'une fois.

Sub essai()
  '--- construction index
  Tbl = [H2].CurrentRegion
  Set d = CreateObject("scripting.dictionary")
  For i = 1 To UBound(Tbl)
    temp = Tbl(i, 1)
    If d.exists(temp) Then
       idx = d(temp)
    Else
       idx = d.Count + 1
       d(temp) = idx
    End If
  Next i
  '--- sauvegarde index
  [E2].Resize(d.Count) = Application.Transpose(d.keys)
  [F2].Resize(d.Count) = Application.Transpose(d.items)
  '-----interrogation
   nom = "Nom2"
   idx = d(nom)
   niveau = 3
   valeur = Tbl(idx, niveau + 1)
   MsgBox valeur
End Sub

boisgontier

 

[erics83]

Super Merci JB ,

Effectivement une autre solution, tout aussi rapide....je vais essayer les 2 méthodes sur mon fichier.

Merci pour votre aide,