Format €uros

[apdf1]

Bonjour,

Je recherche comment mettre la 9éme colonne de ma listbox en "€"

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
     Dim ListIndex As Integer
  
     For ListIndex = 0 To (ListBox1.ListCount - 1)
        If ListBox1.Selected(ListIndex) = True Then
                Me.TextBox1 = Me.ListBox1.List(ListIndex, 0) ' N° Cde
                Me.TextBox4 = Me.ListBox1.List(ListIndex, 1) ' Nom
                Me.TextBox2 = Me.ListBox1.List(ListIndex, 3) ' Date
                Me.TextBox7 = Me.ListBox1.List(ListIndex, 2) ' Prénom
                Me.TextBox3 = Me.ListBox1.List(ListIndex, 4) ' Adresse
                Me.TextBox5 = Format(Me.ListBox1.List(ListIndex, 5), "00000") ' CP
                Me.TextBox8 = Me.ListBox1.List(ListIndex, 6) ' Ville
                Me.TextBox6 = Me.ListBox1.List(ListIndex, 7) ' Tél
                Me.TextBox10 = Format(Me.ListBox1.List(ListIndex, 8), "# ##,00€") 'Montant
                Me.TextBox9 = Me.ListBox1.List(ListIndex, 15) 'Date de Réglement
            Exit Sub
        End If

Merci d'avance

Cordialement
Max

 

[Pierrot93]

Re : Format €uros

Bonsoir,

essaye ceci :

Me.TextBox10 = Format(Me.ListBox1.List(ListIndex, 8), "#,##0.00 $")

 

[apdf1]

Re : Format €uros

Bonjour Pierrot,

Et merci mais j'ai bien la lecture de la textbox10 qui est bien en monétaire mais pas la listbox.

Max

 

[Pierrot93]

Re : Format €uros

Re,


bah oui.... ton code montre l'alimentation des "textbox"... d'ou ma réponse.... sinon applique le même principe lors de l'alimentation de ta "listbox"....

 

[apdf1]

Re : Format €uros

Re,

Voila le code au complet ! comment j'ajoute?

Dim Peut As Boolean 'pour éviter des appels de macro intempestifs (laisser ici)

'Quitter
Private Sub BtnQuitter_Click()
Unload Me
End Sub


Private Sub UserForm_Initialize()
 Dim aa As Variant
    aa = Feuil1.Range("A9:M" & Feuil1.Range("A65536").End(xlUp).Row)
        ListBox1.List = aa


  Dim n As Byte
  For n = 65 To 90
    ComboBox1.AddItem Chr(n) 'caractère dont le code ASCII est une lettre majuscule
  Next
  Peut = True 'libère le changement
  ComboBox1.SetFocus
End Sub


Private Sub Combobox1_Change()
  If Peut = False Then Exit Sub
  Peut = False 'empêche le changement
  ListBox1.Clear
  For Each cel In Sheets("Récap").Range("W:W").SpecialCells(xlCellTypeConstants)
    If UCase(Left(cel.Value, 1)) = ComboBox1 Then
      ListBox1.AddItem (cel.Value)
      For C = 0 To 10
        ListBox1.List(ListBox1.ListCount - 1, C) = Sheets("Récap").Cells(cel.Row, C + 1)
      Next
    End If
  Next
  If ListBox1.ListCount = 0 Then MsgBox "Aucun élément trouvé sur la feuille", vbInformation, "Attention,"
  ComboBox1 = ""
  Peut = True 'libère le changement
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
     Dim ListIndex As Integer
  
     For ListIndex = 0 To (ListBox1.ListCount - 1)
        If ListBox1.Selected(ListIndex) = True Then
                 Me.TextBox1 = Me.ListBox1.List(ListIndex, 0) ' N° Cde
                 Me.TextBox4 = Me.ListBox1.List(ListIndex, 1) ' Nom
                 Me.TextBox2 = Me.ListBox1.List(ListIndex, 3) ' Date
                 Me.TextBox7 = Me.ListBox1.List(ListIndex, 2) ' Prénom
                 Me.TextBox3 = Me.ListBox1.List(ListIndex, 4) ' Adresse
                 Me.TextBox5 = Format(Me.ListBox1.List(ListIndex, 5), "00000") ' CP
                 Me.TextBox8 = Me.ListBox1.List(ListIndex, 6) ' Ville
                 Me.TextBox6 = Me.ListBox1.List(ListIndex, 7) ' Tél
                 Me.TextBox10 = Format(Me.ListBox1.List(ListIndex, 8), "#, ##0.00€") 'Montant
               
                ' Me.TextBox9 = Me.ListBox1.List(ListIndex, 15) 'Date de Réglement
            Exit Sub
        End If
'MsgBox ListBox1.ListIndex + 9

End Sub

Max

 

[Pierrot93]

Re : Format €uros

Re,

via la méthode "AddItem"

ListBox1.AddItem Format(cel.Value,"#,##0.00 $")
      For C = 0 To 10
        ListBox1.List(ListBox1.ListCount - 1, C) = Format(Sheets("Récap").Cells(cel.Row, C + 1), "#,##0.00 $")
      Next

j'ai pas tout regardé, mais sans doute adapter également lors de l'événement "Initialize" de l'usfd

 

[apdf1]

Re : Format €uros

re,

J'ai pas réussi a l'adapter ....!!!!!

Max

 

[Pierrot93]

Re : Format €uros

Re,

pour l'initialisation de l'usf, il faut également passer par "additem" ou bien alimentation par "list" et boucle tout de suite après, comme dans l'exembple ci-dessous sur listbox à 2 colonnes...

Private Sub UserForm_Initialize()
Dim i As Integer
With ListBox1
    .ColumnCount = 2
    .List = Range("A1:B9").Value
    For i = 0 To .ListCount - 1
        .List(i, 0) = Format(.List(i, 0), "#,##0.00 €")
    Next i
End With
End Sub

 

[apdf1]

Re : Format €uros

Re,

Je te remercie et te souhaite une bonne soirée

Max