Format nombre dans ComboBox

Bonjour à tous,

J'ai une Combo (Cmb_Tva) qui est alimentée par des données qui ont ce format (20,00%, 10,00%, 5,50%).
Hors dans ma Combo elles s'affichent sous ce format (0,2, 0,1, 0,05) et cela ne me convient pas.
Quel est le code pour que la combo affiche les bons formats ?
Merci par avance pour vos réponses

Bonjour

Exemple d'alimentation à partir d'une feuille Feuil2 de E1 à E3. Combobox à 2 colonnes

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub UserForm_Initialize() Dim i As Byte   With Me.ComboBox1 .ColumnCount = 2 .ColumnWidths = "0;" & .Width - 5 For i = 1 To 3 .AddItem Worksheets("Feuil2").Range("E" & i).Value .List(.ListCount - 1, 1) = Format(Worksheets("Feuil2").Range("E" & i).Value, "0.0%") Next i End With End Sub

---

Merci mercatog, mais pourquoi 2 colonnes

Citation:

---

Envoyé par Vba14

Merci mercatog, mais pourquoi 2 colonnes

---

parce que tu verra 20% dans la combo mais la valeur excel qui est en colonne 0 (invisible) est 0.2

mais si tu tiens absolument au valeurs textuelles sert toi de la propriété".text" des cellules pour le remplissage
exemple:

Code:

---

1 2 3 4

Private Sub UserForm_Initialize() Dim i As Long With Me.ComboBox1: For i = 1 To 3: .AddItem Worksheets("Feuil1").Range("E" & i).Text: Next i: End With End Sub

---

Voilà j'ai trouvé ce que je voulais.
Code à placer dans la Combo

Code:

---

1 2 3 4

Private Sub Cmb_TVA_Exit(ByVal Cancel As MSForms.ReturnBoolean) Me.Cmb_Tva.Text = Format(Me.Cmb_Tva.Text, "##0.00 %") End Sub

---

Merci à tous et bonne nuit
Amicalement