Discussion :

[Julianos]

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 :

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

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

[halaster08]

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 :

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

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