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

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+++

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

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.

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

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.

Bonjour Zon et le forum,

merci pour les conseils,ça fonctionne.

@ plus
petchy