chaelie2015 XLDnaute Accro 4 Mars 2017 #1 Bonjour forum D'une façon générale,je cherche un code pour un bouton qui m'envoi vers une autre feuille. a+
Bonjour forum D'une façon générale,je cherche un code pour un bouton qui m'envoi vers une autre feuille. a+
JONEY76 XLDnaute Occasionnel 4 Mars 2017 #2 Bonjour, sheets("feuil blabla").select Vote positif 0 Vote négatif
Lone-wolf XLDnaute Barbatruc 4 Mars 2017 #3 Bonsoir chaelie , le Forum Pourquoi un bouton?? Dans l'évenement double_click If Target.address = "$M$2" Then Sheets(x).Activate Et pour revenir à la feuille accueil par exemple. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$N$2" Then Sheets(1).Activate End Sub Dernière édition: 4 Mars 2017 Vote positif 0 Vote négatif
Bonsoir chaelie , le Forum Pourquoi un bouton?? Dans l'évenement double_click If Target.address = "$M$2" Then Sheets(x).Activate Et pour revenir à la feuille accueil par exemple. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$N$2" Then Sheets(1).Activate End Sub
chaelie2015 XLDnaute Accro 4 Mars 2017 #5 Bonsoir joney76,lone-wolf merci pour la réponse "sheets("feuil blabla").select" si la feuille est masquée(veryhidden) ? a+ Vote positif 0 Vote négatif
Bonsoir joney76,lone-wolf merci pour la réponse "sheets("feuil blabla").select" si la feuille est masquée(veryhidden) ? a+
Lone-wolf XLDnaute Barbatruc 4 Mars 2017 #6 Re chaelie Sheets(x).Visible = True - Sheets(x).Visible = False Dernière édition: 4 Mars 2017 Vote positif 0 Vote négatif
chaelie2015 XLDnaute Accro 4 Mars 2017 #7 re ça n'a pas fonctionné??? Private Sub CommandButton1_Click() 'Sheets("ZONEDESAISIE").Select Sheets("ZONEDESAISIE").Hidden = False End Sub a+ Vote positif 0 Vote négatif
re ça n'a pas fonctionné??? Private Sub CommandButton1_Click() 'Sheets("ZONEDESAISIE").Select Sheets("ZONEDESAISIE").Hidden = False End Sub a+
chaelie2015 XLDnaute Accro 4 Mars 2017 #8 Lone-wolf à dit: Sheets(x).Visible = True - Sheets(x).Visible = False Cliquez pour agrandir... Re non plus ??? a+ Vote positif 0 Vote négatif
Lone-wolf à dit: Sheets(x).Visible = True - Sheets(x).Visible = False Cliquez pour agrandir... Re non plus ??? a+
chaelie2015 XLDnaute Accro 4 Mars 2017 #9 Lone-wolf à dit: Re chaelie Sheets(x).Visible = True - Sheets(x).Visible = False Cliquez pour agrandir... re non plus???? a+ Vote positif 0 Vote négatif
Lone-wolf à dit: Re chaelie Sheets(x).Visible = True - Sheets(x).Visible = False Cliquez pour agrandir... re non plus???? a+
Lone-wolf XLDnaute Barbatruc 4 Mars 2017 #10 Re Essaie comme ceci Dim sh As Worksheet Set sh = Sheets(2) sh.Visible = xlSheetVeryHidden sh.Visible = xlSheetVisible Vote positif 0 Vote négatif
Re Essaie comme ceci Dim sh As Worksheet Set sh = Sheets(2) sh.Visible = xlSheetVeryHidden sh.Visible = xlSheetVisible