Microsoft 365 Ne pas activer l'onglet cliqué

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite une belle journée 🙂

Encore une particularité que je souhaiterai pouvoir utiliser ... mais est-ce possible ?
Dans mon classeur, j'ai plusieurs onglets : Par exemple Feuil1, 2 et 3

Voici ce que je voudrais faire (gardant la Feuil1 visible) :
Rendre inactif le clic sur l'onglet "Feuil1" (c'est à dire ne pas afficher la feuil1)

J'ai fait des recherches et tentatives sans succès.
Auriez-vous la solution ?
Je joins un petit fichier test,
Avec mes remerciements,
Amicalement,
lionel,
 

Pièces jointes

Dernière édition:
Solution
Bonjour,
Dans le Workbook, mettre le code suivant.
VB:
Private FeuilleActive As Worksheet

Private Sub Workbook_Open()
    If ActiveSheet.Name = Me.Worksheets(1).Name Then
        Me.Worksheets(2).Activate
    Else
        Set FeuilleActive = ActiveSheet
    End If
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = Me.Worksheets(1).Name Then
        FeuilleActive.Activate
    Else
        Set FeuilleActive = ActiveSheet
    End If
End Sub
Bonjour,
Dans le Workbook, mettre le code suivant.
VB:
Private FeuilleActive As Worksheet

Private Sub Workbook_Open()
    If ActiveSheet.Name = Me.Worksheets(1).Name Then
        Me.Worksheets(2).Activate
    Else
        Set FeuilleActive = ActiveSheet
    End If
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = Me.Worksheets(1).Name Then
        FeuilleActive.Activate
    Else
        Set FeuilleActive = ActiveSheet
    End If
End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
18
Affichages
2 K
Retour