Macro et lien hypertexte
Bonjour, j'ai un fichier excel que j'aimerais automatiser certaines taches pour éviter les manipulations pouvant endommager le fichier.
C'est juste plusieurs feuilles de comptabilité (Caisse, base, la saisie des données, les déversements, les extraits de comptes, la balance)
Dans la feuille "caisse", je veut insérer un macro avec des liens hypertexte me permettant d'atteindre la feuille que je veut une fois sélectionner.
Par exemple, si je veut saisir des nouvelles données, dans la feuille "caisse", je sélectionne dans une liste (validation des données), la feuille que je veut atteindre.
Une fois fais, je clique sur le macro et ça me renvois à la feuille démandée.
Merci à toute l'équipe.
Je jette un coup d oeil. Merci infiniment
Bjr, c'est bien ça. Comment as tu fais?
Bonjour Laasbam,
j'ai fait exactement comme tu as demandé :
1 - J'ai mis en colonne J les noms des feuilles auxquelles tu veux accéder.
2- J'ai créé un nom dynamique dans le gestionnaire de noms que j'ai nommé Liste_feuilles avec pour formule =DECALER(Menu!$J$2;1;;NBVAL(Menu!$J:$J)-1)
3- J'ai mis en en D3 une liste déroulante avec le nom Liste_feuilles
4- J'ai créé un bouton avec une macro pour accéder à la feuille que tu as choisi avec le code suivant :
Private Sub CommandButton1_Click()
Dim Nom_feuille As String
Nom_feuille = Range("D3")
Sheets(Nom_feuille).Activate
End Sub
Terminé
Bonjour, bien reçu. j'essaie moi meme voir. Merci pour tout.
j'ai essayé de copier ton code (Private Sub CommandButton1_Click()
Dim Nom_feuille As String
Nom_feuille = Range("D3")
Sheets(Nom_feuille).Activate
End Sub
mais ça ne marche pas
Hello,
le mieux post le fichier que tu as fait en ayant préalablement enlever les données sensibles qu'on puisse voir ce qui cloche.
voici le fichier en question. Merci bien.
Voilà ton fichier en retour.
Bien reçu. merci infiniment.