Modif code pour coller listview avec 2 formats

[christian.bedere]

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

 

[christian.bedere]

Re : Modif code pour coller listview avec 2 formats

Re-
desole faute de débutant , oubli PJ

 

[ChTi160]

Re : Modif code pour coller listview avec 2 formats

Salut Christian

pas évident sans un fichier avec le userform

donc tu trouveras en pièce jointe ce que j'ai écrit qui pourrait t'aider (non testé)
tiens moi au courant

le fichier :Regarde la pièce jointe Classeur2V1.xls

bonne nuit