Bouton vba qui renvoi vers un onglet
Fermé
Skeo
-
baladur13 Messages postés 47677 Date d'inscription Statut Modérateur Dernière intervention -
baladur13 Messages postés 47677 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour!
J'ai un classeur excel dont les onglets s'appellent S1, S2, S3 pour semaine 1, Semaine 2... et je voudrais créer un bouton qui m'ouvre l'onglet de la semaine en question (cette valeur est stocké en I13, je l'obtient à partir de la date -stocké en I14- avec la formule =ENT(MOD(ENT((I14-2)/7)+0,6;52+5/28))+1)
Je suis débutant en vba et je n'arrive pas à trouver le moyen de faire ceci pourriez vous m'aider svp?
Merci d'avance!
J'ai un classeur excel dont les onglets s'appellent S1, S2, S3 pour semaine 1, Semaine 2... et je voudrais créer un bouton qui m'ouvre l'onglet de la semaine en question (cette valeur est stocké en I13, je l'obtient à partir de la date -stocké en I14- avec la formule =ENT(MOD(ENT((I14-2)/7)+0,6;52+5/28))+1)
Je suis débutant en vba et je n'arrive pas à trouver le moyen de faire ceci pourriez vous m'aider svp?
Merci d'avance!
A voir également:
- Bouton vba qui renvoi vers un onglet
- Rouvrir onglet fermé chrome - Guide
- Vers quelle adresse web renvoie ce lien - Guide
- Diagnostic bouton photo - Accueil - Outils
- Code renvoi ooredoo - Forum telephonie fixe
- Bouton shift pc ✓ - Forum Jeux vidéo
2 réponses
Bonjour
On continue ici :
https://forums.commentcamarche.net/forum/affich-17373842-cellule-qui-renvoye-vers-un-feuillet-excel
Très difficile d'attraper un chat noir dans une pièce sombre
Surtout quand il n'y est pas...!!!!
8888888b. 888 888 888 "Y88b 888 888 888 888 888 888 888 888 .d88b. 888 888 88888b. 888 .d88b. 88888b. 888 888 d88""88b 888 888 888 "88b 888 d88""88b 888 "88b 888 888 888 888 888 888 888 888 888 888 888 888 888 888 .d88P Y88..88P Y88b 888 888 d88P 888 Y88..88P 888 888 8888888P" "Y88P" "Y88888 88888P" 888 "Y88P" 888 888
On continue ici :
https://forums.commentcamarche.net/forum/affich-17373842-cellule-qui-renvoye-vers-un-feuillet-excel
Très difficile d'attraper un chat noir dans une pièce sombre
Surtout quand il n'y est pas...!!!!
Je précise que j'ai remplacer "accueil" par S0 qui est son nom ainsi que hypertext2 par Aller_semaine_x...
J'ai un code pour faire sensiblement la même chose mais en récupérant la valeur de la semaine que l'on veut consulter dans une valeur mais je n'ai pas réussi à l'adapter pour un bouton je vous met le code:
Sub Semaine_en_cours(ByVal Sh As Object, ByVal Target As Range)
If Left(Sh.Name, 1) = "S" And Not Intersect(Target, [J4]) Is Nothing Then
On Error Resume Next
Worksheets("S" & Target.Value).Activate
On Error GoTo 0
End If
End Sub
D'ailleur est-il possible de récupérer la valeur pour ouvrir l'onglet désirer puis de supprimer la case en question afin de la laisser toujours vide?
Merci
sheets("S0").cells(13,9) = ""
pour pallier au problee du nom de feuille dans mon 1er code remplacer :
x = "s" + sheets("accueil").cells(13,9)
par
x = "s" + sheets("S0").cells(13,9)