Listbox boisgontierjacques (colonne en € ou %)

Bonjour,

J'utilise le code établi par boisgontierjacques pour un listage de données dans une listbox. (

)

l'affichage se passe bien et ma question est de savoir comment je peux procéder afin que les données pour certaines colonnes puissent être interprétées en €uros ou %

quelqu'un aurait il une idée?

ColVisu = Array(2, 4, 5, 6, 7, 8)
LargeurCol = Array(30, 45, 45, 45, 45, 45)
  Me.List_Budget.ColumnCount = UBound(ColVisu) + 1
  Me.List_Budget.ColumnWidths = Join(LargeurCol, ";")
  Me.List_Budget.List = Application.Index(Rng, Evaluate("Row(1:" & Rng.Rows.Count & ")"), ColVisu)
 

merci par avance

Bonjour Darkangel,

Pour cela teste chaque 1ère donnée par colonne de ton tableau de la feuille ou tu récupères ta liste.

Afin d'en connaître le format. Exemple si 1ière colonne = format euros et deuxième colonne = format %.

En ligne 1 ou 2 ou celle du début du tableau. Séléctionne la cellule. Exemple ci-dessous pour tester la 1iére colonne.

Sub testformat()
Cells(1,1).select
if selection.style = "Percent" then ton choix 1 (%)  else ton choix 2 (euros)
End sub

Sub testformat()

Cells(1,1).select

if selection.style = "Percent" then ton choix 1 (%) else ton choix 2 (euros)

End sub

Merci X Cellus,

reconnaître le format ne pose pas trop de soucis (merci quand même ) c'est plus du comment l'intégrer ..

en gros comment indiquer au code que l'array 2 par exemple correspondant à la colonne 2 doit etre en format un tel ou tel?

A nouveau,

Si tu récupères une liste provenant de plusieurs colonnes et que tu testes une donnée avant de chaque colonne tu seras bien le format qu'elle possède.

Ou alors dans ton tableau tu n'as aucun format! Et tu sauras jamais si 0,10 c'est 10% ou 0,10 euros.

Bonjour,

Au lieu de rentrer directement tes données à partir des cellules, tu peux passer par un tableau, et modifier le format dans ce tableau

Par exemple :

    Tbl = Application.Index(Rng, Evaluate("Row(1:" & Rng.Rows.Count & ")"), ColVisu)
    For I = LBound(Tbl) To UBound(Tbl)
        Tbl(I, 2) = Format(Tbl(I, 2), "0.00 €")
    Next I
    Me.List_Budget.List = Tbl

si c'est dans la 2ème colonne (le 2, dans Tbl(I,2) )que tu veux mettre le format monétaire

Peut-être? (non testé...)

cela fonctionne bien en effet merci cousinhub

Bonjour,

Exemple dans Userform1

Boisgontier