Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Outils, Personnaliser, Options

Outils, Personnaliser, Options

8 réponses
Avatar
Caroline L.
Bonjour,

J'essaie d'appliquer par VBA les "Grandes Icônes" dans Outils,
Personnaliser, Options. Je veux que les icônes soit gros mais seulement dans
le classeur actif.

J'ai essayé en passant par l'enregistreur de macro mais cette manipulation
ne génère aucun code macro.

Merci pour votre aide !

Caroline
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
LSteph
Bonsoir Caroline,
dans thisworkbook du classeur concerné:
'***
Private Sub Workbook_Activate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = False
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = False
End Sub

Private Sub Workbook_Open()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = True
End Sub
'***

lSteph

"Caroline L." a écrit dans le message de news:
YCD4e.116744$
Bonjour,

J'essaie d'appliquer par VBA les "Grandes Icônes" dans Outils,
Personnaliser, Options. Je veux que les icônes soit gros mais seulement
dans
le classeur actif.

J'ai essayé en passant par l'enregistreur de macro mais cette manipulation
ne génère aucun code macro.

Merci pour votre aide !

Caroline




Avatar
jps
m'est avis qu'après ça, LSteph, la guerre des boutons n'aura finalement pas
lieu et que les longevernes et les velrans n'auront qu'à rejoindre leurs
foyers respectifs...
jps

"LSteph" a écrit dans le message de
news:
Bonsoir Caroline,
dans thisworkbook du classeur concerné:
'***
Private Sub Workbook_Activate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = False
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = False
End Sub

Private Sub Workbook_Open()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = True
End Sub
'***

lSteph

"Caroline L." a écrit dans le message de news:
YCD4e.116744$
Bonjour,

J'essaie d'appliquer par VBA les "Grandes Icônes" dans Outils,
Personnaliser, Options. Je veux que les icônes soit gros mais seulement
dans
le classeur actif.

J'ai essayé en passant par l'enregistreur de macro mais cette
manipulation


ne génère aucun code macro.

Merci pour votre aide !

Caroline








Avatar
LSteph
Ah ben si j'aurais su...
;o)

"jps" a écrit dans le message de news:

m'est avis qu'après ça, LSteph, la guerre des boutons n'aura finalement
pas
lieu et que les longevernes et les velrans n'auront qu'à rejoindre leurs
foyers respectifs...
jps

"LSteph" a écrit dans le message de
news:
Bonsoir Caroline,
dans thisworkbook du classeur concerné:
'***
Private Sub Workbook_Activate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = False
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = False
End Sub

Private Sub Workbook_Open()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = True
End Sub
'***

lSteph

"Caroline L." a écrit dans le message de news:
YCD4e.116744$
Bonjour,

J'essaie d'appliquer par VBA les "Grandes Icônes" dans Outils,
Personnaliser, Options. Je veux que les icônes soit gros mais seulement
dans
le classeur actif.

J'ai essayé en passant par l'enregistreur de macro mais cette
manipulation


ne génère aucun code macro.

Merci pour votre aide !

Caroline











Avatar
Caroline L.
Bonsoir LSteph,

ha que je suis soulagé... vraiment soulagé.

Mais je ne comprend pas pourquoi placer dans Open et Before_Close ??
J'ai fait le test avec seulement le Activate et Deactivate et tout
fonctionne bien.

Merci

Caroline


"LSteph" a écrit dans le message de news:

Bonsoir Caroline,
dans thisworkbook du classeur concerné:
'***
Private Sub Workbook_Activate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = False
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = False
End Sub

Private Sub Workbook_Open()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = True
End Sub
'***

lSteph

"Caroline L." a écrit dans le message de news:
YCD4e.116744$
Bonjour,

J'essaie d'appliquer par VBA les "Grandes Icônes" dans Outils,
Personnaliser, Options. Je veux que les icônes soit gros mais seulement
dans
le classeur actif.

J'ai essayé en passant par l'enregistreur de macro mais cette
manipulation


ne génère aucun code macro.

Merci pour votre aide !

Caroline








Avatar
Caroline L.
A tant parler de "boutons", je vais prendre rendez-vous chez ma
dermatologue... ça commence à piquer....... ;-)

LSteph, as-tu lu mon dernier post intitulé "Perdu mes boutons" ? JPS et moi
n'irons pas chez le dermato !


"jps" a écrit dans le message de news:

m'est avis qu'après ça, LSteph, la guerre des boutons n'aura finalement
pas

lieu et que les longevernes et les velrans n'auront qu'à rejoindre leurs
foyers respectifs...
jps

"LSteph" a écrit dans le message de
news:
Bonsoir Caroline,
dans thisworkbook du classeur concerné:
'***
Private Sub Workbook_Activate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = False
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = False
End Sub

Private Sub Workbook_Open()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = True
End Sub
'***

lSteph

"Caroline L." a écrit dans le message de news:
YCD4e.116744$
Bonjour,

J'essaie d'appliquer par VBA les "Grandes Icônes" dans Outils,
Personnaliser, Options. Je veux que les icônes soit gros mais
seulement



dans
le classeur actif.

J'ai essayé en passant par l'enregistreur de macro mais cette
manipulation


ne génère aucun code macro.

Merci pour votre aide !

Caroline











Avatar
LSteph
Bonjour Caroline.L,
Tu as raison !
Oui, je me suis amusé à plusieurs alternatives et j'ai laissé le tout .

Je comprends mieux maintenant l'intervention du dermato JPS!

;-)

lSteph

"Caroline L." a écrit dans le message de news:
BGE4e.117570$
Bonsoir LSteph,

ha que je suis soulagé... vraiment soulagé.

Mais je ne comprend pas pourquoi placer dans Open et Before_Close ??
J'ai fait le test avec seulement le Activate et Deactivate et tout
fonctionne bien.

Merci

Caroline


"LSteph" a écrit dans le message de news:

Bonsoir Caroline,
dans thisworkbook du classeur concerné:
'***
Private Sub Workbook_Activate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = False
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = False
End Sub

Private Sub Workbook_Open()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = True
End Sub
'***

lSteph

"Caroline L." a écrit dans le message de news:
YCD4e.116744$
Bonjour,

J'essaie d'appliquer par VBA les "Grandes Icônes" dans Outils,
Personnaliser, Options. Je veux que les icônes soit gros mais seulement
dans
le classeur actif.

J'ai essayé en passant par l'enregistreur de macro mais cette
manipulation


ne génère aucun code macro.

Merci pour votre aide !

Caroline












Avatar
jps
:-)))))))
dermato, procto....même combat
jps

"LSteph" a écrit dans le message de
news:
Bonjour Caroline.L,
Tu as raison !
Oui, je me suis amusé à plusieurs alternatives et j'ai laissé le tout .

Je comprends mieux maintenant l'intervention du dermato JPS!

;-)

lSteph

"Caroline L." a écrit dans le message de news:
BGE4e.117570$
Bonsoir LSteph,

ha que je suis soulagé... vraiment soulagé.

Mais je ne comprend pas pourquoi placer dans Open et Before_Close ??
J'ai fait le test avec seulement le Activate et Deactivate et tout
fonctionne bien.

Merci

Caroline


"LSteph" a écrit dans le message de news:

Bonsoir Caroline,
dans thisworkbook du classeur concerné:
'***
Private Sub Workbook_Activate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = False
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = False
End Sub

Private Sub Workbook_Open()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = True
End Sub
'***

lSteph

"Caroline L." a écrit dans le message de news:
YCD4e.116744$
Bonjour,

J'essaie d'appliquer par VBA les "Grandes Icônes" dans Outils,
Personnaliser, Options. Je veux que les icônes soit gros mais
seulement




dans
le classeur actif.

J'ai essayé en passant par l'enregistreur de macro mais cette
manipulation


ne génère aucun code macro.

Merci pour votre aide !

Caroline
















Avatar
Pierre CFI [mvp]
:-)))))))
dermato, procto....même combat
jps



oui, sauf que celle qui vient consulter le 1 pour de l'acnée, va étre surprise des méthodes du 2
:o)) enfin, si c'est doc jps....
--
Pierre CFI
MVP Microsoft Access