Tranfert complexe format heure et €

[Blandine]

Je tourne en rond et je vous sollicite pour m'aider car j'ai

un ListBox qui affiche 2 colonnes via la Feuil1, colone A formatée en Heure du type 00:00:00 et la colone B formatée monaitaire du type 0,00 €

A la sélection du ListBox un index de la colone 3 doit

remplir un TextBox avec la celulle B1 de la Feuil1, dedans, un chiffre ex. 70

Ce TextBox doit afficher le format 70,00 € ,je précise avec une virgule et un espace avant €.

et lors de la validation d'un bouton "OK"

écriture dans la celulle A1 de la Feuil2 qui sera formatée en VBA avec le format monétaire
(afin de pouvoir plus tard être pris en compte pour des caluculs de somme)

et écriture via le ListBox du contenu de celulle A1 de la Feuil1 vers la celulle A2 de la Feuil2 formaté en VBA au format heure 00:00 afin de faire des totaux sur les celulles qui seront des heures.


MERCI pour vos suggestions...
Blandine

 

[STéphane]

bonjour



j'ai pas tout compris mais à tout hasard.

For i = 1 To 2
ival = Format(i, "0.00 €")
ActiveSheet.ListBox1.AddItem ival
Next i

dans ta macro qui lit les valeurs, tu devrais ôter les deux derniers caractères.

 

[Blandine]

Le format "0.00 €" ne va pas il faut une virgule pour somme de plusieur valeur...

ci-joint fichier plus détaillé de l'exemple a obtenir d'après un premier début

MERCI
BLandine