Modif code pour coller listview avec 2 formats

christian.bedere

XLDnaute Occasionnel
Bonjour le forum...

Je n'en peux plus ! Je cherche depuis une bonne semaine, alors je reviens vers les pro de la listview ...

J'ai un code qui me permet de coller la listview ds la feuille de calcul.
Le problème est que sur cette listview j'ai deux format : un décimal, et un décimal avec €, je ne sais pas comment adapter le code pour que les premières cases soient affichent "1,00" et les autres "1,50 €".
Le classeur en pièce jointe vous aidera à comprendre.
Merci pour votre aide

Christian
PS: voici le code
With ListView1
For I = 1 To .ListItems.Count
Sheets("Edition").Cells(21 + 1, 1) = Numerique(.ListItems(I).Text)
For C = 1 To .ColumnHeaders.Count - 1
Sheets("Edition").Cells(21 + I, C + 1) = Numerique(.ListItems(I).ListSubItems(C).Text)
Next C
Next I
End With
 

ChTi160

XLDnaute Barbatruc

Pièces jointes

  • Classeur2V1.xls
    17.5 KB · Affichages: 59
  • Classeur2V1.xls
    17.5 KB · Affichages: 57

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 719
Membres
110 551
dernier inscrit
Khyolyanna