VBA Excel - recherche et ouverture liens [Résolu/Fermé]

Signaler
Messages postés
3
Date d'inscription
mardi 19 octobre 2010
Statut
Membre
Dernière intervention
20 octobre 2010
-
Messages postés
137
Date d'inscription
dimanche 23 décembre 2007
Statut
Membre
Dernière intervention
12 janvier 2014
-
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.

4 réponses

Messages postés
137
Date d'inscription
dimanche 23 décembre 2007
Statut
Membre
Dernière intervention
12 janvier 2014
33
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
Messages postés
3
Date d'inscription
mardi 19 octobre 2010
Statut
Membre
Dernière intervention
20 octobre 2010

je l'insère où ?

je sais je suis nul en VBA
Messages postés
137
Date d'inscription
dimanche 23 décembre 2007
Statut
Membre
Dernière intervention
12 janvier 2014
33
A la fin de ton else.
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 128
Bonjour,
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)
Messages postés
137
Date d'inscription
dimanche 23 décembre 2007
Statut
Membre
Dernière intervention
12 janvier 2014
33
bein voilà! ;)
Messages postés
3
Date d'inscription
mardi 19 octobre 2010
Statut
Membre
Dernière intervention
20 octobre 2010

Merci de m'avoir aidé, c'est super sympa !

Tous fonctionne parfaitement