Supprimer la partie gauche sur plusieurs colonnes (vba) [Résolu/Fermé]

Signaler
Messages postés
22
Date d'inscription
mercredi 22 mars 2017
Statut
Membre
Dernière intervention
28 avril 2017
-
Messages postés
22
Date d'inscription
mercredi 22 mars 2017
Statut
Membre
Dernière intervention
28 avril 2017
-
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 :(

3 réponses

Messages postés
1411
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
18 décembre 2020
148
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.
Messages postés
1769
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
15 juin 2020
593
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
--
 
Messages postés
22
Date d'inscription
mercredi 22 mars 2017
Statut
Membre
Dernière intervention
28 avril 2017
2
Les cellules étaient sous un mauvais format..

merci pour vos réponses!