Modif de sommes positives en format négatif.....

|| J' ai constitué une feuille de calcul en copiant collant des listing
|| bancaires en format Excel.
|| Le problème certaine de ces données c 'est que les sommes dans la
|| colonne DEBIT sont en format Positif.Par exemple: -65 ? se présente
|| comme 65? alors que d' autres s' affichent directement en format
|| négatif, soit : -65?.
|| Ma feuille de calcul ainsi constituée comprend environ 2500 lignes
|| dont la moitié à modifier.
|| J' ai bien commencer manuellement à faire les modifs mais un autre
|| problème s' affiche. En effet, la moitié de ces sommes s' affichent
|| avec un point au lieu d'une virgule marquant les décimales, ce que
|| Excel ne reconnait pas....exemple: 65.25? au lieu de 65,25?
|| Quelqu'un peut-il m'indiquer une macro ou une MFC serait applicable
|| pour régler mon problème ???
"""""""""""""""""""""""""""""""""""""
bonjour,

Pour des besoins similaires, j'ai utilisé successivement deux macros
sur les cellules sélectionnées. Etant nulle en VBA, j'ai enregistré
la première. (Excel 2003). Sur un grand nombre de lignes,
la seconde est très lente. Il y a sûrement mieux...


Sub ReleveCalculable()
Selection.Replace What:="EUR", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
Selection.Replace What:="(c)", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
End Sub


Sub InverseSigne()
Dim cel As Range
For Each cel In Selection
If cel.Value = "" Then
Else
If IsNumeric(cel) Then
cel.Value = cel.Value * -1
End If
End If
Next
End Sub