Bonjour,
Pour le 1er problème remplacez
ActiveCell.Offset(0, 2).Value = Format(Me.PrixDébutEnchère), "#.##0,00€")
par
ActiveCell.Offset(0, 2).Value = Format(CDbl(Me.PrixDébutEnchère), "#.##0,00€")
Faites de même pour les autres Format, utilisez la conversion CDbl.
Cordialement.
PMO
Patrick Morange
-- 05 Fév 2010, 22:18 --
Bonjour,
Si cela peut vous inspirer votre classeur code modifié en pièce jointe.
Cordialement.
PMO
Patrick Morange