maval
XLDnaute Barbatruc
Bonjour,
J'aimerai rendre mon adresse Hyperlinks actif sur ma feuille.
Mon code doit avoir une erreur a se niveau?
Je vous remercie de votre aide
Cordialement
Max
J'aimerai rendre mon adresse Hyperlinks actif sur ma feuille.
Mon code doit avoir une erreur a se niveau?
Code:
Private Sub CommandButton1_Click()
Dim nlleLigne As Long, cel As Range
'On recherche la première ligne disponible
Set cel = Range("A:A").SpecialCells(xlCellTypeFormulas).Find("", LookIn:=xlValues, lookat:=xlWhole)
If Not cel Is Nothing Then nlleLigne = cel.Row
Cells(nlleLigne, 3) = TextNom.Value
Cells(nlleLigne, 4) = TextAdresse.Value
Cells(nlleLigne, 5) = TextCp.Value
Cells(nlleLigne, 6) = TextVille.Value
Cells(nlleLigne, 7) = TextTel.Value
Cells(nlleLigne, 8) = TextPortable.Value
Cells(nlleLigne, 9) = TextFax.Value
Cells(nlleLigne, 10) = TextBox1 & "@" & TextBox2.Value 'Email
Hyperlinks.Add Cells(nlleLigne, 10), Address:="mailto:" & "TextBox1 & TextBox2" 'Email actif sur la feuille
' On vide les zones de saisie
TextNom.Value = ""
TextAdresse.Value = ""
TextCp.Value = ""
TextVille.Value = ""
TextTel.Value = ""
TextPortable.Value = ""
TextFax.Value = ""
End Sub
Je vous remercie de votre aide
Cordialement
Max