Grouper / Dissocier si "oui" dans une cellule

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 !

Bonjour,

Citation:

---

Envoyé par MathieuDDD

Je voudrais grouper une colonne

---

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

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

re

Citation:

---

Envoyé par MathieuDDD

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:

---

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

---