Définir des plages au lieu d'une cellule dans SelectionChange

Bonjour,

J'ai trouver un code VBA pour que la largeur de ma colonne s'élargisse lorsque je sélectionne une cellule donnée (afin de voir la ligne entière d'une liste déroulante) et revienne à sa taille normale lorsque la cellule n'est plus sélectionnée.

J'aimerais le faire la même chose, mais pour des plages différentes (de C12 à C17 et de I12 à I17). Mais là, je sèche.

Merci d'avance pour votre aide!

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   If Target.Address = "$C$12" Then Target.Columns.ColumnWidth = 75 Else Columns(3).ColumnWidth = 30 End If End Sub

---

Citation:

---

Envoyé par Julianos

J'aimerais le faire la même chose, mais pour des plages différentes (de C12 à C17 et de I12 à I17). Mais là, je sèche.

---

Bonjour, on peut regarder si l'intersection de tes plages et celles qui déclenchent l'évènement est vide ou pas

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_SelectionChange(ByVal Target As Range) dim r as range Set r = Intersect(Target, Union(Range("c12:c17"), Range("i12:i17"))) If not r Is Nothing Then Target.Columns.ColumnWidth = 75 Else Columns(3).ColumnWidth = 30 End If End Sub

---