VBA Excel - recherche et ouverture liens
Résolu
drako1926
Messages postés
3
Statut
Membre
-
mat_elot Messages postés 147 Statut Membre -
mat_elot Messages postés 147 Statut Membre -
Bonjour, je suis débutant,
J'ai crée sur Excel une marche à suivre pour des tâches à mon boulot, donc un onglet par tâche.
ensuite j'ai un onglet de listing avec toutes les tâches reliées par liens hypertextes aux onglets correspondants.
il y a énormément de tâches et j'ai crée un boutton de recherche
voici le code
Sub recherche()
Dim rngTrouve As Range
Dim strChaine As String
strChaine = InputBox("Quelle tâche cherchez-vous ?")
Set rngTrouve = ActiveSheet.Cells.Find(what:=strChaine)
If rngTrouve Is Nothing Then
MsgBox "Tâche inconnue"
Else
Cells.Find(what:=strChaine).Activate
End If
Set rngTrouve = Nothing
End Sub
Le problème est que j'aimerais que le résultat de la recherche ouvre automatiquement le lien hypertexte.
Est-ce que quelqu'un a une idée.
J'ai crée sur Excel une marche à suivre pour des tâches à mon boulot, donc un onglet par tâche.
ensuite j'ai un onglet de listing avec toutes les tâches reliées par liens hypertextes aux onglets correspondants.
il y a énormément de tâches et j'ai crée un boutton de recherche
voici le code
Sub recherche()
Dim rngTrouve As Range
Dim strChaine As String
strChaine = InputBox("Quelle tâche cherchez-vous ?")
Set rngTrouve = ActiveSheet.Cells.Find(what:=strChaine)
If rngTrouve Is Nothing Then
MsgBox "Tâche inconnue"
Else
Cells.Find(what:=strChaine).Activate
End If
Set rngTrouve = Nothing
End Sub
Le problème est que j'aimerais que le résultat de la recherche ouvre automatiquement le lien hypertexte.
Est-ce que quelqu'un a une idée.
A voir également:
- VBA Excel - recherche et ouverture liens
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Si et ou excel - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Déplacer colonne excel - Guide
4 réponses
Salut, en supposant que j'ai bien compris ton pbm et que ta tache est le meme nom que ton onglet. teste avec Sheets("rngTrouve ").Activate
Bonjour,
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
If rngTrouve Is Nothing Then
MsgBox "Tâche inconnue"
Else
rngTrouve.Select
Selection.Hyperlinks(1).Follow
'Si tu veux faire comme le suggère le matelot..
Sheets(rngTrouve.value).Activate
End If
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)