Discussion :

[arkorrigan]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!!!

[Gorfael]

Salut arkorrigan

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+

[arkorrigan]

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

[OrDonc]

Bonjour,

A tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é)

[papimcha]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[fring]

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

[papimcha]

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

[mayekeul]

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[arkorrigan]

merci à vous tous !

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