Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Initialisation à l'ouverture d'un classeur

  • Initiateur de la discussion Initiateur de la discussion Fred
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

F

Fred

Guest
Bonjour

Comment faire grâce à une macro ou .... pour qu'à l'ouverture de mon classeur tout soit initialiser comme je le veux sans avoir besoin de cliquer sur un bouton ?

merci d'avance
 
salut fred

dans Outils/Macros/Visual Basic Editor
dans thisworkbook il faut entrer les paramètres pour Workbook_Open et Workbook_close

exemple:
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
With ActiveWindow
ActiveWindow.DisplayHeadings = False
.DisplayGridlines = False
'.DisplayHorizontalScrollBar = False
'.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
Application.CommandBars('Standard').Visible = False
Application.CommandBars('Formatting').Visible = False
Application.CommandBars('Drawing').Visible = False
End With
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With
End Sub

cela modifira l'affichage d'excel (menu, plein écran,....)

a la fermeture Workbook_close le même chose en changeant '= false' par '= true'

A+
 
Pour l'initialisation je voudrais que toutes les cases à cocher de mon classeur soient à la valeur fausse, comment faire çà :S ??

Merci pour ta réponse 🙂
 
Bonjour le fil

Code a rentrer dans thisworkbook
Code:
Private Sub Workbook_Open()
    Sheets('Feuil1').CheckBox1.Value = False
    Sheets('Feuil2').CheckBox2.Value = False
    .....
End Sub
Bon courage

Le code est bien sur a adapter a ton fichier
😉

Adeus33

Message édité par: adeus33, à: 16/03/2006 17:08
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
258
Réponses
4
Affichages
322
Réponses
15
Affichages
636
W
Réponses
1
Affichages
286
W
Réponses
1
Affichages
340
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…