Enlever des element de texte en macro Résolu/Fermé

Question

Bonjour, 

J'ai un ficheir contenant plein de numero comme cela :
SEPE06FB6BC61DE(1)
SEP586D06D360E1(1)
SEPE06FB6BC6A47(1)
SEP586D06D362AC(1)
SEPE06FB6BC68E7(1)
SEP586D06D36BFA(1)
SEPE06FB6tBC659F(1)

WEt j'aimerai via une macro enlever le SEP qui precede et enlever le (1) de fin, mais je ne m'y connais pas du tout en macro.
Quelqu'un pourrait il me donner le code necessaire SVP?

Merci d'avance et bonne Journée


Configuration: Windows 7 Prenium
AMD 6400+ 2.3GHZ Dual-Core
4 GB Ram
1 Go Memoire Graphique (Carte PCI/E)
1 Lecteur/Graveur DVD/CD + DVD+-RW CD+-RW
1 Lecteur Blu-Ray Hd-DVD / Lecteur/Graveur DVD/CD + DVD+-RW CD+-RW
Internet Explorer 8
Firefox (Derniere Version)
Safari (Derniere Version)
Chrome (Derniere Version)

Mac OSX 10.6.3
Intel Core 2 Duo 2.52GHZ
4 GB Ram
256 Mo Memoire Graphique
Firefox (Derniere Version)
Safari (Derniere Version)
Chrome (Derniere Version)

lermite222 · Answer

Bonjour,
Exemple si tes numéro sont dans la colonne A
Private Sub OteSep()
Dim Lig As Long
    For Lig = 2 To [A65536].End(xlUp).Row
        Cells(Lig, 1) = Mid(Cells(Lig, 1), 4, Len(Cells(Lig, 1)) - 6)
    Next
End SubA+

Utilisateur anonyme · Answer

Merci beaucoup, voila de quoi me faire gagner pas mal de temps :D

Utilisateur anonyme · Answer

Une deuxieme petite question, dans le meme fichier j'ai une collonne ou j'écris des adresse email :

nom.prenom@entreprise.ch

et pour un gain de temps j'aimerai si possible juste ecrire : nom.prenom et puis quand j'ai terminer enclancher une macro qui me rajouterais automatiquement sur toute les celule de la colonne C a la fin du texte un @entreprise.ch.

Esce que vous pourriez encore m'aidez SVP?

lermite222 · Answer

Réfléchir un tout petit peu ne feras pas de mal... regarde pour adapter le code précédant, tu devrais y parvenir tout seul.
A+

Enlever des element de texte en macro

4 réponses

Discussions similaires