Boite de dialogue insertion lien hypertexte

[DB89]

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 !

 

[JCGL]

Re : Boite de dialogue insertion lien hypertexte

Bonjour à tous,

Bienvenue sur XLD

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

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

 

[DB89]

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.

 

[JCGL]

Re : Boite de dialogue insertion lien hypertexte

Bonjour à tous,

Alors ceci si tu souhaites ouvrir la boite de dialogue :

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

 

[DB89]

Re : Boite de dialogue insertion lien hypertexte

Merci ! La boite de dialogue s'ouvre maintenant.

Cependant,

- Je ne peux sélectionner qu'un seul document.
- La boite de dialogue continue à s'ouvrir après insertion du lien.

 

[JCGL]

Re : Boite de dialogue insertion lien hypertexte

Bonjour à tous,

Désolé, je ne vois pas comment sélectionner plusieurs documents avec cette boite de dialogue.

A+ à tous

 

[thomashty]

Re : Boite de dialogue insertion lien hypertexte

Bonjour, je déterre ce sujet mais je m'en suis un peu inspiré car j'ai un problème similaire.

Si quelqu'un aurait une idée ce serait très sympa.

Ci joint le lien de la discussion https://www.excel-downloads.com/threads/probleme-boite-de-dialogue.20005534/
Merci d'avance
Thomas