XL 2016 RechercheV en VBA

vgendron

XLDnaute Barbatruc

• 24 Août 2022

• #2

Bonjour
je ne comprend pas trop.
dans ta feuille Base: le contenant est unique? ou on peut avoir plusieurs fois le meme contenant?
dans ta feuille exemple.. tu as plusieurs fois le meme contenant ??
pourquoi une recherchV ne convient pas? trop lent?

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 24 Août 2022

• #3

un test avec ce que j'ai compris

VB:

Sub test()
With Sheets("base")
    tabdata = .UsedRange.Value
End With

With Sheets("EXEMPLE")
    fin = .Range("P" & .Rows.Count).End(xlUp).Row
    For i = 2 To fin
        Contenant = .Range("P" & i)
        For j = LBound(tabdata, 1) To UBound(tabdata, 1)
            If tabdata(j, 2) = Contenant Then
                .Range("AS" & i) = tabdata(j, 3)
                Exit For
            End If
        Next j
    Next i
End With
End Sub

PS: Renommer ta feuille Exemple SANS l'espace à la fin

 

Vote positif 0 Vote négatif

Solution

M

MR.O

XLDnaute Junior

• 24 Août 2022

• #4

Bonjour,

Oui le contenant est unique, et avec une recherchev classique sur 170 000 lignes c'est trop long à calculer.

 

Vote positif 0 Vote négatif

M

MR.O

XLDnaute Junior

• 24 Août 2022

• #5

Merci Beaucoup, cela fonctionne parfaitement.

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 24 Août 2022

• #6

Salut, si tu es curieux, à lire : RechercheV

 

Vote positif 0 Vote négatif