Supprimer la partie gauche sur plusieurs colonnes (vba)

Résolu
Arthyss Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   -  
Arthyss Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   -
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 1442 Date d'inscription   Statut Membre Dernière intervention   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 1985 Date d'inscription   Statut Membre Dernière intervention   713
 
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 Date d'inscription   Statut Membre Dernière intervention   5
 
Les cellules étaient sous un mauvais format..

merci pour vos réponses!
0