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
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