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

Un bouton pour plusieurs macros

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

dam31

Guest
Bonsoir tout le monde,​

Je dois créer une macro qui fait fonctionner un feu tricolore dessiné sur excel.

Pour cela j'ai crée :

- la macro "vert" qui colore la case du bas en vert
- la macro "orange" qui éteint le vert et allume la case du milieu en orange
- la macro "rouge" qui éteint l'orange et allume le rouge (en haut)
- la macro 'éteint" qui éteint tout.

Je veux contrôler le feu par l'intermédiaire d'un seul bouton
=> 1er clic vert => 2 ème orange => 3 ème rouge => 4 ème éteint => 5 ème vert => etc

Mon idée est donc de créer une macro "contrôle" qui appelle les 4 autres en fonction de l'état du feu :
1er clic => la variable état=1 alors j'appelle la macro vert
2 ème clic => la variable état=2 alors j'appelle la macro orange
etc

A la fin après le 4 ème clic je vais faire une boucle qui repart au début
Le problème étant que je n'arrive pas à créer la macro "contrôle"
Donc j'espère que vous pourrez m'aider, en vous remerciant d'avance

Cordialement Damien​
 
Trier par date Trier par votes
Re : Un bouton pour plusieurs macros

Bonsoir dam31
Code: 
[COLOR="DarkSlateGray"]Sub Zonedetexte1_QuandClic()
   Select Case (Range("A3").Interior.ColorIndex = 4) + _
      2 * (Range("A2").Interior.ColorIndex = 45) + _
      4 * (Range("A1").Interior.ColorIndex = 3)
   Case 0: Range("A1:A2").Interior.ColorIndex = xlNone
      Range("A3").Interior.ColorIndex = 4 '50
   Case -1: Range("A1,A3").Interior.ColorIndex = xlNone:
      Range("A2").Interior.ColorIndex = 45
   Case -2: Range("A2:A3").Interior.ColorIndex = xlNone:
      Range("A1").Interior.ColorIndex = 3
   Case Else: Range("A1:A3").Interior.ColorIndex = xlNone
   End Select
End Sub[/COLOR]
Voyez la mise en œuvre dans le classeur joint.
(A adapter pour Excel2007)​
ROGER2327
#1973
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Un bouton pour plusieurs macros

Bonsoir Damien

pourquoi créer 4 macros ? une seule devrait suffire.


Amicalement
Bonsoir Roger , je suis arrivé un peu tard.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Un bouton pour plusieurs macros

Bonsoir,

Ci-joint une autre solution

Code: 
Sub Test()
Range("B7").Value = Range("B7").Value + 1
If Range("B7").Value = 4 Then Range("B7").Value = 0
End Sub

Ce code utilise une MFC dans la feuille.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Un bouton pour plusieurs macros

Bonsoir à tous

Pour se joindre à la fête


a partir du code de Papounet

En utilisant "mal" Switch
Code: 
Private Sub CommandButton1_Click()
If Feu = 3 Then Feu = 0 Else Feu = Feu + 1
Label1.BackColor = Switch(Feu = 0, &HFFFFFF, Feu = 1, &HFFFFFF, Feu = 2, &HFFFFFF, Feu = 3, &HFF&)
Label2.BackColor = Switch(Feu = 0, &HFFFFFF, Feu = 1, &HFFFFFF, Feu = 2, &H80C0FF, Feu = 3, &HFFFFFF)
Label3.BackColor = Switch(Feu = 0, &HFFFFFF, Feu = 1, &HC000&, Feu = 2, &HFFFFFF, Feu = 3, &HFFFFFF)
End Sub
 
Vote positif 0 Vote négatif
Re : Un bouton pour plusieurs macros

Bonjour,

Super élégante ta solution, JM (tu as la nuit productive)!
Je ne connaissais pas l'instruction"Switch", mais nul doute que je saurai l'utiliser à la première occasion.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Un bouton pour plusieurs macros

Bonjour à tous


Bonjour Papou-net


Je pense qu'en combinant Switch et la logique de ROGER2327 on peut réduire encore le code (mais je n'y suis pas parvenu)


C'est pourquoi j'ai appliqué Switch à ton code 😉 et que je disais "mal" utiliser Switch. car j'ai l'intuition (mais me trompe-je ?) qu'on peut réduire la chose à une seule ligne de code.
 
Vote positif 0 Vote négatif
Re : Un bouton pour plusieurs macros

Bonjour,

avec un "SpinButton" (pour un retour éventuel) :
Code: 
Private Sub SpinButton1_Change()
  [A1:A3].Interior.ColorIndex = xlNone
  If SpinButton1 = 4 Then SpinButton1 = 0
  Select Case SpinButton1
  Case 1: [A3].Interior.ColorIndex = 4
  Case 2: [A2].Interior.ColorIndex = 45
  Case 3: [A1].Interior.ColorIndex = 3
  End Select
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Un bouton pour plusieurs macros

Bonjour Lii

EDITION: code adapté pour un ToggleButton, sur une feuille d'un classeur
Code: 
Private Sub ToggleButton1_Click()
    With ToggleButton1
        If .Value Then
            ' rouge
            .BackColor = RGB(255, 0, 0)
            .Caption = Chr(160)
            Else
            ' vert
            .BackColor = RGB(0, 255, 0)
        End If
    End With
End Sub


Lii: Ton message me fait penser au ToggleButton et son TripleState

et la maison mère nous disait

http://support.microsoft.com/kb/829070
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Un bouton pour plusieurs macros

Re


Désolé j'oubliais d'honorer mon Switch 😀

Code: 
Private Sub ToggleButton1_Click()
With ToggleButton1
.BackColor = Switch(.Value = True, RGB(255, 0, 0), .Value = False, RGB(0, 255, 0))
End With
End Sub
 
Vote positif 0 Vote négatif
Re : Un bouton pour plusieurs macros

Re


Lii: crois-tu comme moi que l'on peut réussir à faire "tenir" le code de ce feu tricolore sur une seule ligne

J'en ai rêve cette nuit, depuis je cherche mais je sèche.


PS; je sais c'est grave de rêver en VBA, mais c'est inoffensif pour ma santé et pour la société. 😛
 
Vote positif 0 Vote négatif
Re : Un bouton pour plusieurs macros

Bonjour à tous
J'ai cherché des trucs avec Switch(), sans grand résultat :
Code: 
[COLOR="DarkSlateGray"]Sub Zonedetexte1_QuandClic__()
Dim u
   u = Switch( _
      [A3].Interior.ColorIndex = 4, Array(xlNone, 45, xlNone), _
      [A2].Interior.ColorIndex = 45, Array(3, xlNone, xlNone), _
      [A1].Interior.ColorIndex = 3, Array(xlNone, xlNone, xlNone), _
      [A1:A3].Interior.ColorIndex = -4142, Array(xlNone, xlNone, 4))
   [A1].Interior.ColorIndex = u(0)
   [A2].Interior.ColorIndex = u(1)
   [A3].Interior.ColorIndex = u(2)
End Sub[/COLOR]
Dommage qu'on ne puisse pas écrire :
Code: 
[COLOR="DarkSlateGray"]Sub Zonedetexte1_QuandClic__()
      [A1:A3].Interior.ColorIndex  = Switch( _
      [A3].Interior.ColorIndex = 4, Array(xlNone, 45, xlNone), _
      [A2].Interior.ColorIndex = 45, Array(3, xlNone, xlNone), _
      [A1].Interior.ColorIndex = 3, Array(xlNone, xlNone, xlNone), _
      [A1:A3].Interior.ColorIndex = -4142, Array(xlNone, xlNone, 4))
End Sub[/COLOR]
ROGER2327
#1976
 
Vote positif 0 Vote négatif
Re : Un bouton pour plusieurs macros

bonjour a tous (encore que du tres beau monde !!)

Ma contribution

Code: 
Public etat As Integer
Private Sub CommandButton1_Click()
coul = Array(3, 45, 4, -4142)
etat = etat + 1
If etat = 4 Then etat = 0
Range("A1:A3").Interior.ColorIndex = xlNone
Range("A" & etat + 1).Interior.ColorIndex = coul(etat)
End Sub
 

Pièces jointes

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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Question Question
XL pour MAC Créer un tirage au sort
Réponses
5
Affichages
1 K
moket07
M
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
521
sousou
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
534
zendb
Z
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
683
Lu76Fer
M
  • Résolu(e)
XL 2013 Gestion clic bouton UserForm
2
Réponses
23
Affichages
2 K
M.Ben
M
  • Résolu(e)
XL 2016 Démo pour positionner un UserForm ou ContextMenu sur la grille (Toute version)
10 11 12
Réponses
178
Affichages
10 K
TooFatBoy
B
  • Résolu(e)
XL 2019 Créer une macro de vérification de présence fichiers
Réponses
4
Affichages
794
blingo67
B
F
  • Question Question
XL 2016 colorer des dates en fonction d'aujourd'hui
Réponses
3
Affichages
820
fanny83
F
P
  • Question Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
747
Pimpon974
P
A
  • Question Question
XL 2016 besoin d'aide pour une macro pour Userform
2 3
Réponses
44
Affichages
3 K
AlexandrB
A
H
  • Résolu(e)
XL 2016 Affecter 2 choix pour un bouton
Réponses
14
Affichages
1 K
_Hanna_
H
R
  • Résolu(e)
Microsoft 365 Association classes de valeurs.
Réponses
7
Affichages
1 K
JHA
J
R
  • Résolu(e)
XL 2019 VBA - Simplifier un code fait par enregistrement
2 3
Réponses
33
Affichages
3 K
Staple1600
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
823
Cheyenne_2021
C
D
  • Question Question
XL 2019 Besoin d'aide sur diverses macros
2 3
Réponses
31
Affichages
4 K
darknigthmare
D
B
  • Question Question
XL 2019 Macros renommer plusieurs feuilles de plusieurs fichiers Excel
Réponses
3
Affichages
2 K
Bastien43
B
D
  • Question Question
Autres Un exemple de résultats pour un examen de secourisme
Réponses
7
Affichages
1 K
delta6x
D
M
  • Résolu(e)
XL 2013 nombre de ligne dans un tableau en fonction de la valeur d'une cellule
Réponses
8
Affichages
2 K
mdelbois
M
L
  • Résolu(e)
XL 2019 Copier/Coller valeur + couleur d'un classeur à un autre
Réponses
7
Affichages
2 K
Etoto
F
  • Question Question
XL 2016 Macros pour imprimer en PDF selon un filtre
Réponses
0
Affichages
1 K
filibertdu974
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…