Supprimer l'ascenseur sur un onglet

[jmh1]

Bonsoir à tous,

J'ai un fichier avec plusieurs onglets et j'aimerai masqué les ascenseurs sur un seul onglet.

J'ai essayé dans les options mais apparement, lorsque l'on déselectionne cette option, c'est tous
les onglets qui n'ont plus d'ascenseurs.

Quelqu'un aurait-il la solution à mon problème ?

 

[Essart]

Re : Supprimer l'ascenseur sur un onglet

Bonjour,,

en mettant ceci dans le vba :

Private Sub Worksheet_Activate()

With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
End Sub

dans la feuille N°2 dans l'exemple joint, avec dans les auutres feuilles :

Private Sub Worksheet_Activate()

With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
End Sub

Essart

 

[Essart]

Re : Supprimer l'ascenseur sur un onglet

Erratum,

dans les autres feuilles,
il fallait bien sûr lire false et non true pour les deux ...

Cela m'apprendra à faire du copier/coller trop vite ...
;-)

Essart

 

[Essart]

Re : Supprimer l'ascenseur sur un onglet

sic, t

True et non False !
pour les deux autres !

.../...

 

[jmh1]

Re : Supprimer l'ascenseur sur un onglet

Bonsoir Essart

Merci pour ta réponse

et pour les false....true.... Arrive une certaine heure, cela se complique.......

 

[kjin]

Re : Supprimer l'ascenseur sur un onglet

Bonsoir,
dans le module de ThisWorkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With ActiveWindow
    If UCase(Sh.Name) = "TARTEMPION" Then
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
    Else
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
    End If
End With
End Sub

...tartempion étant le nom de la feuille
A+
kjin

 

[Essart]

Re : Supprimer l'ascenseur sur un onglet

Il faut faire ALT F11
double cliquer sur VBA Project (Essai.xls) dans la fenêtre de gauche
puis cliquer sur le + de Microsoft excel objets
puis double clic sur Feuil1 où on peut lire le code pour les ascenseurs normaux,
mais double clic sur feuil2 donne un code qui permet de supprimer les 2 ascenseurs mais que sur cette feuille ...