Discussion :

[stannn]

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 :

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

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 !

[marot_r]

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 :

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

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+

[jonathan.chaf]

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