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
Bonjour,

Si quelqu'un peux m'aider svp ...

Je fais des extractions de données en provenance de mon progiciel SAP.

Cependant, quand j'extrais des quantités, les chiffres apparaissent de cette manière : 14.000,000
J'aimerai créer une macro qui me transforme ce 14.000,000 en 14000.

Quelqu'un peux m'aider ??

Merci beaucoup par avance

Marine

Urgent supprimé. Hors-Charte. La modération.


A voir également:

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
0
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
Bonjour
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
0