Macro pour remplacer

Goose · 18 Janvier 2017

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 · 18 Janvier 2017

je viens de trouver une macro:

Code:

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 · 18 Janvier 2017

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

Code:

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 · 19 Janvier 2017

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 ?

Macro pour remplacer

Goose

XLDnaute Occasionnel

Goose

XLDnaute Occasionnel

M12

XLDnaute Accro

Goose

XLDnaute Occasionnel

Discussions similaires

Macro pour remplacer

Goose

XLDnaute Occasionnel

Goose

XLDnaute Occasionnel

M12

XLDnaute Accro

Goose

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency