Recherche d'infos à partir de ref dans textbox

[Geraldine]

bonjour,
je joint un fichier pour plus de précision,
quand je selectionne une ligne dans la listbox, la reference s'inscrit dans une textbox. A partir de cette textbox, je veux retirer ds informations complementaires.

merci à tous, géraldine

 

[Luki]

Re : Recherche d'infos à partir de ref dans textbox

Bonjour Géraldine,

J'ai ajouté ue procédure textboxref_change. j'ai nommé des plages pour l'exemple.

Une ou deux remarques :

Il faut éviter de laisser des lignes ou des colonnes entre les données de la feuille "articles".
Il vaut mieux jouer sur la mise en forme des cellules (retrait, par ex) . L'accès aux données en est grandement facilité.
Les titres en lignes 1 et les données dessous, Le bouton dans une barre d'outils.

Autre avantage, les données seront plus facilement accessibles à d'autres applications ( acces, ado etc.)
Et en plus avec une fonction bien pensée tu peux te passer des plages nommées.

A te lire

 

[Geraldine]

Re : Recherche d'infos à partir de ref dans textbox

merci luc c'est très bien
et je reflechis à ce que tu m'as dit ...
bonne journée

Cordialement Géraldine

 

[Luki]

Re : Recherche d'infos à partir de ref dans textbox

Re

Très bien si ça te convient.

Un exemple de ce que j'ai dit précédemment: une fonction pour lire les données dans une autre colonne. J'ai élagué ton code pour l'exemple. La fonction est dans le module du userform.


Bye

 

[Geraldine]

Re : Recherche d'infos à partir de ref dans textbox

petit problème pour que les references aussi bien alpha et numerique parce que pour l'instant bug

Private Sub TextBoxref_Change()
Dim i%

i = Application.Match(CDbl(TextBoxref.Value), Range("REF").Columns(1), 0)
TextBoxStock.Value = Range("STOCK").Cells(i)
TextBoxLibelle.Value = Range("LIBELLE").Cells(i)
End Sub

@

 

[Luki]

Re : Recherche d'infos à partir de ref dans textbox

Ah ben oui, si c'est de l'alpha....c'est pas pareil!

La correction pour gérer les deux:

Private Sub TextBoxref_Change()
Dim i%
On Error Resume Next
i = Application.Match(TextBoxref.Value, Range("REF").Columns(1), 0)
If Err.Number <> 0 Then i = Application.Match(CDbl(TextBoxref.Value), Range("REF").Columns(1), 0)
On Error GoTo 0
TextBoxStock.Value = Range("STOCK").Cells(i)
TextBoxLibelle.Value = Range("LIBELLE").Cells(i)

End Sub

Bonne soirée

 

[Geraldine]

Re : Recherche d'infos à partir de ref dans textbox

merci luky, bonne soirée