Macro pour changer un format de cellule nombre
Fermé
marine
-
Modifié par Strumpfette le 26/08/2015 à 11:43
Frenchie83 Messages postés 2239 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 28 janvier 2023 - 26 août 2015 à 12:17
Frenchie83 Messages postés 2239 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 28 janvier 2023 - 26 août 2015 à 12:17
A voir également:
- Macro pour changer un format de cellule nombre
- Telecharger format factory - Télécharger - Conversion & Codecs
- Piratage facebook changer mot de passe - Guide
- Changer dns - Guide
- Changer clavier qwerty en azerty - Guide
- Format de menace perver - Forum Vos droits sur internet
2 réponses
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
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
2239
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
28 janvier 2023
335
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