Format € dans ListBox

Bonjour le Forum,

J'ai un petit soucis concernant le Format € dans des colonnes ListBox, malgrès mes recherches.

J'ai fais ce code :

ListBox1.List(i, 11) = Format(ListBox1.List(i, 11), "€")

que j'ai mis dans cette macro

    Dim Ligne&, i&
    With Me.ListBox1
        .Clear
        For Ligne = 2 To WsPanier.Range("B" & Rows.Count).End(xlUp).Row
            If WsPanier.Range("B" & Ligne) = ComboBox1 Then
                .AddItem WsPanier.Range("A" & Ligne)
                For i = 1 To 17
                    .List(Me.ListBox1.ListCount - 1, i) = WsPanier.Cells(Ligne, i + 1)
                    'ListBox1.List(i, 11) = Format(ListBox1.List(i, 11), "€")                
                Next i
            End If
        Next Ligne
    End With
    Me.ListBox1.ListIndex = -1

mais ça bug.

Si quelqu'un peu m'aider, ça serai sympa.

Cdlt.

pompaero

Bonjour

Tu devrais joindre ton fichier.

Bye !

Bonjour,

Si dans wsPanier tes valeurs sont au format adéquat...

                   .List(Me.ListBox1.ListCount - 1, i) = WsPanier.Cells(Ligne, i + 1).Text

suffira pour avoir le même format dans la ListBox.

Sinon il faut mettre préalablement au format les valeurs affectées à la ListBox (fonction Format lors de l'affectation).

A savoir que dans tous les cas, les valeurs récupérées dans un ListBox (comme pour les TextBox) sont des valeurs texte et qu'il y a lieu le cas échéant de les convertir pour les affecter à une cellule Excel...

Cordialement.

Bonjour MFerrand

Merci pour tes explications, c'est parfais.

Cdlt