lancer une macro en fonction de la valeur d'une cellule

Bonjour à tous !

Je vous explique, j'ai fait une liste déroulante à laquelle j'ai affecté une macro qui en lance une autre pour permettre le déplacement sur la feuille.
Problème avec ce que j'ai tapé, (suite de if), la macro ne vérifie que la dernière valeur testée (logique en mem temps!).
Je cherche à savoir s'il existe une fonction "ou" ou une autre technique pour lancer la macro que je veux en fonction de la valeur de cellule...

Je vous mets mon code qui marche pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Macro81() Range("A79").Activate If Range("A79").Value = 10 Then Application.Run "'xxxxxxxxxx.xls'!Macro80" Else Range("A1").Select End If If Range("A79").Value = 9 Then Application.Run "'xxxxxxxxxx.xls'!Macro82" Else Range("A1").Select End If End Sub

---

Si vous avez une idée...

Merci beaucoup !!!!!

Salut arkorrigan

Citation:

---

Je cherche à savoir s'il existe une fonction "ou" ou une autre technique pour lancer la macro que je veux en fonction de la valeur de cellule...

---

Oui, il existe une fonction logique OR en VBA, mais si tu expliquais où le mettre au lieu de donner un code qui ne fonctionne pas, on pourrait mieux t'aider!!
A+

OK, autant pour moi Gorfael !

Alors je voudrais la placer entre les 2 if ... sachant qu'il y a 8 valeurs à tester...

Mais je sais pas si ca peut le faire

Bonjour,

A tester

Code:

---

1 2 3 4 5 6 7 8

Sub Macro81() Select Case Range("A7") Case 10 Application.Run "'xxxxxxxxxx.xls'!Macro80" Case 9 Application.Run "'xxxxxxxxxx.xls'!Macro82" End Select End Sub

---

changement de code (pour un nombre de cas plus élevé)

Bonjour,
j'aurais plutôt dis comme gorfael, c'est à dire en utilisant or

Code:

---

1 2 3 4 5 6 7 8

Sub Macro81() Range("A79").Activate If Range("A79").Value = 10 or Range("A79").Value = 9 or ... Then Application.Run "'xxxxxxxxxx.xls'!Macro80" Else Range("A1").Select End If End Sub

---

Cordialement

EDIT : Totalement faux (merci fring), donc oublie ce message. ;)

Bonjour tlm,

Papimcha, analyse ce que tu proposes.
Peu importe si la cellule est égale à 10 ou 9 ou 8 ou ... tu exécutes la même macro, or ce n'est pas ce qui est demandé ;)

La solution avec Select Case est la bonne.

Petite remarque, il faut que le classeur xxxxxxxx.xls soit préalablement ouvert, sinon ça va couiner

Oh oui, :oops:
Je croyais que c'était la même macro à exécuter. A lire de travers, voila ce qui arrive. :aie:

bonjour,

si les possibilité ne sont pas trop nombreuses, on pourrais proceder comme suit:

Code:

---

1 2 3 4 5 6 7 8

'Exemple: '1. Construire tableau avec les huit possibilité dim tabMacro tabmacro=array("macro1","macro2","macro3",...)   '2.Lancer la macro Application.run tabmacro(range("A79").value)

---

On lancerais donc une macro par rapport à la valeur contenue dans la cellule.

merci à vous tous !

En mixant vos propositions j'ai trouvé la soluce !
celle de Ordonc est la plus efficace !!!!