XL 2010 Codage VBA

[alex100640]

Bonjour,

Je vous demande de l'aide suite à un projet professionnel que je doit réaliser.

Je n'arrive pas à masquer des lignes d'une feuille EXCEL en fonction d'une valeur d'une cellule.

Je voudrais masquer les lignes 130 et 132 si la cellule G127 est égale à 1.
Masquer la ligne 132 si la cellule G127 est égale à 2.
Masquer la ligne 130 si la cellule G127 est égale à 3.

Sachant que la valeur de la cellule G127 est calculé suite à une zone de liste déroulante avec 3 choix possibles.

Merci d'avance pour vo réponse.

 

[M12]

Bonjour
Un test

 

[Jacky67]

Bonjour,

Je vous demande de l'aide suite à un projet professionnel que je doit réaliser.

Je n'arrive pas à masquer des lignes d'une feuille EXCEL en fonction d'une valeur d'une cellule.

Je voudrais masquer les lignes 130 et 132 si la cellule G127 est égale à 1.
Masquer la ligne 132 si la cellule G127 est égale à 2.
Masquer la ligne 130 si la cellule G127 est égale à 3.

Sachant que la valeur de la cellule G127 est calculé suite à une zone de liste déroulante avec 3 choix possibles.

Merci d'avance pour vo réponse.

Bonjour,
Si le VBA est autorisé
Dans le module de la feuille en question

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$G$127" Then Exit Sub
    Application.ScreenUpdating = False
    Rows("130:132").Hidden = False
    Select Case Target.Value
    Case 1
        Range("130:130, 132:132").EntireRow.Hidden = True
    Case 2
        Rows(132).Hidden = True
    Case 3
        Rows(130).Hidden = True
    End Select
End Sub

 

[job75]

Bonjour alex100640, M12, Jacky67,

Ceci suffit :

Private Sub Worksheet_Change(ByVal Target As Range)
Rows(130).Hidden = [G127] = 1 Or [G127] = 3
Rows(132).Hidden = [G127] = 1 Or [G127] = 2
End Sub

A+

 

[dysorthographie]

Bonjour,
Un if évalue si une expression est vrai ou fausse ; donc comme l'a démontré job75 autant utiliser l'expression elle même pour masquer/afficher la ligne!

 

[alex100640]

Merci beaucoup pour votre aide.
ça fonctionne

 

[alex100640]

J'aurai une dernière question.

Je suis sur la feuille 4 et j'aimerai masquer les ligne 98 à 101 de cette page si la cellule I127 de la feuille 1 est égale à 3.

 

[job75]

Bonsoir alex100640,

Mettez ce code où vous voulez (mais plutôt dans une Worksheet_Change en Feuil1) :

Sheets("Feuil4").Rows("98:101").Hidden = Sheets("Feuil1").[I127] = 3

Edit : 1. Dans une Worksheet_Change en Feuil1 on écrira :

Sheets("Feuil4").Rows("98:101").Hidden = [I127] = 3

2. Dans une Worksheet_Activate en Feuil4 on écrira :

Rows("98:101").Hidden = Sheets("Feuil1").[I127] = 3

A+

 

[alex100640]

merci beaucoup