Transformer Formule en Macro Fermé

Question

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.

via55 · Answer

Bonjour chopin

Macro à mettre dans un module et à lancer depuis la feuille concernée :
Sub suppunderscore()
On Error Resume Next
For n = 1 To 30000 'nombre de lignes à modifier si nécessaire
If Application.WorksheetFunction.Find("_", Range("A" & n)) = 6 Then Range("A" & n) = Application.WorksheetFunction.Substitute(Range("A" & n), "_", "")
Next
End Sub
Cdlmnt
Via

Transformer Formule en Macro

1 réponse

Discussions similaires