A voir également:
- Macro pour changer un format de cellule nombre
- Changer dns - Guide
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Hp usb disk storage format tool - Télécharger - Stockage
- Format apfs - Guide
2 réponses
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
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