masquer des lignes

[jojojojojojo]

bonjour à tous

j'aimerais en fait masquer des lignes et les faire apparâitre seulement si on écrit quelque chose dans une cellule.

je joins un fichier pour explication.

il y a un tableau feuill1, quand j'écrit le nom d'un centre en B4, je veux que la ligne 8 sur la feuil 2 soit apparente. En revanche si j'enlève ce qu'il y a dans la case B4, alors la ligne 8 de la feuille 2 soit masquée avec le bouton.


Est ce possible?

 

[youky(BJ)]

Re : masquer des lignes

Salut bien,
Fait 1 click du bouton droit de la souris sur "Feuil1" et visualiser le code
Copie tout dans la fenêtre blanche

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$4" Then
With Sheets("Feuil2")
If Target.Value = "" Then
.Rows(8).Hidden = True: .CommandButton1.Visible = False
Else
.Rows(8).Hidden = False: .CommandButton1.Visible = True
End If
End With
End If
End Sub

 

[jojojojojojo]

Re : masquer des lignes

merci bien c'est ce que je voulais.

a+

 

[jojojojojojo]

Re : masquer des lignes

J'oubliais un truc, si au lieu d'une ligne, je dois supprimer deux lignes qui se suivent, que dois-je rajouter dans le code?

 

[Pierrot93]

Re : masquer des lignes

Bonjour jojo, youki

essaye ainsi pour les lignes 8 et 9 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$4" Then
    With Sheets("Feuil2")
        .Rows("8:9").Hidden = Target.Value = ""
        .CommandButton1.Visible = Not Target.Value = ""
    End With
End If
End Sub

bonne journée
@+

 

[youky(BJ)]

Re : masquer des lignes

Salut
voici un exemple

n = 8
Rows(n).Resize(2).Hidden = True

 

[jojojojojojo]

Re : masquer des lignes

merci

a+