Bonjour à tous,
J'ai besoin de votre aide.
Dans une feuille, en colonne "A", j'ai une centaine de lignes qui correspondent chacune à un lien hypertexte différent.
Je souhaite que le lien s'active à la validation d'une ligne sélectionnée à partir d'une Listview.
Tout fonctionne, sauf l'activation du lien.
Auriez-vous une solution, voici le détail:
Private Sub BnValidation_Click()
Dim Lig As Long, FlgSel As Boolean, LigSel As Long
Dim LigItem, Rep
' Vérifier si des enregistrements existent
If Me.ListView1.ListItems.Count = 0 Then Exit Sub
' Vérifier si un enregistrement a été sélectionné
FlgSel = False
For Lig = 1 To ListView1.ListItems.Count
If ListView1.ListItems(Lig).Selected = True Then
FlgSel = True
End If
Next Lig
' Si aucune ligne n'a été selectionnée
If FlgSel = False Then
MsgBox "Vous devez sélectionner une ligne du tableau," & vbCrLf _
& "avant de pouvoir valider !", vbInformation, "ATTENTION ..."
Exit Sub
End If
' Si un enregistrement à été sélectionné
' Activation du lien hypertexte
With Sheets("DCI")
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
' c'est sur la ligne au-dessus que cela devrait fonctionner
Unload Me
End With
End Sub
Merci pour votre aide.