créer un lien a partir d'un mot

Question

Bonjour, 
je souhaite a partir d'un mot sur un texte dans des cases fusionnées, donner accès à une autre page cachée, je sais le faire sur une case entière, mais pas sur un mot précis figurant dans un texte d'une page.
Pouvez vous m'aider ??

cordialement 
Didier

Frenchie83 · Answer

Bonjour
Si j'ai bien compris, voici une approche à adapter selon vos besoins.
Exemple: Sur la feuille 1 vous sélectionnez le texte à rechercher (double clic sur le mot et Copier avec "Ctrl + c", validez votre action en cliquant n'importe ou sur la feuille), lancez la procédure suivante, puis coller avec "Ctrl + v" dans la boîte de dialogue pour rechercher dans la feuille 2:
Sub RechercheMot()
    Dim Message, Title, TexteRecherche
    Application.ScreenUpdating = False
    'ouvre une boîte de dialogue demandant le texte à rechercher
    Message = "Saisissez le texte à rechercher"
    Title = "Texte à rechercher"
    TexteRecherche = InputBox(Message, Title)
    
    'affiche la page cachée et sélectionne l'ensemble des cellules 
    Sheets("Feuil2").Visible = True
    Sheets("Feuil2").Select
    Cells.Select
    
    'effectue la recherche du texte choisi
    Selection.Find(What:=TexteRecherche, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
End Sub
Dans la feuille2, la première cellule trouvée contenant le texte recherché est activée.
cdlt

Créer un lien a partir d'un mot

1 réponse

Discussions similaires

Newsletters