VBA: Comment retirer les ascenseurs d'une seule feuille excel ? [Résolu]
mod77
- Messages postés
- 1260
- Date d'inscription
- vendredi 10 juillet 2009
- Dernière intervention
- 22 octobre 2018
- Messages postés
- 1260
- Date d'inscription
- vendredi 10 juillet 2009
- Dernière intervention
- 22 octobre 2018
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
- Ajustement userform vba à cellule feuille excel - Codes sources - Visual Basic / VB.NET (VBA)
- Visual Basic / VB.NET : [vba] molette souris combobox et listebox dans feuille excel et userform - C - Guide
- Visual Basic / VB.NET : Info Bulle sur un objet VBA dans une feuille Excel - CodeS SourceS - Guide
- Insérer une image dans une feuille excel ✓ - Forum - Visual Basic
20/21 réponses
Meilleure réponse
- Messages postés
- 1839
- Date d'inscription
- vendredi 13 mai 2005
- 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+
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
111 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1260
- Date d'inscription
- vendredi 10 juillet 2009
- Dernière intervention
- 22 octobre 2018
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
111 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- 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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
111 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- 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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
111 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1839
- Date d'inscription
- vendredi 13 mai 2005
- Dernière intervention
- 20 novembre 2013
- Messages postés
- 1839
- Date d'inscription
- vendredi 13 mai 2005
- Dernière intervention
- 20 novembre 2013
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Dernière intervention
- 9 avril 2017
- Messages postés
- 1260
- Date d'inscription
- vendredi 10 juillet 2009
- Dernière intervention
- 22 octobre 2018
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.
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- 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
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Dernière intervention
- 9 avril 2017
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.