Gestion des formats dans une listbox

Résolu
denisw95 Messages postés 53 Statut Membre -  
Ant049 Messages postés 157 Statut Membre -
Bonjour,

J'ai crée un formulaire avec une ListBox que je renseigne avec le code VB ci-après : 

   
    J = 0
    X = 0
    
    For I = ligne_deb To ligne_fin
        List_Catalogue(X, J) = Range(LettreColonne_deb & I).Value
        List_Catalogue(X, J + 1) = Range(LettreColonne_deb1 & I).Value
        List_Catalogue(X, J + 2) = Range(LettreColonne_deb2 & I).Value
        List_Catalogue(X, J + 3) = CCur(Range(LettreColonne_deb3 & I).Value)
        X = X + 1
    Next I
      
    Me.ListBox1.List = List_Catalogue


Lorsque mon formulaire s'affiche, la colonne 4 est affiché en format texte et non pas Currency.

Comment faire pour adapter le format d'une colonne dans une listbox ?

Merci d'avance pour votre aide

Denis

1 réponse

  1.
    Ant049 Messages postés 157 Statut Membre 22
     
    Bonjour,

    Il n'est pas possible d'"adapter le format d'une colonne dans une listbox".
    Je te conseille de changer le format de tes données avant de les rajouter à ta listbox puis de les rajouter.
    0
    1. denisw95 Messages postés 53 Statut Membre
       
      Merci de ton retour

      Mais c'est ce que je fais lorsque je l'intègre dans ma table avant intégration dans ma ListBox
      0
    2. Ant049 Messages postés 157 Statut Membre 22
       
      Essaye de changer ton format avec un code comme celui là : 

      List_Catalogue(X, J + 3) = Range(LettreColonne_deb3 & I).NumberFormat = "#,##0.00 $"
      0
      1. denisw95 Messages postés 53 Statut Membre > Ant049 Messages postés 157 Statut Membre
         
        Merci pour ton aide

        La commande exacte qui fonctionne 


        List_Catalogue(X, J + 3) = Format(Range(LettreColonne_deb3 & I).Value, "#,##0.00 €")
        0
    3. Ant049 Messages postés 157 Statut Membre 22
       
      De rien, merci de mettre le topic en résolu
      0