VBA automatisation

Question

Hello les amis, 

J'ai une question VBA car j'ai trouvé une solution difficile à l'aide des fonctions excel mais c'est très très très  laborieux.

J'ai une colonne contenant une infinité de chiffres de la sorte :
150K
300M
459K
908M
876K 

et je dois remplacer les K par 000 et M par 000 000 


Y'a t'il une solution VBA ? 

Merci infiniment pour votre aide !!! 


Configuration: Windows 7 / Internet Explorer 10.0

lepeuple · Answer

Voici ma solution sinon mais ce n'est pas très beau

=IF(G2="K",SUBSTITUTE(F2,RIGHT(F2,1),"000"),IF(G2="M",SUBSTITUTE(F2,RIGHT(F2,1),"000000"),""))

cs_Le Pivert · Answer

Bonjour, 

voir la méthode Replace: 

https://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/#LI-J

Maurice · Answer

Bonjour

Voila une macro a toi de la mettre en forme

Sub TestLigne()
   For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
      MaVar = Replace(Replace(Range("A" & L).Value, "K", "000"), "M", "000000")
      Range("C" & L).Value = Application.Trim(MaVar * 1)
   Next
End Sub

A+
Maurice

VBA automatisation

3 réponses

Discussions similaires

Newsletters