Autres Format Currency dans liste Combobox ?

FOUQUET Yves

XLDnaute Occasionnel
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

VB:
'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

XLDnaute Barbatruc
Bonsoir FOUQUET Yves,

Avec la propriété RowSource pas de problème de format chez moi :
VB:
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+
 

Discussions similaires