Supprimer le signe - dans une colonne entière

[jeannelou]

Je télécharge mes comptes de banque sur excel mais les dépenses sont affichées avec le signe - (moins) et je voudrais les rendre positifs tous en même temps parce que enlever le signe un par un est vraiment fastidieux 😡 . Il doit bien y avoir un moyen...
Merci d'avance de votre réponse.🙂
Je suis sur office 2000

 

[Staple1600]

Re : Supprimer le signe - dans une colonne entière

Bonsoir


As-tu essayé Edition/Remplacer?


Par macro

sub remplace_tiret()
Application.ScreenUpdating = False
Dim C As Range
For Each C In ActiveSheet.UsedRange
C.Value = Replace(C.Text, "-", "")
Next
Application.ScreenUpdating = True

 

[Staple1600]

Re : Supprimer le signe - dans une colonne entière

Re


Une macro pour traiter une colonne au choix

Sub Colonne_SANS_Tirets()
Dim Quoi As String
Dim NumCOL As Long
Dim ColRNG As Range
Quoi = Chr(45)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
NumCOL = InputBox("Saisir le numéro de colonne (en chiffre)")
Set ColRNG = ActiveSheet.Range(Cells(1, NumCOL), Cells(65536, NumCOL).End(xlUp))
Dim C As Range
For Each C In ColRNG
C.Value = Replace(C.Text, Quoi, "")
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Set ColRNG=Nothing
Set C=Nothing
End Sub

 

[jeannelou]

Re : Supprimer le signe - dans une colonne entière

Merci beaucoup, c'est parfait, ouf !
C'était vraiment tout bête...
Quelle rapidité pour la réponse
Super ce forum !!

 

[Pierrot93]

Re : Supprimer le signe - dans une colonne entière

Bonjour Jeannelou, Stapple

une autre solution, pour la colonne "A", si tes nombres sont bien considérés comme tels :

Sub test()
Dim c As Range
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
    If IsNumeric(c.Value) Then c.Value = Abs(c.Value)
Next c
End Sub

bonne journée
@+