Base excel beug sur ma listbox.

[bobylecoyote]

Bonsoir,

j'ai rerpis une base d emembres que j'avais réussi à fini avec l'aide de nombreux membres ici pour la rendre utile à mon travial en en faisant une base de gestion des articles en stock.


Le hic est qu'elle beuge sur un point.

Lorsque j'appuie sur la listbox ( un article au choix), paf...erreur incompatibilité de type.

Cela va paraitre simple pour certains mais là je suis sec



Private Sub articles_Click()

If n = True Then Exit Sub
Tbx_Désignation.Enabled = True
Dim lig, col As Integer
lig = Application.Match(articles.List(articles.ListIndex), Feuil1.[A:A], 0)
col = Feuil1.Range("IV" & lig).End(xlToLeft).Column
ComboBox1.Text = Feuil1.Cells(lig, 1)
Me.Tbx_Désignation = Feuil1.Cells(lig, 2)
Me.TextBox4 = Feuil1.Cells(lig, 5)
Me.TextBox5 = Feuil1.Cells(lig, 6)
Tbx_Symbole.Text = Format(Feuil1.Cells(lig, 3), "00000000")
ListBox1 = Feuil1.Cells(lig, 4)
Cbx_Sous_ensemble = Feuil1.Cells(lig, 7)
Tbx_Complément = Feuil1.Cells(lig, 8)




End Sub

Lien vers la base .

Ce lien n'existe plus
Merci

 

[Modeste]

Re : Base excel beug sur ma listbox.

Bonsoir bobylecoyote,

Dans Private Sub articles_Click()

lig = Application.Match(articles.List(articles.ListIndex), Feuil1.[A:A], 0)

Remplace [A:A] par [B:B]

 

[bobylecoyote]

Re : Base excel beug sur ma listbox.

Merci

Bah oui avec la d'olive ça parait évident puisque je ne recherchait pas dans la bonne colonne

Je restait focaliser sur la ligne incompatible

Si je bloque sur autre chose, je reviens

 

[Bebere]

Re : Base excel beug sur ma listbox.

bonjour Boby,Modeste
Cijoint.fr - Service gratuit de dépôt de fichiers
mis commentaires où corrigé/changé userform4 et 6
dans userform6 tu pourrais alimenter la listbox par combobox1 évènement change
à bientôt