Recherv trop longue en temps de calcul

Question

J'ai une base de données contenant un peu plus de 40000 lignes contenues dans un onglet de classeur (nom de la feuille : BASE) Je veux récupérer certaines valeurs de cette base de données sur un autre onglet du même classeur (nom de la feuille : RECAP). Je procède par recherchev et cela fonctionne très bien. Mais quand j'étend la formule sur la plage de cellule qui m'intéresse (cette plage est effectivement très importante mais elle correspond à mon besoin, les calculs deviennent très long. SI j'étends les formules contenues dans C3:C929 à D3:AYU929 les temps de calculs deviennent très longs. Connaissez vous une méthode par formule ou même par macro qui me permettrait de réduire considérablement ces temps de calculs Ci après ma formule : RECHERCHEV(A3;BASE;2;0) ou BASE est une plage nommée : BASE!$C$3:$L$40352 Merci Cordialement Hugues...

gmb · Accepted Answer

Nouvelle version à tester. Et maintenant ? Bye ...

ceuzin · Answer

Fonction perso RechvM() matricielle plus rapide que Recherchev() classique Exemple: Si on modifie les 2.600 valeurs cherchées dans un tableau de 20.000 items, le temps de recalcul n'est pas visuellement mesurable (5 sec pour recherchev()). Function RechvM(clé As Range, champ As Range, colResult) Application.Volatile Set d = CreateObject("Scripting.Dictionary") a = champ.Value b = clé.Value For i = LBound(a) To UBound(a) d(a(i, 1)) = a(i, colResult) Next i Dim temp() ReDim temp(LBound(b) To UBound(b)) For i = LBound(b) To UBound(b) temp(i) = d(b(i, 1)) Next i RechvM = Application.Transpose(temp) End Function -Sélectionner champApplication =RechvM(ChampCodesRecherches;matable;2) -Valider avec maj+ctrl+entrée http://boisgontierjacques.free.fr/pages_site/recherchev.htm#FonctionRechVM Rappel Si la valeur cherchée est un code et si la table est TRIEE, on peut spécifier le paramètre VRAI. La recherche est alors faite par DICHOTOMIE et peut être x100 + RAPIDE puisqu'il suffit de quelques accés pour retrouver le code. C'est TRES IMPORTANT lorsque la table est de taille importante et que la formule Recherchev() est recopiée x1000 fois (Avec FAUX , Excel consulte la table SEQUENTIELLEMENT). Pour vérifier si le code existe (on ne récupère pas #N/A mais la valeur inférieure), il faut écrire: =SI(RECHERCHEV(CodeCherché;Articles;1;VRAI)= CodeCherché;RECHERCHEV(CodeCherché;Articles;2;VRAI);"Inconnu") Ceuzin...

gmb · Answer

Joins ton fichier et on te proposera quelque chose... Bye ...

ceuzin · Answer

Cette fonction devrait diviser au moins par 10 le temps par rapport à Recherchev() grâce à la recherche dans le dictionnaire qui est très rapide. Ecrire la formule recherchev() par macro n'apporterait rien évidement . Function RechvM(clé As Range, dt As Range, champ As Range, colResult) Application.Volatile Set d = CreateObject("Scripting.Dictionary") a = champ.Value b = clé.Value c = dt.Value For i = LBound(a) To UBound(a) d(a(i, 1)) = a(i, colResult) Next i Dim temp() ReDim temp(LBound(b) To UBound(b), 1 To UBound(c, 2)) For i = LBound(b) To UBound(b) For k = 1 To UBound(c, 2) tmp = b(i, 1) &amp; CDbl(c(1, k)) temp(i, k) = d(tmp) Next k Next i RechvM = temp End Function Sélectionner C4:D273 =rechvm(A4:A273;C3:D3;BASE;2) valider avec maj+ctrl+entrée Ceuzin...

gmb · Answer

Version macro. A tester. Bye ...