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

Boutons dans module

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Sarlone
  • 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 !

S'inscrire
S

Sarlone

XLDnaute Occasionnel
Bjr tout le monde
Pb sans doute tout bête
Je voudrais rassembler tous mes boutons dans un Module_Bouton
Quand dans ma feuil_1, je clique sur le bouton nommé Plein_Ecran

Sub Plein_Ecran_Click()
'plein_ecran

If Application.DisplayFullScreen = True Then
Application.DisplayFullScreen = False
Plein_Ecran.Caption = "Plein écran"
Else
Application.DisplayFullScreen = True
Plein_Ecran.Caption = "Afficher les barres"
End If
End Sub


Fonctionne bien qd la procedure est dans la feuille
mais je voudrais qu'elle soit dans le module_bouton

De plus ce bouton peut etre utilisé dans le feuill2, par ex


Comment faire pour que l'action du bouton n'affecte que la fenetre depuis laquelle il a été activé (et que la macro s'en souvienne si je passe en plein ecran dans la feuill_1, que je passe a une autre feuil_2 en ecran normal puis revient a la feuill_1 qui doit donc etre en plein ecran)

Merci pour votre aide
 
Dernière édition:
Trier par date Trier par votes
Re : Boutons dans module

Bonjour sarlone,
Sauf que ce bouton peut etre utilisé dans le feuill2, par ex
Comment faire pour que l'action du bouton n'affecte que la fenetre depuis laquelle il a été activé
Cliquez pour agrandir...
c'est peut-être parce que ton code est sur la feuille
tu dois le mettre dans un module

à+
Philippe

PS: ton fichier avance et j'ai encore d'autres idées nouvelles
 
Vote positif 0 Vote négatif
Re : Boutons dans module

je donne mon obervation:

dans feuil_6, j'ai un ToggleButton (depuis boite outil controle) nommé Plein_Ecran

si je mets la procédure:

Sub Plein_Ecran_Click()
'plein_ecran

If Application.DisplayFullScreen = True Then
Application.DisplayFullScreen = False
Plein_Ecran.Caption = "Plein écran"
Else
Application.DisplayFullScreen = True
Plein_Ecran.Caption = "Afficher les barres"
End If
End Sub

ca fonctionne

mais si je la mets dans un mule nommé module_Boutons
ca ne marche pas

Qqn peut m'aider?

Merci
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Boutons dans module

Bonsoir,
Encore un petit effort, une trentaine de messages encore avant que tu ne fasses passer ton fichier et enfin te soulager !
Quand on va dans les contrées sauvage, il faut emporter une enclume.
Ainsi, quand on rencontre une bête sauvage, on s'en débarrasse pour pouvoir courrir plus vite !
A bon entendeur...
kjin
 
Vote positif 0 Vote négatif
Re : Boutons dans module

Bonjour à tous,

fait précéder le nom de ton bouton par celui de la feuille, ci-dessous avec utilisation du "codename" :
Code: 
[COLOR="Blue"][B]Feuil1[/B][/COLOR].Plein_Ecran.Caption = "Afficher les barres"

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Boutons dans module

Bonjour à tous,
Tout à fait d'accord avec toi Kijn

@ sarlone: tu nous avais déjà fait le même coup dans le fil suivant:
https://www.excel-downloads.com/threads/tableau-a-remplir-dapres-autre-feuille.147121/
ou tu posais un petite question toute simple et bien gentille ( mais comme ici, sans mettre un fichier exemple) et pour laquelle je suis entrain de te faire un travail conséquent (ce n'est pas un reproche)
Si ta question te semble simple, elle ne l'est pas pour tout le monde
Fais au moins l'effort (si effort il y a ) de mettre un exemple lors de ta prochaine question et tu verras la différence au point de vue nombre de post inutiles en moins (un peu comme celui-ci 😀 )


à+
Philippe

PS: tu auras ton autre fichier d'ici la fin de journée je m'y colle sérieusement ................. sauf imprévu
 
Vote positif 0 Vote négatif
Re : Boutons dans module

re
dsl je pensais que le code que j'avais mis suffisait
Pierrot j'ai mis le nom de la feuille mais ca fonctionne pas
Voici donc un fichier test 😉
Merci pour votre aide
j'espère que l'enclume sera moins lourde 😛
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Boutons dans module

Bonjour,

Dans le code de la feuille sur laquelle est le bouton Plein_Ecran :

Code: 
Sub Plein_Ecran_Click()
Call PleinEcr
End sub


Dans le code du module :

Code: 
Sub PleinEcr
If Application.DisplayFullScreen = True Then
Application.DisplayFullScreen = False
Plein_Ecran.Caption = "Plein écran"
Else
Application.DisplayFullScreen = True
Plein_Ecran.Caption = "Afficher les barres"
End If
End Sub

Cordialement
 
Vote positif 0 Vote négatif
Re : Boutons dans module

merci à tous les deux pour ces deux méthodes

ps à Mécano1,il y avait juste à rajouter
Sheets("Trimestre_1"). avant Plein_Ecran.Caption = "Plein écran"
comme l'avait dit Pierrot93
sinon les deux marchent impec

merci encore
A+

Cordialement
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

N
  • Résolu(e)
XL 2010 Mémoriser l'action sur un bouton
2
Réponses
16
Affichages
730
sylvanu
  • Résolu(e)
XL 2013 (RESOLU) Deux modules dans un seul module (syntaxe)
Réponses
2
Affichages
344
chaelie2015
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
633
AtTheOne
V
  • Question Question
Microsoft 365 VBA : faire clignoter une forme
Réponses
7
Affichages
2 K
patricktoulon
P
  • Question Question
Créer plusieurs boutons qui exécute la même macro
Réponses
9
Affichages
1 K
pehrs
P
N
  • Question Question
XL 2016 Cacher certains texbox et bouton par mot de passe
2 3
Réponses
31
Affichages
3 K
Staple1600
D
  • Question Question
XL 2019 Besoin d'aide sur diverses macros
2 3
Réponses
31
Affichages
4 K
darknigthmare
D
D
  • Question Question
Microsoft 365 Obligé à sélectionner un minimum de commande boutons
2
Réponses
15
Affichages
1 K
dubarre
D
W
  • Question Question
XL 2010 Fenêtre avec liste cliquable et bouton créer
Réponses
3
Affichages
1 K
sousou
L
  • Question Question
XL 2019 VBA - Renommer des fichiers avec Name (ancienne et nouvelles valeurs dans une table)
Réponses
5
Affichages
2 K
Dranreb
  • Question Question
Module de classe Boutons Userform
Réponses
7
Affichages
3 K
ChTi160
F
  • Question Question
Impossible déposer données saisies dans feuille Excel.
Réponses
4
Affichages
1 K
FOUQUET Yves
F
C
  • Question Question
XL 2016 Génération "n° chrono" et ajout de données n'existant pas dans RowSource de ComboBox
Réponses
5
Affichages
1 K
CaptainMerlux
C
J
  • Question Question
XL 2013 programmation d'une feuille excel utilisée dans un calcul de préjudices sonores
Réponses
3
Affichages
1 K
Jean pascal
J
S
  • Question Question
XL 2016 Remise à zéro du formulaire
Réponses
0
Affichages
1 K
Sparfell29
S
F
  • Question Question
Autres VBA Fusionner puis envoyer Word avec Outlook
Réponses
0
Affichages
1 K
FOUQUET Yves
F
D
  • Question Question
XL 2019 Aide Canasta
Réponses
0
Affichages
772
dodoy
D
  • Question Question
Changement couleur boutons dans userform
Réponses
3
Affichages
2 K
gourdin
D
  • Question Question
Erreur de compilation dans le module caché de l'userform 7
Réponses
7
Affichages
6 K
davidp
D
A
  • Question Question
[Résolu]Supprimer une ligne entière selon 2 critères
Réponses
7
Affichages
1 K
Paf
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…