• Initiateur de la discussion Initiateur de la discussion maval
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

maval

XLDnaute Barbatruc
Bonjour,

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
672
Réponses
2
Affichages
468
Réponses
4
Affichages
1 K
Retour