Sujet Précédent Sujet Suivant

VBA Excel - recherche et ouverture liens

Résolu/Fermé
drako1926 Messages postés 3 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 20 octobre 2010 - 19 oct. 2010 à 15:11
mat_elot Messages postés 137 Date d'inscription dimanche 23 décembre 2007 Statut Membre Dernière intervention 12 janvier 2014 - 20 oct. 2010 à 15:04
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 dimanche 23 décembre 2007 Statut Membre Dernière intervention 12 janvier 2014 38
19 oct. 2010 à 17:45
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 mardi 19 octobre 2010 Statut Membre Dernière intervention 20 octobre 2010
20 oct. 2010 à 05:39
je l'insère où ?

je sais je suis nul en VBA
0
mat_elot Messages postés 137 Date d'inscription dimanche 23 décembre 2007 Statut Membre Dernière intervention 12 janvier 2014 38
20 oct. 2010 à 15:04
A la fin de ton else.
0
Réponse 3 / 4
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 20/10/2010 à 06:59
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 dimanche 23 décembre 2007 Statut Membre Dernière intervention 12 janvier 2014 38
20 oct. 2010 à 15:04
bein voilà! ;)
0
Réponse 4 / 4
drako1926 Messages postés 3 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 20 octobre 2010
20 oct. 2010 à 10:38
Merci de m'avoir aidé, c'est super sympa !

Tous fonctionne parfaitement
0