Bouton vba qui renvoi vers un onglet
Fermé
Skeo
-
15 avril 2010 à 17:19
baladur13 Messages postés 47102 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 23 décembre 2024 - 15 avril 2010 à 19:00
baladur13 Messages postés 47102 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 23 décembre 2024 - 15 avril 2010 à 19:00
A voir également:
- Bouton vba qui renvoi vers un onglet
- Rouvrir un onglet fermé - Guide
- Vers quelle adresse web renvoie ce lien - Guide
- Renvoi mobilis ✓ - Forum telephonie fixe
- Windows 7 vers windows 10 - Accueil - Mise à jour
- Onglet disposition excel - Forum Excel
2 réponses
jejelefou
Messages postés
304
Date d'inscription
mercredi 21 mai 2008
Statut
Membre
Dernière intervention
18 février 2016
42
15 avril 2010 à 17:26
15 avril 2010 à 17:26
Bonjour
Sub hypertext2()
x = "s" + sheets("accueil").cells(13,9)
Application.Goto Reference:=Worksheets(x).Range("A1"), _
scroll:=True
End Sub
a+
jéjé
Sub hypertext2()
x = "s" + sheets("accueil").cells(13,9)
Application.Goto Reference:=Worksheets(x).Range("A1"), _
scroll:=True
End Sub
a+
jéjé
baladur13
Messages postés
47102
Date d'inscription
mercredi 11 avril 2007
Statut
Modérateur
Dernière intervention
23 décembre 2024
13 500
Modifié par baladur13 le 15/04/2010 à 20:55
Modifié par baladur13 le 15/04/2010 à 20:55
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...!!!!
15 avril 2010 à 17:47
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
15 avril 2010 à 17:58
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)