Bonjour Avoriaz,
Je ne connais pas grand chose en VBA, cependant, j'ai testé ton code et te propose la modif suivante pour le problème des valeurs négatives:
d.Offset(0, 3).Value = Abs(d.Value)
d.Offset(0, 4).Value = String(4 - Len(Hex(Abs(d.Value))), '0') & Hex(Abs(d.Value))
En mettant simplement 'Abs' devant d.value on prend toujours une valeur positive.
Pour les autres conditions, je laisse la parole aux experts VBA (et si j'ai dit une bêtise pour 'Abs', ils me corrigeront).
@+
Gael
Et bonjour John, je ne t'avais pas vu et ta réponse me rassure un peu sur mes compétences VBA.
Gael
Message édité par: Gael, à: 16/12/2005 14:35