Enlever des element de texte en macro

Résolu/Fermé
Utilisateur anonyme - 14 mars 2011 à 08:50
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 14 mars 2011 à 11:31
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


A voir également:

4 réponses

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
14 mars 2011 à 09:29
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 Sub
A+
0
Utilisateur anonyme
14 mars 2011 à 09:48
Merci beaucoup, voila de quoi me faire gagner pas mal de temps :D
0
Utilisateur anonyme
14 mars 2011 à 10:03
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?
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
14 mars 2011 à 11:31
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+
0