la référence qui s'affiche dans un LABEL1

[petchy]

Bonsoir le Forum,
Dans un USF j'ai un combobox qui récupere les données dans la feuille "Base" de la colone A
colone A : les nons
colone B : références d'articles
colone C : les prix
est il possible quand je sélectionne un non par le biais de la combobox j'ai la référence qui s'affiche dans un LABEL1
le prix dans un LABEL2.
j'ai mis un petit exemple
Merci

 

[Zon]

Salut,

Définis ton Tableau différemment c''est à dire sur 3 colonnes: déclares T en haut du module comme TabF

T = Range(.[A1], .[C65536].End(xlUp)).Value

ensuite dans l'évènement change de ta combo tu écris:
With ComboBox1
if .listindex=-1 then exit function
''1ere solution
Label2.Caption = .List(.ListIndex, 2) & "€"
'2 eme solution
Label1.Caption=T(.ListIndex, 2) & "€"
End With

On remarquera que T est en Base 1 et la combo est en base 0, c'est pour cela qu'on utilise 2 dans les 2 cas.

ce qui donnerait:
With ComboBox1
if .listindex=-1 then exit function
''1ere solution
Label1.Caption = .List(.ListIndex, 1) & "€"
'2 eme solution
Label2.Caption=T(.ListIndex, 3) & "€"
End With


A+++

 

[petchy]

bonjour Zon et le forum

merci Zon pour ta réponse,mais quand je met le code dans l'évènement change de la combo il met une erreur sur "then exit function".
merci
@ plus
petchy

 

[LaurentTBT]

Bonjour, Petchy, Zon, tout le monde...

Petchy, change tout simplement "Exit Function" par "Exit sub"
Les procédures évènementielles sont des "Private sub", pas des "Private Function"

Bonne journée.

Laurent.

 

[petchy]

Re
merci Laurent
pour ton conseil ça fonctionne pour le Label1,mais j'ai une erreur sur ça
Label2.Caption = T(.ListIndex, 3) & "€"

@ plus
Petchy

 

[Zon]

Re,

Bon aprés test je vois qu'une erreur possible Petchy, je te rappelle que la variable T est à déclarer en haut de module, donc à supprimer dans la procédure Init.


A+++

Ps Merci Laurent pour la grosse bêtise que j'ai écrite.

 

[petchy]

Bonjour Zon et le forum,

merci pour les conseils,ça fonctionne.

@ plus
petchy