Probleme de lenteur avec macro VBA de recherche de string

Version imprimable

Bonjour tout le monde, je viens vers vous car j'ai un problème avec une macro. En deux mots, je compare des string de deux feuilles différentes et des qu'il y a match je stock une donnée dans une cellule. La macro fonctionne, j'obtiens le résultat attendu mais le problème est qu'elle est hyper lente a effectuer le traitement, mais vraiment très lente. Du coup je voulais savoir si quelqu'un pouvait m'aider a optimiser tout ca. Merci beaucoup.

Voila mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Function MULTIPLEVLOOKUPP(lookupval, lookuprange As Range, indexcol As Long) Dim r As Range Dim result As String result = "" For Each r In lookuprange If r = lookupval Then If result <> "" Then result = result & ", " End If result = result & r.Offset(0, indexcol) End If Next r MULTIPLEVLOOKUP = result End Function
Merci beaucoup !

Bonjour.

Si tu n'appliques pas de filtre à tes données, tu peux utiliser .Find à la place d'un parcourt séquentiel.

Quelque chose comme :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
public function MULTIPLEVLOOKUPP(lookupval, lookuprange As Range, indexcol As Long) as string
   dim result as string
   dim cellule as range
   dim memAdresse as string
   set cellule=lookuprange .Find(lookupval)
 
   if not cellule is nothing then
       memAdresse=cellule.address
 
       do
          If result <> "" Then
               result = result & ", "
          End If
 
          result = result & cellule.Offset(0, indexcol)
          set cellule=lookuprange .Find(lookupval, cellule.offset(1,0))
      loop while cellule.address<>memAdresse
 
   end if
 
   MULTIPLEVLOOKUPP=result
end function

A+

03/04/2019, 22h59
jonathan.chaf

lenteur exécution macro

Lorsque l'on exécute vba en bouclant sur les lignes la manipulation reviens à aller et revenir de vba à excel pour chaque test.
Une autre solution que la fonction find que je n'aime pas truc car je l'utilisait surement mal mais elle me causait plein de plantage et qui t'oblige quand même a boucler une fois, c'est de récupérer l'intégralité tes deux plage dans une variable tableau et de comparer ces deux variable.
Tu verras que ton code va s’accélérer grandement

Platon Formation pour travailler moins tout en gagnant plus