afficher le format % et + dans une listview

[creolia]

bonjour à tous

je souhaiterais dans la mesure du possible afficher le sigle +valeur% dans le 5 item de ma listviews
la macro utilisé pour la remplir est celle ci

ListView4.ListItems.Clear
With ListView4
   
 .View = lvwReport
 .FullRowSelect = True
 '.Gridlines = True

        For i = 2 To Sheets("Calcules").Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
          .ListItems.Add , , Sheets("Calcules").Cells(i, 1)
          .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Calcules").Cells(i, 2)
          .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Calcules").Cells(i, 3)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Calcules").Cells(i, 4)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Calcules").Cells(i, 5)
            .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Calcules").Cells(i, 6)
        .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Calcules").Cells(i, 7)
next
end with

comment pourais je svp proceder

exemple au lieu de 1 dans la item j'aurais +1% au lieux de -10 j'aurais -10%

pouvez vous m'aider svp merci

à tres bientot

 

[jp14]

Re : afficher le format % et + dans une listview

Bonjour

A tester
Sheets("Calcules").Cells(i, 6) & "%"

JP

 

[creolia]

Re : afficher le format % et + dans une listview

bonjour JP14 grace à ton aide j'ai compris le principe du format j'ai donc fais comme ceci

  .ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("Calcules").Cells(i, 6), "mm,mm,%")

car il me falais que 2 chiffres apres la virgule et le %

il me reste un probleme c'est le signe negative quand le nombre dans ma base donnée est en negative saurais tu comment je peu faire merci d'avance

 

[jp14]

Re : afficher le format % et + dans une listview

Bonjour

Il faudrait faire un test et en fonction du résultat concaténer le résultat obtenu par la fonction format avec la signe -.

JP

 

[creolia]

Re : afficher le format % et + dans une listview

re jp14 je vais essayer de faire ce que tu ma dis mais j'avous je ne sais pas faire un teste if sur les listview mais bon j'essais tout de meme

 

[creolia]

Re : afficher le format % et + dans une listview

re bonjour

j'ai essayer avec mes moyens de mettre une condition pour afficher en negatif les valeur en pourcentage mais sans succée

je rapelle ce que j'essais obtenir

dans item 3 j'essais de faire apparaitre sous ce format mes valeur dans la listview

si va valeur dans la BDD est exemple = 12 il s'afficherais dans la listview +12%

si va valeur dans la BDD est exemple = -12 il s'afficherais dans la listview -12%

pouvez vous m'aider à résoudre ce probleme svp merci

 

[creolia]

Re : afficher le format % et + dans une listview

re bonjour à tous j'ai avancée un peu j'ai mis la ligne correspondant à ce format

 .ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("Calcules").Cells(i, 3), "0.0%")

ce qui ma permis de récupérer le negatif dans ma listview

je penche touchour pour savoir comment faire pour mettre un + devant quand la valeur est positif

 

[jp14]

Re : afficher le format % et + dans une listview

Bonjour
Ci dessous le code qui permet l'affichage de +

          Dim data1 As String
          data1 = Format(Sheets("Calcules").Cells(i, 3), "0%")
          If InStr(1, data1, "-") = 0 Then data1 = "+" & data1
          If data1 = "+0%" Then data1 = ""
           .ListItems(.ListItems.Count).ListSubItems.Add , , data1

A tester

JP

 

[Guest]

Re : afficher le format % et + dans une listview

Bonjour Creolia,
JP ,

Pour affichage tel qu'apparait à l'écran:

.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Calcules").Cells(i, 3).Text

formaté avec virgule et une décimale, signe + ou -:

Format(Sheets("Calcules").Cells(i, 3), "[>0]+0.0%;[<0]-0.0%")

Ou encore:

Format(Sheets("Calcules").Cells(i, 3), "+0.0%;-0.0%")

A+

 

[creolia]

Re : afficher le format % et + dans une listview

BONJOUR HASCO ET JP14

merci pour vos nombreuse solution j'ai bien reussi à l'adapter au projet un grand merci à bientot