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 !