Masquer les lignes 44 - 48 si ou 49-77 si...

[claire56000]

Bonjour,
j 'ai besoin d'aide pour un doc de travail.
Dans ma feuille excel, j'ai un menu déroulant sur ma cellule D14 avec comme choix : P.C. et D.T.
Je souhaiterai que quand P.C. est sélectionné, les lignes 49 à 77 n'apparaissent plus et que quand D.T. est sélectionné ce soit les lignes 44 à48 qui disparaissent.
Il faut que les lignes disparraisent car je n'ai pas assez de place sur ma feuille pour toutes, je ne veux pas juste masquer l'ecriture.
Est ce possible et si Oui, pouvvez vous m'aider ?

Merci d'avance.
Pour info : je n'ai jamais créé de macro mais il faut bien commencé un jour !

 

[JCGL]

Re : Masquer les lignes 44 - 48 si ou 49-77 si...

Bonjour à tous,

Dans le code la feuille :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Columns("A:A").EntireRow.Hidden = False
    If Target.Address = "$D$14" Then
        If Range("D14").Value = "P.C." Then Rows("49:77").EntireRow.Hidden = True
        If Range("D14").Value = "D.T." Then Rows("44:48").EntireRow.Hidden = True
    End If
    Range("D14").Select
End Sub

A + à tous

 

[Efgé]

Re : Masquer les lignes 44 - 48 si ou 49-77 si...

Bonjour claire56000, Bonjour JCGL 🙂,
Une autre façon, et surtout pour saluer l'ami JC.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$14" Then
        Rows("49:77").Hidden = Target.Value = "P.C."
        Rows("44:48").Hidden = Target.Value = "D.T."
    End If
End Sub

Cordialement

 

[JCGL]

Re : Masquer les lignes 44 - 48 si ou 49-77 si...

Bonjour à tous,
Salut FG,

Joli code raccourci...

A++ l'ami
A + à tous