Un bouton pour plusieurs macros

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2009

• #16

Re : Un bouton pour plusieurs macros

Re


Pour soigner mon obsession de la ligne unique 😀

Ma contribution à la contribution de Pierrejean (bonsoir 😉 et bravo)

Code:

Public etat As Integer

Code:

Private Sub CommandButton1_Click()
coul = Array(3, 45, 4, -4142): etat = etat + 1: If etat = 4 Then etat = 0
With Range("A1:A3"): .Interior.ColorIndex = xlNone: .Cells(1, 1).Offset((etat + 1) - 1).Interior.ColorIndex = coul(etat): End With
End Sub

PS: c'est pas trés lisible mais je fais semblant de croire
que le code tient sur 2 lignes

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 25 Octobre 2009

• #17

Re : Un bouton pour plusieurs macros

Re,

Stapple, as-tu tes 3 couleurs avec ton Bouton à effet basculant ?
Un autre exemple avec gabarit.

 

Pièces jointes

• 3feux.zip

  4.9 KB · Affichages: 40

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 25 Octobre 2009

• #18

Re : Un bouton pour plusieurs macros

Re

Salut Lii 🙂

Pour JM

En 1 ligne avec la complicité des MFC

 

Pièces jointes

• bouton_feux.zip

  8.2 KB · Affichages: 31
• bouton_feux.zip

  8.2 KB · Affichages: 32
• bouton_feux.zip

  8.2 KB · Affichages: 33

Dernière édition: 25 Octobre 2009

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2009

• #19

Re : Un bouton pour plusieurs macros

Bonsoir à tous


J'ai echoué, je suis passé à l'orange

Code:

Private Sub ToggleButton1_Click()
ToggleButton1.BackColor = Switch(ToggleButton1.Value, RGB(255, 0, 0), ToggleButton1.Value = False, RGB(0, 255, 0), IsNull(ToggleButton1.Value), RGB(255, 191, 0))
Debug.Print ToggleButton1
End Sub

Merci Pierrejean de ta sollicitude

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Octobre 2009

• #20

Re : Un bouton pour plusieurs macros

Re

encore plus court
avec toujours MFC et en plus une cellule (Ici B1)

 

Pièces jointes

• bouton_feux_a.zip

  8.1 KB · Affichages: 39

Vote positif 0 Vote négatif

D

dam31

Guest

• 26 Octobre 2009

• #21

Re : Un bouton pour plusieurs macros

Et beh vous êtes productifs 🙂
Par contre je dois bel et bien utiliser plusieurs macros à cause de mes professeurs 😀😀😀😀😀
C'est un exercice et je dois suivre les consignes mais bon je galère toujours 😡😡😡

En tout cas je remercie tout le monde pour votre aide

Bonne aprés-midi

Cordialement Damien​

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 26 Octobre 2009

• #22

Re : Un bouton pour plusieurs macros

Re...

dam31 à dit:

(...) je dois bel et bien utiliser plusieurs macros à cause de mes professeurs 😀😀😀😀😀
C'est un exercice et je dois suivre les consignes (...)

Cliquez pour agrandir...

Parfait !
Ce n'est donc pas à nous de chercher...
Je m'en doutais un peu, ayant vu la soudaine prolifération de feux multicolores qu'il faut éteindre et allumer depuis deux ou trois jours.​

ROGER2327
#1984

 

Vote positif 0 Vote négatif

D

dam31

Guest

• 26 Octobre 2009

• #23

Re : Un bouton pour plusieurs macros

Bin sa fais une semaine que je me prend la tête avec ce satané feu 😡😡

Je ne suis pas en école informatique mais en génie civil donc c'est secondaire comme matière. De plus dans me vie professionnelle je ne créerai aucun programme (les informaticiens sont la pour sa)🙄

De plus je ne demande pas qu'on me fasse une macro toute prête mais juste qu'on m'explique la démarche pour contrôler 4 macros avec un seul bouton 😉

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Octobre 2009

• #24

Re : Un bouton pour plusieurs macros

Re

J'avais deja des doutes quant a l'association de génie et militaire
Voila que j'en aurais pour génie et civil !!!

Une petite idée (pas géniale je le reconnais):
creer une 5eme macro qui lance les 4 autres genre

Code:

sub macro5()
call macro1
....
call macro4
End sub

et affecter la macro5 au bouton

On n'a pas encore pensé a creer une ecole de génie informatique ( avec Imad lahoud comme directeur par exemple ) ?

 

Vote positif 0 Vote négatif

D

dam31

Guest

• 26 Octobre 2009

• #25

Re : Un bouton pour plusieurs macros

pierrejean à dit:

Re


Une petite idée (pas géniale je le reconnais):
creer une 5eme macro qui lance les 4 autres genre


On n'a pas encore pensé a creer une ecole de génie informatique ( avec Imad lahoud comme directeur par exemple ) ?

Cliquez pour agrandir...

C'est pourtant exactement ce que je dois faire 😀😀😀😀

Les IUT génie informatique existe bel et bien 😉

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Octobre 2009

• #26

Re : Un bouton pour plusieurs macros

Re

petit rappel

Call macro1 consiste a lancer la sub macro1()

 

Vote positif 0 Vote négatif

D

dam31

Guest

• 26 Octobre 2009

• #27

Re : Un bouton pour plusieurs macros

Voila la partie qui me pose problème la macro 5 qui gère la globalité ne fonctionne pas et je ne comprend pas pourquoi.
Pourtant cela me semble logique 😀

Sub feu() 'gere le feu en fonction de la valeur de "J1"

If ("J1") = 0 Then

Call vert

If ("J1") = 1 Then

Call orange

If ("J1") = 2 Then

Call rouge

If ("J1") = 3 Then

Call éteindre

End If
End If
End If
End If


End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Octobre 2009

• #28

Re : Un bouton pour plusieurs macros

Bonsoir à tous,

modifie peut être les tests ainsi :

Code:

If Range("J1").Value = 0 Then

bonne soirée
@+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2009

• #29

Re : Un bouton pour plusieurs macros

Bonjour à tous

Pour mon plaisir 😉 et pour piste à suivre ou pas ...

Code:

Option Explicit
Sub bouton()
Dim i
i = InputBox(" 1,2,3 ou 4?")
Run Switch(i = 1, "Macro1", i = 2, "Macro2", i = 3, "Macro3", i = 4, "Macro4")
End Sub

Code:

Sub Macro1()
MsgBox "Macro1"
End Sub
Sub Macro2()
MsgBox "Macro2"
End Sub
Sub Macro3()
MsgBox "Macro3"
End Sub
Sub Macro4()
MsgBox "Macro4"
End Sub

 

Vote positif 0 Vote négatif

D

dam31

Guest

• 26 Octobre 2009

• #30

Re : Un bouton pour plusieurs macros

Sa marche !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Mon code :

Sub feu() 'gere le feu en fonction de la valeur de "J1"

If Range("J1").Value = 0 Then

Call vert

Else
If Range("J1").Value = 1 Then

Call orange

Else
If Range("J1").Value = 2 Then

Call rouge

Else
If Range("J1").Value = 3 Then

Call éteindre

End If
End If
End If
End If

End Sub

Cliquez pour agrandir...

Merci à tous 😱😱😱😱😱

 

Vote positif 0 Vote négatif