XL 2013 Liste déroulante

[aziz]

Bonsoir à tous,
Voici mon problème :
Dans ma liste déroulante "prestation" je n'arrive pas à faire afficher le prix correspondant dans la Comboboxprix ?

Mon code :

Private Sub ComboBoxPrestation_Click()
If Me.ComboBoxPrestation.ListIndex < 0 Then Exit Sub 'ON sort si pas de sélection
Textboxprix = Sheets(3).Range("B" & Me.ComboBoxPrestation.ListIndex + 1)
Nom = Me.ComboBoxPrestation.Value
End Sub

Merci pour votre aide

 

[Dranreb]

Re : Liste déroulante

Bonsoir.
L'onglet en 3ième position est masqué. Il correspond à une feuille Excel vide nommée "Feuil2" qui est représenté par un objet Worksheet de la rubrique Microsoft Excel Objets dont le nom est aussi Feuil2.
À la place de Sheets(3) mettez Worksheets("Tarifs") ou mieux Feuil3, ou encore mieux FTarifs après avoir renommé ainsi Feuil3.

 

[aziz]

Re : Liste déroulante

Bonjour,
Merci beaucoup et tout simplement
Bonne journée au forum