exécution de boucle de macro

Bonjour,

je souhaiterais générer une boucle qui m'éxécute plusieurs maccros différentes suivant une ou plusieurs variables.

par exemple voici mon programme actuel :

Code:

---

1 2 3 4 5

If CB_GEN.Value = True And CB_POW_GEN.ListIndex = 0 Then Application.Run ("Macro1000") If CB_GEN.Value = True And CB_POW_GEN.ListIndex = 1 Then Application.Run ("Macro1001") If CB_GEN.Value = True And CB_POW_GEN.ListIndex = 2 Then Application.Run ("Macro1002") If CB_GEN.Value = True And CB_POW_GEN.ListIndex = 3 Then Application.Run ("Macro1003")

---

Ces lignes de programmes sont celle que je met sur les userform (click button ou object button pour exécuter mes tâches)

Je voudrais faire juste une ligne de programme pour limiter le texte du programme.

Et si je souhaite faire varier la première variable et la deuxième variables quel serait le programme à faire?

Hello,

as-tu testé :

Code:

---

1 2 3

If CB_GEN.Value = True Then Application.Run ("Macro100" & CB_POW_GEN.ListIndex ) End If

---

sinon, il y a encore plus "propre"

Code:

---

1 2 3

If CB_GEN.Value = True Then Call MaSub( CB_POW_GEN.ListIndex ) End If

---

avec

Code:

---

1 2 3 4

Sub MaSub(byval POW_GEN) ' ton code ici   End Sub

---

Merci pour cette aide.

j'aimerais pouvoir générer un code à plusieurs variables dont une variable a pour état soit true ou false, une autre variable dans une liste et une autre ayant un état 1 ou 0 et selon les états ca exécute une maccro.

donc c'est selon le choix de l'utilisateur je voudrais solutions possibles.

un exemple :

Code:

---

1 2 3 4 5 6 7

If CB_TY_SYS.ListIndex = 0 And CB_TY_SERVO.ListIndex = 0 And OB_NBPUMP1 = True And CB_HEATER = True Then Application.Run ("Macro1")   If CB_TY_SYS.ListIndex = 0 And CB_TY_SERVO.ListIndex = 1 And OB_NBPUMP1 = True And CB_HEATER = True Then Application.Run ("Macro2")   If CB_TY_SYS.ListIndex = 0 And CB_TY_SERVO.ListIndex = 0 And OB_NBPUMP1 = True And CB_HEATER = False Then Application.Run ("Macro3")   If CB_TY_SYS.ListIndex = 0 And CB_TY_SERVO.ListIndex = 1 And OB_NBPUMP1 = True And CB_HEATER = False Then Application.Run ("Macro4")

---

re,
il ne faut pas s'obstiner ...
en terme de programmation, il est plus propre d'utiliser des arguments plutôt que de démultiplier du code.

Code:

---

1 2 3

If CB_TY_SYS.ListIndex = 0 And OB_NBPUMP1 = True Then Call MaMacro(CB_TY_SERVO.ListIndex, CB_HEATER) End If

---

ce qui te fait un doublet d'arguments ..
et tout mettre dans une procédure

Code:

---

1 2 3

Sub MaMacro(byval servo, byval heater)   End Sub

---

Après plusieurs essais, je n'arrive pas à réaliser l'action voule.

Je m'explique, ce je veux est selon la valeur des 2 arguments, ca m'exécute des maccros différentes, mais j'y arrive pas pas avec ce code :'(.

j'ai donnée un exemple avec 2 arguments cela marche avec x arguments?

J'aimerais des précisions.

merci.