Résolu : VBA formater une cellule au format mail

[fb62840]

Bonjour à toutes et à tous,

Je ne parviens pas à trouver comment faire pour formater une cellule au format mail.
En collant une adresse mail par vba, le format est perdu.
Je souhaiterais qu'il soit conservé.

Merci pour votre aide

 

[Pierrot93]

Re : VBA formater une cellule au format mail

Bonjour,

si j'ai bien compris... barre de menu excel => outils => options de corrections automatiques => onglet "mise en forme automatique au cours de la frappe", tu coches "adresses internet et réseau avec des liens hypertexte"...

bon après midi
@+

 

[fb62840]

Re : VBA formater une cellule au format mail

Bonjour,

merci pour la réponse rapide.
Oui, je connais celà. Mais je veux obtenir ce résultat là par macro vba.

Cordialement

 

[Pierrot93]

Re : VBA formater une cellule au format mail

Re,

aarf aucune idée... de plus l'enregistreur de macro n'enregistre pas la commande....

 

[fb62840]

Re : VBA formater une cellule au format mail

Oui, j'ai fait la même tentative avant de poster ma question.

Merci tout de même.

 

[Pierrot93]

Re : VBA formater une cellule au format mail

Re,

je viens de trouver :

Application.AutoFormatAsYouTypeReplaceHyperlinks = True

 

[fb62840]

Re : VBA formater une cellule au format mail

Malheureusement ça ne peut pas marcher car il ne s'agit pas d'une saisie à proprement parler.
En fait l'adresse mail est stockée dans une Array, puis elle est placée dans une cellule (elle n'est donc pas saisie).

 

[Pierrot93]

Re : VBA formater une cellule au format mail

Re,

bah insère directement le lien :

With ActiveSheet
    .Hyperlinks.Add .Range("A1"), "aaa@lll.com"
End With

 

[fb62840]

Re : VBA formater une cellule au format mail

Un énorme remerciement,

En fait, il me suffit d'ajouter : .Hyperlinks.Add .Range("A9"), "aaa@lll.com" après avoir complété la cellule par l'Array

Wkb.Sheets(I - 1).Range("a9").Value = Tablo(I, 8) 
.Hyperlinks.Add .Range("a9"), "aaa@lll.com"

Bon après-midi