Macro pour changer un format de cellule nombre
Fermé
marine
-
Modifié par Strumpfette le 26/08/2015 à 11:43
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 26 août 2015 à 12:17
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 26 août 2015 à 12:17
A voir également:
- Macro pour changer un format de cellule nombre
- Changer dns - Guide
- Format epub - Guide
- Telecharger format factory - Télécharger - Conversion & Codecs
- Format apfs - Guide
- Excel cellule couleur si condition texte - Guide
2 réponses
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
26 août 2015 à 12:08
26 août 2015 à 12:08
Bonjour,
Avec la fonction Replace:
https://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/#LI-J
Avec la fonction Replace:
https://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/#LI-J
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
26 août 2015 à 12:17
26 août 2015 à 12:17
Bonjour
En supposant que les valeurs se trouvent dans la colonne A à partir de la cellule 2
remplacez le "1" dans Cells(i, 1) par le n° de la colonne de votre feuille.
sinon sans passer par une macro. copiez la formule suivante dans une colonne vide, remplacez le "A" par la lettre de la colonne où se trouve vos valeurs et tirez vers le bas. faites un copié-collage spécial valeurs de cette colonne pour remplacer les anciennes valeurs
=GAUCHE(SUBSTITUE(A1;".";"");TROUVE(",";SUBSTITUE(A1;".";"");1)-1)
cdlt
En supposant que les valeurs se trouvent dans la colonne A à partir de la cellule 2
Sub Transforme() For i = 2 To [A100000].End(xlUp).Row Cells(i, 1) = CLng(Left(Replace(Cells(i, 1), ".", "", 1), InStr(1, Cells(i, 1), ",", 1) - 1)) Next i End Sub
remplacez le "1" dans Cells(i, 1) par le n° de la colonne de votre feuille.
sinon sans passer par une macro. copiez la formule suivante dans une colonne vide, remplacez le "A" par la lettre de la colonne où se trouve vos valeurs et tirez vers le bas. faites un copié-collage spécial valeurs de cette colonne pour remplacer les anciennes valeurs
=GAUCHE(SUBSTITUE(A1;".";"");TROUVE(",";SUBSTITUE(A1;".";"");1)-1)
cdlt