inversement de valeur.

[sandra69]

bonjour a tous,

j'aimerais que dans la colonne Débit, les valeurs s'affiche en négatif et j'aimerais qu'elles s'affiche en positif, en faite j'aimerais supprimer les - .

j'ai fai une macro, mais le problème c'est qu'elle prend pas en compte les décimales par exemple si j'ai -123.36 sa me met 123.00 .

' on inverse le sens de la colonne c
DerLig = Range("C65536").End(xlUp).Row
For Each Cel In Range("C7:C" & DerLig)
NewVal = Str(-Val(Cel))
If Cel <> "" Then Cel.Value = NewVal
Next

de plus j'aimerais que la macro supprime les lignes vides, quand y en a.

voila j'ai besoin de votre aide.

nb:je suis sous Excel 97

 

[PascalXLD]

Re : inversement de valeur.

Bonjour

essaies de remplacer val par CDbl dans Str(-Val(Cel))

 

[PascalXLD]

Re : inversement de valeur.

Re

Sinon pourquoi ne pas faire un copier collage spéciale multiplication par -1

 

[Feutrine]

Re : inversement de valeur.

Bonjour,
On peut également se servir de la fonction Valeur Absolue

=ABS(ta_cellule)

Amicalement
Feutrine

 

[sandra69]

Re : inversement de valeur.

merci pr vos réponses

sa fonctionne

🙂