Discussion :

[Estimea]

Bonjour Forum,

J'ai besoin de votre aide et expertise pour masquer et afficher des lignes et colonnes de deux façon différente.

1. Je souhaite masquer/afficher la colonne C en cliquant sur la cellule D1 et masquer/afficher la colonne H en cliquant sur la cellule I1

2. Je souhaite masquer/afficher Les lignes produit en jaune en passant avec la souris sur le nom de chaque client. Exemple : Je passe ma souris sur le nom Martin et les lignes 9 à 12 s'affichent, je déplace ma souris et celles-ci se masque (Je sais que c'est possible avec les label mais je n'ai pas les connaissances pour les mettre en application)

En vous remerciant par avance pour votre précisieuce aide.

Cordialement,

[pijaku]

Bonjour Estimea, le Forum,
Le plus facile à réaliser est le 1- : masquer/Afficher une colonne au clic sur une cellule.
Pour cela, clic droit sur l'onglet de la feuille concernée/Visualiser le code. Dans la fenêtre Visual Basic qui s'ouvre, copier/coller ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$D$1" And Columns(5).EntireColumn.Hidden = True Then
    Columns(5).EntireColumn.Hidden = False
    Cells(2, 4).Select
ElseIf Target.Address = "$D$1" And Columns(5).EntireColumn.Hidden = False Then
    Columns(5).EntireColumn.Hidden = True
    Cells(2, 4).Select
End If
If Target.Address = "$I$1" And Columns(8).EntireColumn.Hidden = True Then
    Columns(8).EntireColumn.Hidden = False
    Cells(2, 9).Select
ElseIf Target.Address = "$I$1" And Columns(8).EntireColumn.Hidden = False Then
    Columns(8).EntireColumn.Hidden = True
    Cells(2, 9).Select
End If
End Sub

2- là par contre, je sèche un peu... L'évènement Mouse_move d'un label, je ne connais pas trop. J'ai trouvé un contournement en superposant 2 label l'un sur l'autre, celui du dessous dépassant de l'autre. Et en cumulant les évènements mouse_move des 2 on obtient l'effet désiré :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Rows("9:15").EntireRow.Hidden = True
End Sub
Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Rows("9:15").EntireRow.Hidden = False
End Sub

Conscient que mon explication est plus que confuse, je vous joint un fichier exemple...

[Estimea]

Bonjour pijaku,

Merci pour ta réponse

Je vais laisser tomber ma demande N°2 (Label).

Je vais utiliser le double clique "celulle" pour les colonne et lignes.

J'ai donc deux nouvelles questions/demandes (Mode Boulet )

Est-il possible d'adapter le premier code pour des lignes ?

Est-il possible d'adapter le premier code pour qu'il puisse masquer deux colonnes à la suite au lieu d'une seul?

En te remerciant par avance pour ton aide et expertise.

Cordialement,

[pijaku]

effectivement, mode "boulet"
- Oui c'est possible d'adapter de colonne en ligne. Suffit de remplacer Columns(5) par Rows(15) = 15ème ligne

- Oui tu peux masquer/afficher autant de colonne que tu le souhaites au clic sur une cellule.

[Estimea]

Merci pour ta réponse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If Target.Address = "$D$1" And Columns(5).EntireColumn.Hidden = True Then
    Columns(5).EntireColumn.Hidden = False
    Cells(2, 4).Select
ElseIf Target.Address = "$D$1" And Columns(5).EntireColumn.Hidden = False Then
    Columns(5).EntireColumn.Hidden = True
    Cells(2, 4).Select
End If

Pour "traiter deux ou trois colonnes à la suite, j'ai essayé Columns(5, 6, 7) mais évidemment ce n'est pas ça

As-tu une solution?

Merci par avance

[pijaku]

Honnêtement, de vous à moi, n'auriez vous point pu trouver seul cette adaptation complexe du code proposé?
Allez, c'est promo today, et gratuit pour vous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If Target.Address = "$D$1" And Columns("E:G").EntireColumn.Hidden = True Then
    Columns("E:G").EntireColumn.Hidden = False
    Cells(2, 4).Select
ElseIf Target.Address = "$D$1" And Columns("E:G").EntireColumn.Hidden = False Then
    Columns("E:G").EntireColumn.Hidden = True
    Cells(2, 4).Select
End If

Cela vous convient?
Je plaisante, nous avons tous débuté et je sais ce que c'est car je débute encore...
Bon courage et n'hésitez pas à revenir poser vos questions

[Estimea]

Merci !

Effectivement je débute ^^

J'avais essayé "5:6", j'étais si près et en même temps si loin de la bonne réponse....