Conversion impossible d'un signe négatif à droite de la cellule

P

PMO2

XLDnaute Accro

• 17 Février 2015

• #2

Re : Conversion impossible d'un signe négatif à droite de la cellule

Bonjour,

Essayez le code suivant. Il faut d'abord sélectionner la plage de cellules à traiter.

Code:

Sub ConvNegatif()
Dim C As Range
If TypeName(Selection) <> "Range" Then Exit Sub
For Each C In Selection
  If IsNumeric(C) Then C = CDbl(C)
Next C
End Sub

 

Vote positif 0 Vote négatif

A

aeroflot2007

XLDnaute Nouveau

• 17 Février 2015

• #3

Re : Conversion impossible d'un signe négatif à droite de la cellule

Merci PMO2 mais cela ne fonctionne pas.
c'est bizarre mais je ne sais pas sous quel format sont les cellules concernées car rien ne fonctionne ni les formules ni les simples calculs ...

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 17 Février 2015

• #4

Re : Conversion impossible d'un signe négatif à droite de la cellule

Cela fonctionne très bien chez moi.
Voir le résultat dans la pièce jointe.

 

Pièces jointes

• signe negatif_pmo.xls

  149 KB · Affichages: 29

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 17 Février 2015

• #5

Re : Conversion impossible d'un signe négatif à droite de la cellule

Bonjour aéroflot2007, PMO2,

PMO2, je suis sous excel 07 et ta macro fonctionne impeccable

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 17 Février 2015

• #6

Re : Conversion impossible d'un signe négatif à droite de la cellule

Bonjour à tous

dans la liste certains nombres se trouvent avec un point au lieu d'une virgule, et par ailleurs, sous XL 2003 le .Value semble indispensable

Code:

Sub Conversion()
 For Each cel In Selection
    cel.Replace What:=".", Replacement:=","
    cel.Value = CDbl(cel)
 Next
End Sub

A+

 

Vote positif 0 Vote négatif