Transformation automatique en mail

Bonjour,

Dans le cadre d'un fichier de suivi de SAV client. J'indique soit un numéro de contact, soit un email, dans la même case.

Et j'aimerai beaucoup faire en sorte, que lorsque j'indique une adresse mail. Qu'Excel, me le mette sous format "mailto:adresse@test.com" Qui me permettrai donc de renvoyé un mail au client directement en cliquant dessus.

Pour faire simple : le but est de transformer le texte d'une cellule si elle contient un @ par un lien mailto.

Par contre pour les numéro de téléphone. Aucune action possible. Ceci est un autre problème Non Excel. Car le Tel: donne sur Skype, et impossible de le pointé sur mon PiMphony. (mais je me dépannerai seul).

Donc je pense que la simplicité du code serai : une détection d'un @ et s'il y a, puis de transformer le contenu de la cellule avec le mailto: devant et le contenu de la cellule (pour rendre dynamique et le répéter sur le reste de ma colonne).

Quelqu'un aurait une idée ?

bonsoir,

il me semble que lorsque tu tapes une adresse mail dans une cellule, excel la transforme automatiquement en hyperlien.

mais voici malgré tout, une proposition

Sub aargh()
    col = "A" 'remplacer A par la colonne contenant les adresses mail
    dl = Cells(Rows.Count, col).End(xlUp).Row
    On Error Resume Next
    ActiveSheet.Hyperlinks.Delete
    On Error GoTo 0
    For i = 1 To dl
        If InStr(Cells(i, col), "@") <> 0 Then
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, col), Address:="mailto:" & Cells(i, col)
        End If
    Next i
End Sub