Autres Format Currency dans liste Combobox ?

[FOUQUET Yves]

Bonjour à toutes et tous,

Dans une combobox j'affiche une liste d'écritures comptables.
La 5éme colonne est un montant en €. Evidemment dans la liste du combobox il affiche le chiffre normal sans format.
Comment puis-je le faire apparaître en "currency" ?

Quelqu'un a t-il une solution à me proposer ?

Merci d'avance.
Yves

'Attention les deux lignes suivantes doivent être impérativement placées en tout début de programme
Option Explicit  'Activation de la déclaration explicite des variables
Dim Ws As Worksheet  'Variable pour un Objet Worksheet en PUBLIC pour tous les Controls de cet UserForm
'------------------
'Correspond au programme du bouton QUITTER
Private Sub CommandButton1_Click()
Unload Me
End Sub
'-------------------------------------
Private Sub UserForm_Initialize() 'à l'initialisation de l'userform
' --------------------------------------------------------
Dim j As Long
Dim lign_total As Integer
Dim Rng As Range

lign_total = 0
Set Ws = Sheets("En cours")
   Set Rng = Ws.Range("A7:J" & Ws.[B65000].End(xlUp).Row)
   Me.ComboBox1.ColumnCount = 10
   Me.ComboBox1.List = Rng.Value
   ComboBox1.ColumnWidths = "60;190;40;180;90;30;80;80;80;150" ' --- largeur des colonnes ----
    For j = 7 To Ws.Range("B" & Rows.Count).End(xlUp).Row
    
    lign_total = lign_total + 1
    TextBox1.Value = (lign_total)  '--- nombre de lignes enregistrées
    
    If j = 569 Then Exit For
    Next j
 
End Sub

 

[job75]

Bonsoir FOUQUET Yves,

Avec la propriété RowSource pas de problème de format chez moi :

Private Sub UserForm_Initialize()
Dim Rng As Range
With Sheets("En cours")
    Set Rng = .Range("A7:J" & .Cells(.Rows.Count, 2).End(xlUp).Row)
End With
ComboBox1.ColumnCount = 10
ComboBox1.ColumnWidths = "60;190;40;180;90;30;80;80;80;150"
ComboBox1.RowSource = Rng.Address(External:=True)
TextBox1 = Rng.Rows.Count
End Sub

A+

 

[FOUQUET Yves]

Oh! là un grand merci.
Juste un truc esthétique: on peut aligner la 5 éme colonne à droite ?

 

[job75]

Juste un truc esthétique: on peut aligner la 5 éme colonne à droite ?

D'une manière simple non.

En utilisant la méthode AddItem, avec une police à chasse fixe, on pourrait ajouter des espaces à gauche pour cadrer à droite.

 

[FOUQUET Yves]

Bon, ben, on va se satisfaire de ce que l'on a... lol.