VBA automatisation

lepeuple Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
Maurice - 21 juil. 2015 à 12:49

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 !!!

Afficher la suite

A voir également:

VBA automatisation
Excel compter cellule couleur sans vba - Guide
Logiciel automatisation mac - Guide
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Mkdir vba ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

lepeuple Messages postés 15 Date d'inscription Statut Membre Dernière intervention

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"),""))

Réponse 2 / 3

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

Bonjour,

voir la méthode Replace:

https://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/#LI-J

lepeuple Messages postés 15 Date d'inscription Statut Membre Dernière intervention

Ahhh super !!! C'est genial !!! Merci Le Pivert

Réponse 3 / 3

Maurice

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires