Supprimer la partie gauche sur plusieurs colonnes (vba) Résolu

Question

Bonjour, 
J'ai des données sous cette forme :

mon but est de supprimer les points et les 0 en trop
5.00000 -> 5 
30.00000 -> 30
j'ai essayé 2 méthodes aucunes n'a fonctionnées..
- en remplaçant le point par une virgule afin que excel comprenne que "," est une décimale
 (rien à faire, ça reste comme tel)
  Columns("W:Y").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
    ReplaceFormat:=False

- en essayant de supprimer la partie gauche

Columns("W:Y").Select
       'supprimer les "0" en trop
       Selection = Left(Selection, Len(Selection) - 6)

mais mon code est faux :(

ThauTheme · Answer

Bonjour Arthyss, bonjour le forum,
Il faudrait commencer par savoir si un format spécifique est utilisé actuellement pour ces cellules ou si elles sont au format standard.

thev · Answer

Bonjour,
Essayer ce code sous réserve que les cellules ne soient pas au format texte.
    Selection.Replace What:=".", Replacement:=","    For Each cell In Selection.Cells        cell.Value = CDec(cell.Value)    Next cell--

Arthyss · Answer

Les cellules étaient sous un mauvais format..
merci pour vos réponses!

Supprimer la partie gauche sur plusieurs colonnes (vba)

3 réponses

Discussions similaires

Newsletters