VBA Excel - recherche et ouverture liens

Résolu
drako1926 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
mat_elot Messages postés 137 Date d'inscription   Statut Membre Dernière intervention   -
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.
A voir également:

4 réponses

Réponse 1 / 4
mat_elot Messages postés 137 Date d'inscription   Statut Membre Dernière intervention   38
 
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
0
Réponse 2 / 4
drako1926 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
je l'insère où ?

je sais je suis nul en VBA
0
mat_elot Messages postés 137 Date d'inscription   Statut Membre Dernière intervention   38
 
A la fin de ton else.
0
Réponse 3 / 4
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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)
0
mat_elot Messages postés 137 Date d'inscription   Statut Membre Dernière intervention   38
 
bein voilà! ;)
0
Réponse 4 / 4
drako1926 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Merci de m'avoir aidé, c'est super sympa !

Tous fonctionne parfaitement
0