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