Microsoft 365 Ne pas activer l'onglet cliqué

Usine à gaz · 5 Août 2020

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,

Dudu2 · 5 Août 2020

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

Dudu2 · 5 Août 2020

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

Usine à gaz · 5 Août 2020

Bonjour Dudu2,

Merci pour ton code
Je teste et je te dis
lionel,

Dudu2 · 5 Août 2020

Reprends-le car j'ai apporté une petite correction entre temps.

Usine à gaz · 5 Août 2020

Re,
Super ça marche. je n'ai pas compris le code mais c'est bon.
P'tite question :
Le code retourne automatiquement sur la Feuille3 ... j'aimerais pouvoir lui dire sur quelle feuille aller .

Usine à gaz · 5 Août 2020

Dudu2 · 5 Août 2020

On laisse comme ça en restant sur la feuille active ou tu veux être prompté pour aller sur une autre feuille choisie ?

Usine à gaz · 5 Août 2020

C'était juste pour savoir comment faire si je veux "être prompté" pour aller à une feuille à activer
Mais c'est tout bon comme ça. Merci à toi

Microsoft 365 Ne pas activer l'onglet cliqué

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Dudu2

Dudu2

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires