Transformer Formule en Macro

chopin26 · 10 Janvier 2018

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 · 10 Janvier 2018

Bonsoir le fil, le forum

Histoire de contribuer en s'amusant

VB:

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 · 11 Janvier 2018

Bonjour,

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

Transformer Formule en Macro

chopin26

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Claude5

XLDnaute Occasionnel

Discussions similaires