Lancer macro sur base du résultat d'une cellule (avec formule IF)

Bonjour,

J'ai une drop-down list qui va des cellules fusionnées G27 à O27.

5 choix sont possibles dans mon "data validation", chacun génère un résultat de 1 à 5 dans la cellule R27 sur base de qui est choisi dans le menu déroulant grâce à la formule IF (dans R27 donc).

J'aimerais qu'une macro se lance automatiquement lorsque la valeur de la cellule R27 change.

Pouvez-vous m'aider sur le code nécessaire? Je suis novice en VBA.

Ou alors s'il y a une façon plus simple?

Merci d'avance pour votre aide.

http://www.google.fr/search?q=J%27ai...43.NMGYu5h9P_M

Bonjour rdurupt,

Merci pour le lien, j'ai testé les solutions proposées et j'ai pas mal cherché mais cela ne fonctionne que si je change manuellement la valeur de la cellule R27.
Or dans cette cellule il y a la formule "IF" (Excel en anglais) qui donne un résultat entre 0 et 5 sur base du choix du menu déroulant des cellules fusionnées G27 à O27.

Voici le code que j'ai utilisé:

Code:

---

1 2 3 4 5

Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$R$26" Then Call FinancialDetails End If End Sub

---

Le but de macro c'est de faire apparaître des lignes cachées qui se trouvent en dessous de G27 uniquement si le résultat de la cellule R27 est = à 2,3,4 ou 5 (et de les cacher si le résultat est 1 ou 0)

Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub FinancialDetails()   If Range("R26").Value = "0" Or Range("R26").Value = "1" Then Range("G30,G32,K30,K32:M32,Q30").Select Selection.Locked = True Rows("30:32").Select Selection.EntireRow.Hidden = True Range("G26").Select   ElseIf Range("R26").Value = "2" Or Range("R26").Value = "3" Or Range("R26").Value = "4" Or Range("R26").Value = "5" Then Range("G30,G32,K30,K32:M32,Q30").Select Selection.Locked = False Rows("30:32").Select Selection.EntireRow.Hidden = False Range("G26").Select End If   End Sub

---

Quelqu'un sait s'il y a une façon de faire en sorte que la macro se lance sur base du résultat de la formule? Uniquement lors d'un changement de son résultat donc.
Ou peut-être qu'il y a une autre façon plus simple?


Merci d'avance!

Code:

---

1 2 3 4 5 6 7 8 9 10

With Range("G30,G32,K30,K32:M32,Q30") Select Case Range("R26").Value Case 0 To 1 .Locked = True .EntireRow.Hidden = True Case 2 To 5 .Locked = False .EntireRow.Hidden = False End Select End With

---

Re-bonjour rdurupt,

Merci pour ton code qui simplifie grandement mes "IF, ElseIF", mais mon problème c'est plutôt comment faire en sorte que la macro se lance automatiquement quand le résultat de la cellule R26 change?

• Si je change manuellement sa valeur ça marche
• Si la valeur change via la formule IF (celle d'Excel pas VBA) cela ne marche pas :(

Pour info voici la formule IF de la cellule R26

Code:

---

=IF(G26="","0",IF(G26=Sheet2!M3,1,IF(G26=Sheet2!M4,2,IF(G26=Sheet2!M5,3,IF(G26=Sheet2!M6,4,5)))))

---

Essaye sur l'event suivant :

Code:

---

1 2 3

Private Sub Worksheet_Calculate()   End Sub

---

Salut cerede2000,

Tu veux dire ce code?

Code:

---

1 2 3

Private Sub Worksheet_Calculate() Call FinancialDetails End Sub

---

Excel plante visiblement (comme s'il faisait un loop).


Sans cette partie cela ne faisait rien:

Code:

---

Call FinancialDetails

---

:?

regarde le fichier joint!

Cela marche!

Un très grand MERCI rdurupt!! :D