VBA Excel - recherche et ouverture liens Résolu

Question

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.

mat_elot · Answer

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

drako1926 · Answer

je l'insère où ?

je sais je suis nul en VBA

lermite222 · Answer

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)

drako1926 · Answer

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

VBA Excel - recherche et ouverture liens

4 réponses

Newsletters