Transformer Formule en Macro

[chopin26]

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.

 

[Staple1600]

Bonsoir le fil, le forum

Histoire de contribuer en s'amusant

Sub Maquereau1()
Dim agineAllThePeople&
agineAllThePeople = Cells(Rows.Count, 1600 / 1600).End(xlUp).Row
With Range("B1:B" & agineAllThePeople)
    .FormulaR1C1 = "=IF(FIND(""_"",RC[-1])=6,SUBSTITUTE(RC[-1],""_"",""""),RC[-1])"
    .Value = .Value
End With
End Sub

PS: Tout ceci peut être facilement obtenu grâce à l'enregistreur de macros...

 

[Claude5]

Bonjour,

et en copiant ta formule puis flèche bas et fin qui balaie toutes tes données?