KTM
XLDnaute Impliqué
Bonsoir Forum
je voudrais utiliser la fonction RechercheV pour extraire des données.
Ma macro fonctionne bien mais avec une lenteur déconcertante vue que mes plages sont très énormes.
Existerait il un moyen de la rendre plus rapide ou autre procedé plus efficace ? MERCI
je voudrais utiliser la fonction RechercheV pour extraire des données.
Ma macro fonctionne bien mais avec une lenteur déconcertante vue que mes plages sont très énormes.
Existerait il un moyen de la rendre plus rapide ou autre procedé plus efficace ? MERCI
VB:
Sub rechV()
Dim plage1, plage2, cel As Range
With ActiveSheet
Set plage1 = .Range("AY2:AY" & .Range("AT" & Rows.Count).End(xlUp).Row + 1)
Set plage2 = .Range("AO1:AP" & .Range("AO" & Rows.Count).End(xlUp).Row + 1)
On Error Resume Next
For Each cel In plage1
cel.Value = 0
cel.Value = Application.WorksheetFunction.VLookup(cel.Offset(, -5), plage2, 2, 0)
Next cel
On Error GoTo 0
End With
End Sub