Discussion :

[kini5454]

Bonjour,

Dans une ComboBox, je souhaite pouvoir faire apparaitre des tarifs en €

seul soucis, je ne sais pas quel paramètre utiliser pour que le signe € apparaisse, car je n'ai que la valeur numérique qui apparait.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub ComboBox4_Change()
ComboBox4.ListFillRange = "Répertoire!N2:N100"
End Sub

Merci d'avance

[chris_ij32]

Comme ça peut-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub ComboBox4_Change()
  ComboBox4.ListFillRange = Format("Répertoire!N2:N100", "# ###.00 €")
End Sub

[kini5454]

Bonjour,

Non malheureusement cela ne fonctionne pas

[fring]

Bonjour,

Teste ceci via l’évènement Click (supprime l'évènement Change)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub ComboBox4_Click()
    Me.ComboBox4.Value = Me.ComboBox4.Value & " €"
End Sub