Macro pour remplacer

[Goose]

Bjr à tous,
voilà j'ai sur plusieurs celulles (de A1:A5) un texte de type:
--1280.0-/-12---
--980.0-/-9---
etc...
sachant que les "-" représentent un espace, comment réaliser une petite macro pour que ce texte se transforme en:
1280
980
etc...
merci par avance
Goose

 

[Goose]

je viens de trouver une macro:

Public Sub NettoieNombre()
Dim c
For Each c In Selection
  ' supprime les espaces normaux devant et derrière
  c.Value = Trim(c.Value)
Next c
End Sub

qui me donne: 1280.0 / 12
comment éliminer ce qui se trouve après le point ?

 

[M12]

Bonjour,
A tester avec les données complètes du premier post

Public Sub NettoieNombre()
    Dim c%, DerniereLigne%
    DerniereLigne = Range("A65536").End(xlUp).Row
        For c = 1 To DerniereLigne
            Cells(c, 1) = Right(Cells(c, 1), Len(Cells(c, 1)) - 2)
            Cells(c, 1) = Left(Cells(c, 1), InStr(Cells(c, 1), ".") - 1)
        Next c
End Sub

 

[Goose]

Salut,
j'ai un bug en ligne:
Cells(c, 1) = Left(Cells(c, 1), InStr(Cells(c, 1), ".") - 1)

Peux t-on définir un range ("A1:A5") au lieu de Dernière ligne ?