XL 2010 Codage VBA

M12

XLDnaute Accro

• 1 Août 2021

• #2

Bonjour
Un test

 

Pièces jointes

• alex100640.xlsm

  14.3 KB · Affichages: 8

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 1 Août 2021

• #3

alex100640 à dit:

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.

Cliquez pour agrandir...

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

VB:

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

 

Pièces jointes

• alex.xlsm

  20.6 KB · Affichages: 5

Dernière édition: 1 Août 2021

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Août 2021

• #4

Bonjour alex100640, M12, Jacky67,

Ceci suffit :

VB:

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+

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Barbatruc

• 1 Août 2021

• #5

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!

 

Vote positif 0 Vote négatif

A

alex100640

Guest

• 2 Août 2021

• #6

Merci beaucoup pour votre aide.
ça fonctionne

 

Vote positif 0 Vote négatif

A

alex100640

Guest

• 2 Août 2021

• #7

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Août 2021

• #8

Bonsoir alex100640,

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

VB:

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

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

VB:

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

2. Dans une Worksheet_Activate en Feuil4 on écrira :

VB:

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

A+

 

Dernière édition: 2 Août 2021

Vote positif 0 Vote négatif

A

alex100640

Guest

• 2 Août 2021

• #9

merci beaucoup

 

Vote positif 0 Vote négatif