Faire apparaitre des lignes

REGVAR30 · 7 Mai 2010

Faire apparaitre des lignes [ Résolu ]

Bonjour,

Voici ma question :
En entrant un nombre ( 1, 2 ou 3) dans une cellule on obtient l'affichage de certaines lignes que j'avais masquées précédemment.

Exemple :
je rentre 1 dans la cellule A2
les lignes 12 et 13 apparaissent
je rentre 2 dans la cellule A2
les lignes 12, 13, 14 et 15 apparaissent
je rentre 3 dans la cellule A2
les lignes 12 et 15 apparaissent.

J'espère avoir été clair, merci d'avance

Ubot303 · 7 Mai 2010

Re : Faire apparaitre des lignes

Bonjour,

Connais-tu le VB et les macros?

Pierrot93 · 7 Mai 2010

Re : Faire apparaitre des lignes

Bonjour,

regarde le code ci-dessous, à placer dans le module de la feuille concernée, click droit sur l'onglet => visualiser le code :

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
If Target.Value = 1 Then
    Rows("12:13").Hidden = False
    ElseIf Target.Value = 2 Then Rows("12:15").Hidden = False
    ElseIf Target.Value = 3 Then Range("12:12,15:15").EntireRow.Hidden = False
End If
End Sub

bonne fin d'après midi
@+

Ubot303 · 7 Mai 2010

Re : Faire apparaitre des lignes

Dans un fichier avec un bouton :

PS : on peut enlever le bouton bien sur en mettant la macro évenementielle de Pierrot (Salut Pierrot)

REGVAR30 · 7 Mai 2010

Re : Faire apparaitre des lignes

Pierrot93 à dit:
Bonjour,

regarde le code ci-dessous, à placer dans le module de la feuille concernée, click droit sur l'onglet => visualiser le code :

Code:

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$2" Then Exit Sub If Target.Value = 1 Then Rows("12:13").Hidden = False ElseIf Target.Value = 2 Then Rows("12:15").Hidden = False ElseIf Target.Value = 3 Then Range("12:12,15:15").EntireRow.Hidden = False End If End Sub

bonne fin d'après midi
@+

Bonsoir,

Merci beaucoup. Je ne connais ni le VB ni les macros mais je suis arrivée a inclure le code.
En le testant j'ai constaté que les ligne affichées ne se 're'masquaient pas lorsqu'on changeait de chiffre ou que l'on effaçait la cellule A2.
Est-ce possible de le faire ?

Merci encore à toi et à Ubot303 pour vos réponses

@+ bonne soirée

Pierrot93 · 8 Mai 2010

Re : Faire apparaitre des lignes

Bonjour,

modifie peut être ainsi, si j'ai bien compris :

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
If Target.Value = 1 Then
    Rows("12:13").Hidden = False
    ElseIf Target.Value = 2 Then Rows("12:15").Hidden = False
    ElseIf Target.Value = 3 Then Range("12:12,15:15").EntireRow.Hidden = False
[B][COLOR="Blue"]Else
    Rows("12:15").Hidden = True[/COLOR][/B]
End If
End Sub

bonne journée
@+

REGVAR30 · 8 Mai 2010

Re : Faire apparaitre des lignes [ Résolu ]

Bonjour,

Je te remercie Pierrot, c'est tout à fait ce que je cherche.

@+
Bon WE

Faire apparaitre des lignes

REGVAR30

Guest

Ubot303

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Ubot303

XLDnaute Occasionnel

Pièces jointes

REGVAR30

Guest

Pierrot93

XLDnaute Barbatruc

REGVAR30

Guest

Discussions similaires

Faire apparaitre des lignes

REGVAR30

Guest

Ubot303

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Ubot303

XLDnaute Occasionnel

Pièces jointes

REGVAR30

Guest

Pierrot93

XLDnaute Barbatruc

REGVAR30

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency