Enlever des element de texte en macro

Résolu
Utilisateur anonyme -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
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

Réponse 1 / 4
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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
Réponse 2 / 4
Utilisateur anonyme
 
Merci beaucoup, voila de quoi me faire gagner pas mal de temps :D
0
Réponse 3 / 4
Utilisateur anonyme
 
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
Réponse 4 / 4
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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

Discussions similaires

Comment désactiver le mode sécurisé de la Freebox POP.
Cycy -
bazfile -

18 réponses
Retirer le mode sécurisé sur l'écran de la TV connectée Free
beatrice -
baladur13 -

1 réponse