Discussion :

[Tomapaco]

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.

[Invité]

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

[Tomapaco]

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 :

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

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 :

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

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!

[Invité]

Code :

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

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

[Tomapaco]

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 :

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

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

[cerede2000]

Essaye sur l'event suivant :

Code :

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

1
2
3
Private Sub Worksheet_Calculate()
 
End Sub

[Invité]

regarde le fichier joint!