VBA: Comment retirer les ascenseurs d'une seule feuille excel ? [Résolu]
A voir également:
- VBA: Comment retirer les ascenseurs d'une seule feuille excel ?
- [VB6 -> VBA]récupérer le nombre de cellules d'une feuille excel avec vba ✓ - Forum - Visual Basic 6
- Copier une cellule dans une autre feuille excel vba ✓ - Forum - Visual Basic
- Oter protection feuille excel vba - Guide
- Vba requete sql dans une feuille excel - Guide
- Vba exporter feuille excel en txt - Forum - Visual Basic
21 réponses
bigfish_le vrai
- Messages postés
- 1839
- Date d'inscription
- vendredi 13 mai 2005
- Statut
- Membre
- Dernière intervention
- 20 novembre 2013
Salut,
le code suivant est mettre dans le code de "ThisWorkBook"
"Feuil1" est à remplacer par le nom de la feuille qui doit être gérée par ce code.
A+
le code suivant est mettre dans le code de "ThisWorkBook"
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name "Feuil1" Then ActiveWindow.DisplayVerticalScrollBar False
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If ActiveWindow.DisplayVerticalScrollBar False Then ActiveWindow.DisplayVerticalScrollBar True
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
If Wn.ActiveSheet.Name "Feuil1" Then Wn.DisplayVerticalScrollBar False
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
If Wn.DisplayVerticalScrollBar False Then Wn.DisplayVerticalScrollBar True
End Sub
"Feuil1" est à remplacer par le nom de la feuille qui doit être gérée par ce code.
A+
voila:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name "Application" Then ActiveWindow.DisplayHorizontalScrollBar False
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If ActiveWindow.DisplayHorizontalScrollBar False Then ActiveWindow.DisplayHorizontalScrollBar True
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
If Wn.ActiveSheet.Name "Application" Then Wn.DisplayHorizontalScrollBar False
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
If Wn.DisplayHorizontalScrollBar False Then Wn.DisplayHorizontalScrollBar True
End Sub
Charles Racaud
- Messages postés
- 3172
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
Bonsoir,
Barre de menu donc office <= 2003
Pour le "ruban"
_____________
Kenji
Barre de menu donc office <= 2003
Application.DisplayExcel4Menus = False
Pour le "ruban"
Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", False)"
_____________
Kenji
Charles Racaud
- Messages postés
- 3172
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
"F5 sur la macro", je veux dire placer le curseur sur la fonction et l'exécuter.
Sinon, oui si tu préfère, tu peux définir une touche raccourcis à ta macro sur les options de celle-ci (menu outils > macro un truc du genre)
_____________
Kenji
Sinon, oui si tu préfère, tu peux définir une touche raccourcis à ta macro sur les options de celle-ci (menu outils > macro un truc du genre)
_____________
Kenji
Cependant, pour enlever l'ascenseur horizontal, j'ai fais un copier collé en remplaçant vertical par horizontal mais j'ai un message d'erreur "nom ambigu détecté: workbook activate"
pouvez-vous m'aider svp?
pouvez-vous m'aider svp?
bigfish_le vrai
- Messages postés
- 1839
- Date d'inscription
- vendredi 13 mai 2005
- Statut
- Membre
- Dernière intervention
- 20 novembre 2013
re,
montre le code !
A+
montre le code !
A+
Néanmoins, peux-tu m'indiquer s'il est possible de retirer la barre de menu de excel par le VBA STP ?
bigfish_le vrai
- Messages postés
- 1839
- Date d'inscription
- vendredi 13 mai 2005
- Statut
- Membre
- Dernière intervention
- 20 novembre 2013
re,
"nom ambigu détecté" car "Application" est un nom réservé au VBA !
A+
"nom ambigu détecté" car "Application" est un nom réservé au VBA !
A+
Bonsoir Charles racaud,
Merci pour l'instruction mais avant de l'essayer, je voudrais savoir comment je pourrais refaire apparaître le menu en cas de problème SVP?
Faut-il que je prévois un bouton de commande ou plutôt l'appui sur un duo de touche ou touche de fonction?
Merci pour l'instruction mais avant de l'essayer, je voudrais savoir comment je pourrais refaire apparaître le menu en cas de problème SVP?
Faut-il que je prévois un bouton de commande ou plutôt l'appui sur un duo de touche ou touche de fonction?
Charles Racaud
- Messages postés
- 3172
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
Il te suffit de remplacer les False par des True
Et oui, prévois quand même une solution pour les faire réapparaitre ^^
Un bouton qui appelle la macro sinon Alt-F11 et F5 sur la macro
_____________
Kenji
Et oui, prévois quand même une solution pour les faire réapparaitre ^^
Un bouton qui appelle la macro sinon Alt-F11 et F5 sur la macro
_____________
Kenji
Ok merci.
Mais je ne comprends pas le sens de:
"sinon Alt-F11 et F5 sur la macro " ?
Je préfèrerais une combinaison de touche
"Alt M" me conviendrais car un bouton serait une porte ouverte à de fausse manip.
Peux-tu me suggérer un code porte cela STP?
Merci.
Mais je ne comprends pas le sens de:
"sinon Alt-F11 et F5 sur la macro " ?
Je préfèrerais une combinaison de touche
"Alt M" me conviendrais car un bouton serait une porte ouverte à de fausse manip.
Peux-tu me suggérer un code porte cela STP?
Merci.
Finalement, j'ai planqué un togglebutton mais je ne sais pas comment mettre le code quand il est appuyer et l'inverse du code quand il est relevé. Je cherche ça sur le net. Mais je vous remercie tous les deux pour votre aide.
Je verrais plus tard, si j'ai un bon retour de mon application, comment faire en sorte de l'exécuter comme un vrai logiciel.
Merci.
Je verrais plus tard, si j'ai un bon retour de mon application, comment faire en sorte de l'exécuter comme un vrai logiciel.
Merci.
Charles Racaud
- Messages postés
- 3172
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
Si suffit de vérifier son état :
A la base c'est un classeur Excel, tu ne peux donc pas le transformer en application. Les macros servent à automatiser des traitements et effectuer des tâches propres au document Excel.
Si tu veux faire une vraie application, utilise VB6 (ressemble beaucoup au VBA) ou les technologies récentes du moment (VB.NET, C#, C++, Java ...)
_____________
Kenji
Private Sub TonToggleButton_Click()
If TonToggleButton.Value = True Then
Application.DisplayExcel4Menus = False
Else
Application.DisplayExcel4Menus = True
End If
End Sub
comment faire en sorte de l'exécuter comme un vrai logiciel
A la base c'est un classeur Excel, tu ne peux donc pas le transformer en application. Les macros servent à automatiser des traitements et effectuer des tâches propres au document Excel.
Si tu veux faire une vraie application, utilise VB6 (ressemble beaucoup au VBA) ou les technologies récentes du moment (VB.NET, C#, C++, Java ...)
_____________
Kenji
Merci Charles Racaud,
Je viens d'essayé mais ça ne fonctionne pas!
il ne se passe rien. Je pense qu'il ne s'exécute qu'à l'ouverture non?
Je viens d'essayé mais ça ne fonctionne pas!
il ne se passe rien. Je pense qu'il ne s'exécute qu'à l'ouverture non?
Charles Racaud
- Messages postés
- 3172
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
J'ai oublié de préciser qu'i faut que tu remplace TonToggleButton par le nom de ton bouton. (aussi dans le nom de la Sub TonToggleButton_Click) et de mettre ce code dans la feuille dans laquelle se trouve ton bouton.
_____________
Kenji
_____________
Kenji