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.
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.