Recherche via un tableau interne

[Seb]

Bonjour le forum,

Je viens vers vous car je n'arrive pas a me dépatouiller sur un tableau:

J'ai une base de donnée trés importante, environ 65 000 ligne à 2 colonnes: (A) Code article (B) Désignation Article

Jai fait un USF de saisie, l'idée c'est de taper le code dans le TEXTBOX5 et des que je tape Entré, la désignation apparaisse dans la textbox6.

Je remplie ensuite mes autres case et en validant, les valeurs viennent s'insérer dans la feuille facture.

J'ai actuellement fait une macro avec une boucle, mais c'est beaucoup trop long. La compta pete un cable
Je me suis tourné vers les tableaux interne mais j'ai pas l'habitude et du coup je suis un peut larger.

A savoir que le nombre de ligne peut evoluer.

Je laisse un bout de tableau pour meilleur compréhension.

Merci beaucoup !
Seb

 

[Iznogood1]

Re : Recherche via un tableau interne

Bonjour,

tu peux partir sur un code du genre

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Dim r As Range
Set r = Feuil5.[A:A].Find(Me.TextBox5.Text)
If Not r Is Nothing Then MsgBox r.Offset(0, 1).Value

End Sub

 

[Dranreb]

Re : Recherche via un tableau interne

Bonsoir.

Par ailleurs il ne faut jamais charger par une boucle les valeurs d'une plage dans un tableau VBA: ça perd tout l'intérêt de ce dernier.

tab_exemple = Sheets("bases").Range("A1:C1").Resize(dernière_ligne).Value

Moins d'une dizaine de passages dans votre boucle sont rattrapés par le chargement de tout le tableau en une seule fois.