Boite de dialogue insertion lien hypertexte

  • Initiateur de la discussion Initiateur de la discussion DB89
  • 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 !

DB89

XLDnaute Nouveau
Bonjour,

Je souhaiterais solliciter l'aide des membres du forum pour une petite programmation VBA.

J'ai un tableau avec des questions auxquelles l'on peut répondre que par OUI; NON dans une liste déroulante.

Je souhaiterais que lorsque la réponse non est sélectionné, la boite de dialogue d'insertion de liens hypertexte apparaisse et que l'utilisateurs puisse sélectionner plusieurs documents. Le ou les liens de ces documents doivent être insérer dans la colonne documents.

Avez vous une idée du code à mettre en place ?

Merci d'avance pour votre aide !
 

Pièces jointes

Re : Boite de dialogue insertion lien hypertexte

Bonjour à tous,

Bienvenue sur XLD

Peux-tu essayer ceci dans le module de la feuille :

VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)    If Cells(3, 2) = "NON" Or Cells(3, 3) = "NON" Or Cells(3, 4) = "NON" Then
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(3, 5), Address:="Fichier.xls", TextToDisplay:="Lien"
    End If
End Sub

A+ à tous
 
Re : Boite de dialogue insertion lien hypertexte

Bonjour,

Merci beaucoup pour la réponse rapide.
Avec le code, la sélection "NON", insère le lien du document dans la colonne document mais n'ouvre pas la boite de dialogue pour insérer des documents.
 
Re : Boite de dialogue insertion lien hypertexte

Bonjour à tous,

Alors ceci si tu souhaites ouvrir la boite de dialogue :

VB:
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Cells(3, 2) = "NON" Or Cells(3, 3) = "NON" Or Cells(3, 4) = "NON" Then
        Cells(3, 5).Select
        Application.Dialogs(xlDialogInsertHyperlink).Show
        'ActiveSheet.Hyperlinks.Add Anchor:=Cells(3, 5), Address:="Fichier.xls", TextToDisplay:="Lien"
    Else
        Cells(3, 5).Clear
    End If
End Sub

A+ à tous
 
- 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
21
Affichages
2 K
Réponses
12
Affichages
992
Retour