> Tous les forums > Forum Bureautique
 [Macro optimisation écran] RESOLUSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Magnan
  Posté le 26/12/2014 @ 09:35 
Aller en bas de la page 
Astucien

Bonjour,

1) J'ai fait 2 macros une enlève les barres d'outils, de formules, et met en plein écran et l'autre fait l'inverse.

Or pour ces 2 macros associées chacune à un bouton il faut les activer 2 fois pour arriver au résultat.La barre de formules fait de la résistance....

Pourquoi ? Est-ce un pb de position dans la macro ?

Sinon cela fonctionne bien à part la nécessité de faire une double activation....

Voici le code :

Sub barresoutilsoff()
' barresoutilsoff Macro efface les barres d'outils et onglets
'
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False
Application.DisplayFullScreen = True
End Sub

Sub barresoutilson()
' barresoutilsoff Macro affiche les barres d'outils et onglets
'
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayGridlines = True
Application.DisplayFullScreen = False
End Sub

2) En subsidiaire :

Comment faire un seul bouton qui basculerait d'un code à l'autre et changerait l'intitulé du bouton ?

Merci d'avance. Bonne journée.



Modifié par Magnan le 26/12/2014 23:51
Publicité
ferrand
 Posté le 26/12/2014 à 10:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

1) Tu fais passer la ligne de commande DisplayFullScreen de la 1re macro (off) en tête de tes lignes de commandes (cela devrait suffire).

2) Un seul bouton :

Sub offon()
Static oo As Boolean
oo = (oo + 1) Mod 2
Application.DisplayFullScreen = oo
ActiveWindow.DisplayWorkbookTabs = Not oo
Application.DisplayFormulaBar = Not oo
ActiveWindow.DisplayHeadings = Not oo
ActiveWindow.DisplayGridlines = Not oo
End Sub

Attention de ne pas te lancer dans des opérations trop hasardeuses...



Modifié par ferrand le 26/12/2014 10:44
ferrand
 Posté le 26/12/2014 à 14:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

NB- Oubli dans ma réponse précédente :

Pour changer l'intitulé du bouton, outre savoir quels sont les intitulés alternatifs et le nom du bouton éventuellement, il faut aussi savoir s'il s'agit d'un bouton de formulaire ou d'un ActiveX (Microsoft Forms).

Dans la mesure où tes macros semblent attachées à un bouton de formulaire, on peut récupérer son nom et changer son intitulé de cette façon (à ajouter à la fin de la macro) :

With ActiveSheet.Shapes(Application.Caller).TextFrame.Characters
If oo Then
.Text = "Intitulé On"
Else
.Text = "Intitulé Off"
End If
End With

Remplacer Intitulé On et Intitulé Off par les intitulés voulus.

Magnan
 Posté le 26/12/2014 à 17:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Merci Ferrand pour ces réponses.

Dés que j'aurai testé je te tiens informé.

Merci.

A+ et bonne soirée.

Magnan
 Posté le 26/12/2014 à 23:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonsoir,

Premier essai sur le changement de position : c'est ok. Faudra m'expliquer...

Deuxième essai sur le bouton unique : c'est aussi ok.

Merci encore pour tes conseils toujours judicieux.

A+ et bonne nuit.



Modifié par Magnan le 26/12/2014 23:18
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
1 099,99 €NAS Western Digital My Cloud EX2 Ultra + 2 disques durs WD Red 18 To (36 To) à 1099,99 €
Valable jusqu'au 07 Août

Amazon fait une promotion sur le NAS à 2 baies Western Digital My Cloud EX2 Ultra accompagné de 2 disques durs Western Digital Red de 18 To (soit un total de 36 To) qui passe à 1099,99 € au lieu de 1300 €. Avec My Cloud EX2 Ultra, vous pourrez synchroniser votre contenu sur tous vos ordinateurs, partager vos fichiers et documents en toute simplicité et profiter de multiples options de sauvegarde afin de créer votre propre système personnalisé.


> Voir l'offre
27,70 €Clé USB 3.0 Sandisk Ultra 256 Go à 27,70 € livrée
Valable jusqu'au 07 Août

Amazon Allemange propose la clé USB Sandisk Ultra d'une capacité de 256 Go à 23,18 €. Comptez 4,52 € pour la livraison en France soit un total de 27,70 € livrée. On la trouve ailleurs à partir de 40 €. Cette clé USB 3.0 est compatible USB 2.0 et offre de bons débits d'environ 100 Mo/s en lecture et en écriture. Le connecteur est rétractable pour éviter qu'il prenne la poussière.

Vous pouvez utiliser votre compte Amazon FR sur Amazon DE et il n'y a pas de douane.


> Voir l'offre
139,78 €Kit de 32 Go (2 x 16 Go) de mémoire DDR4 Crucial Ballistix 3000 MHz à 139,78 € livré
Valable jusqu'au 07 Août

Amazon Allemagne fait une promotion sur le kit de 32 Go (2x16 Go) de mémoire DDR4 Crucial Ballistix 3000 MHz CL15 qui passe à 135,12 € (avec la TVA ajustée). Comptez 4,66 € pour la livraison en France soit un total de 139,78 € livré alors qu'on le trouve ailleurs à plus de 160 €.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre

Sujets relatifs
[Macro optimisation écran ... Suite]
Excel: Macro sans defilement écran: RESOLU
[Unité personnalisée par macro Excel] Résolu
[Résolu] Rogner des captures d'écran avec Word
Pb arrêt de plein ecran lancer par macro
Barre d'outils "Macro" disparue résolu
Mot de passe sur une Macro Excel [résolu]
Assigner une macro à un bouton dans Calc Résolu
Macro inutilisable dans Word (RÉSOLU)
Macro bouton qui descends avec l'écran
Plus de sujets relatifs à [Macro optimisation écran] RESOLU
 > Tous les forums > Forum Bureautique