Sujet Précédent Sujet Suivant

Supprimer la partie gauche sur plusieurs colonnes (vba)

Résolu/Fermé
Arthyss Messages postés 22 Date d'inscription mercredi 22 mars 2017 Statut Membre Dernière intervention 28 avril 2017 - Modifié par Arthyss le 22/03/2017 à 11:26
Arthyss Messages postés 22 Date d'inscription mercredi 22 mars 2017 Statut Membre Dernière intervention 28 avril 2017 - 23 mars 2017 à 10:50
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 mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
22 mars 2017 à 14:56
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 1852 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 23 avril 2024 681
23 mars 2017 à 10:37
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 mercredi 22 mars 2017 Statut Membre Dernière intervention 28 avril 2017 5
23 mars 2017 à 10:50
Les cellules étaient sous un mauvais format..

merci pour vos réponses!
0