VBA automatisation
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 !!!
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 !!!
3 réponses
-
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"),"")) -
ContributeurBonjour,
voir la méthode Replace:
https://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/#LI-J
-
Bonjour
Voila une macro a toi de la mettre en formeSub 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
