EXCEL : Ajouter .fr ou .com automatiquement
Résolu
Milou
-
Theo.R Messages postés 585 Statut Membre -
Theo.R Messages postés 585 Statut Membre -
Bonjour,
J'ai un fihcier de 2700 contacts dont les adresses mail ne contiennent pas .fr ou .com à la fin...
et sont notées : test@orangefr ou test@sfrcom
Pour éviter de faire ligne par ligne pour ajouter, comment faire ?
C'est urgent svp merci !!!!!!!
J'ai un fihcier de 2700 contacts dont les adresses mail ne contiennent pas .fr ou .com à la fin...
et sont notées : test@orangefr ou test@sfrcom
Pour éviter de faire ligne par ligne pour ajouter, comment faire ?
C'est urgent svp merci !!!!!!!
A voir également:
- EXCEL : Ajouter .fr ou .com automatiquement
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel trier par ordre croissant chiffre - Guide
3 réponses
Utilisez la fonction "remplacer tout" (accessible en appuyant sur Ctrl+F):
remplacez les @orangefr par @orange.fr et les @sfrcom par @sfr.com
Cela devrait suffire d'après votre description ;)
remplacez les @orangefr par @orange.fr et les @sfrcom par @sfr.com
Cela devrait suffire d'après votre description ;)
Bonjour,
Sinon en vba:
Sinon en vba:
Option Explicit
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim nom As String
Private Sub CommandButton1_Click()
For_X_to_Next_Ligne
End Sub
Sub For_X_to_Next_Ligne()
Dim DernLigne As Long
DernLigne = Range("A65536").End(xlUp).Row
Set FL1 = Worksheets("Feuil1")
NoCol = 1 'lecture de la colonne 1
For NoLig = 1 To DernLigne
Var = FL1.Cells(NoLig, NoCol)
extractionMots
If nom = "orangefr" Then
FL1.Cells(NoLig, NoCol) = Var & ".fr"
Else
FL1.Cells(NoLig, NoCol) = Var & ".com"
End If
Next
Set FL1 = Nothing
End Sub
Sub extractionMots()
Dim Tableau() As String
Dim i As Integer
'découpe la chaine en fonction des espaces "@"
'le résultat de la fonction Split est stocké dans un tableau
Tableau = Split(Var, "@")
'boucle sur le tableau pour visualiser le résultat
For i = 0 To UBound(Tableau)
'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros
Debug.Print Tableau(i)
Next i
nom = Tableau(1)
End Sub
