Discussion :

[MathieuDDD]

Bonjour,

Mon problème est le suivant :

Je voudrais grouper une colonne si la valeur "Oui" se trouve dans une cellule (qui n'est pas dans cette colonne).

Malheureusement, ayant un niveau VBA proche de zéro, je ne sais pas comment m'y prendre…. HELP !

D'avance, merci beaucoup !

[anasecu]

Bonjour,

Je voudrais grouper une colonne

Cela veut dire quoi ?
Tu veux la grouper où ?
Dans une cellule ? mais la taille n'est pas infinie...

[MathieuDDD]

Bonjour,

Merci d'avoir répondu à mon message.

Prenons un exemple, je voudrais que si B2 = "Oui" alors les colonnes H à M se groupent (qu'elles ne s'affichent plus), et que si B2 = "Non" ou "" (vide) alors ces mêmes colonnes se dissocient / dégroupent pour s'afficher (je ne sais pas si je suis très clair…).

Je ne sais pas si c'est utile mais en B2 j'ai un menu déroulant "Oui"; "Non".

J'ai un autre problème lié, un peu dans le même style, alors j'en profite… j'espère que tu ne m'en voudras pas

Je voudrais que si B4 (autre menu déroulant) = "Oui" alors la colonne D se groupe, et que si B4 = "Non" ou "" (vide) qu'elle se dissocie / dégroupe.

Encore merci de ton aide

[anasecu]

re

si B2 = "Oui" alors les colonnes H à M se groupent (qu'elles ne s'affichent plus),

Dans ce cas effectivement ce n'est pas 'grouper' qui est le bon terme mais masquer comme tu peux le voir dans les menus excel.

Tu mets ce code dans la feuille concernée de l'éditeur VBE et au changement de tes cellules cela devrait fonctionner.

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
Private Sub Worksheet_Change(ByVal sel As Range)
If sel.CountLarge > 1 Then Exit Sub
If Not Intersect(sel, [B2]) Is Nothing Then
    If [B2].Value = "Oui" Then
        Columns("H:M").Hidden = True
    Else
        Columns("H:M").Hidden = False
    End If
ElseIf Not Intersect(sel, [B4]) Is Nothing Then
    If [B4].Value = "Oui" Then
        Columns("D").Hidden = True
    Else
        Columns("D").Hidden = False
    End If
End If
End Sub