Microsoft 365 Ne pas activer l'onglet cliqué

Dudu2

XLDnaute Barbatruc

• 5 Août 2020

• #2

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: 5 Août 2020

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 5 Août 2020

• #3

Bonjour Dudu2,

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Août 2020

• #4

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 5 Août 2020

• #5

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 .
🙂

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 5 Août 2020

• #6

ok 🙂

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Août 2020

• #7

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 5 Août 2020

• #8

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 🙂

 

Dernière édition: 5 Août 2020

Vote positif 0 Vote négatif