Discussion :

[maxval18]

Bonjour

Je suis à la recherche du code pour mettre mon adresse émail sur ma feuille active

Je vous remercie d'avance

Cordialement

Max

[Bear the french]

Bonjour Max,

Tu cherches à faire ça (?) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton3_Click()
 
    Cells(3, 12).Value = Me.TextBox12 & "@" & Me.TextBox13
    Sheets("Feuil1").Hyperlinks.Add Cells(3, 12), Address:=Cells(3, 12).Value
 
End Sub

Bertrand

[maxval18]

Bonjour Bertrand

Oui exactement comme cela

Merci beaucoup

@+

Max