Transformer Formule en Macro

Transformer Formule en Macro - VB/VBA/VBS - Programmation

Marsh Posté le 10-01-2018 à 18:32:43    

Bonjour,
j'ai besoin de transformer cette formule en macro.
Elle a pour fonction de supprimer un underscore dans un mot si le underscore est en 6ème position dans un mot.
La formule fonctionne parfaitement mais environ 30000 lignes à traiter.
 
=SI(TROUVE("_";A1)=6;SUBSTITUE(A1;"_";"" );A1)
 
A1 sera à remplacer par colonne A.
 
Merci pour vos contributions.


Message édité par chopin26 le 10-01-2018 à 22:45:31
Reply

Marsh Posté le 10-01-2018 à 18:32:43   

Reply

Marsh Posté le 11-01-2018 à 01:23:09    

Bonjour,
 
Si tu n'as que 30 000 lignes à traiter, utilises ta formule ça ira beaucoup plus vite que saisir, débugger  et exécuter une macro
 
Edit : il y bientôt 7 heures que tu as posé la question, cela serait fini depuis très longtemps.


Message édité par patrice33740 le 11-01-2018 à 01:25:36

---------------
Cordialement, Patrice
Reply

Marsh Posté le 17-01-2018 à 11:35:29    

Salut, affirmatif les formules sont plus rapides, sinon de la lecture :  
https://www.developpez.net/forums/b [...] edure-vba/
https://www.developpez.net/forums/b [...] ba-part-2/


---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed