code VBA - Zoom sur liste déroulante

[lorsaint]

Bonjour le Forum,

J'ai crée une petite macro (cf ci-dessous) qui permet, lorsque je clique sur la liste déroulante de la cellule E2, de zoomer cette liste à 120% et de revenir à 85% lorsque je clique sur les autres cellules du fichier.

Problème : je souhaiterais que la macro fonctionne aussi si je clique sur la liste déroulante en E3 (jusqu'à E1000 par exemple, soit toute la colonne à partir de E2). Quelqu'un peut-il me donner une solution ?

Merci bcp !

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Address <> "$E$2" Then
ActiveWindow.Zoom = 85
Else
ActiveWindow.Zoom = 120
End If
End Sub

 

[systmd]

Re : code VBA - Zoom sur liste déroulante

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 On Error Resume Next
 If Target.Column = 5 And Target.Row >= 2 And Target.Row <= 1000 Then
 ActiveWindow.Zoom = 120
 Else
 ActiveWindow.Zoom = 85
 End If
 End Sub

 

[lorsaint]

Re : code VBA - Zoom sur liste déroulante

Merci ! C'est exactement ça !

Bonne soirée