EXCEL : Ajouter .fr ou .com automatiquement Résolu/Fermé

Question

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 !!!!!!!

Configuration: Windows 7 / Chrome 48.0.2564.97

Theo.R · Answer

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 ;)

cs_Le Pivert · Answer

Bonjour,

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

Milou · Answer

Merci de votre retour.
 
Effectivement j'ai fait un "remplacer tout" en notant tous les opérateurs... une bonne vingtaine :)

Bonne journée