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

claire56000 · 4 Mai 2011

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 · 4 Mai 2011

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

Bonjour à tous,

Dans le code la feuille :

Code:

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é · 4 Mai 2011

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.

VB:

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 · 4 Mai 2011

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

Bonjour à tous,
Salut FG,

Joli code raccourci...

A++ l'ami
A + à tous

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

claire56000

XLDnaute Nouveau

JCGL

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Discussions similaires

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

claire56000

XLDnaute Nouveau

JCGL

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency