Supprimer la partie gauche sur plusieurs colonnes (vba)

Résolu
Arthyss Messages postés 22 Statut Membre -  
Arthyss Messages postés 22 Statut Membre -
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 :(
A voir également:

3 réponses

Réponse 1 / 3
ThauTheme Messages postés 1564 Statut Membre 160
 
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.
0
Réponse 2 / 3
thev Messages postés 1989 Date d'inscription   Statut Membre Dernière intervention   717
 
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
--
 
0
Réponse 3 / 3
Arthyss Messages postés 22 Statut Membre 5
 
Les cellules étaient sous un mauvais format..

merci pour vos réponses!
0