Transformer Formule en Macro

Fermé

chopin26 - 10 janv. 2018 à 18:46
chopin26 - 10 janv. 2018 à 22:42

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.

A voir également:

Transformer Formule en Macro
Formule excel - Guide
Formule si et - Guide
Mise en forme conditionnelle formule si - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide

1 réponse

Réponse 1 / 1

via55 Messages postés 14403 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 24 avril 2024 2 703
10 janv. 2018 à 18:58

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

chopin26
10 janv. 2018 à 22:42

Merci ;)

Discussions similaires

je veut créer des codes

exo pix

transformer un cable telephone en RJ45

Discussions similaires

Newsletters