liste deroulante Résolu/Fermé

Question

bonjour

je voudrais dans excel 2010 changer le format d'une liste deroulante j'ai trouvé ceci

private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Target.Address <> "$A$1" Then
             ActiveWindow.Zoom = 65
    Else
             ActiveWindow.Zoom = 130
    End If
End Sub
 mais ça ne le fait que sur une cellule(a1) je voudrais que cela se fasse sur A1  a  A20 et je ne trouve pas la solution 

quelqu'un pourrait il m'aider  merci

f894009 · Answer

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Not Application.Intersect(Target, Range("A1:A20")) Is Nothing Then
        ActiveWindow.Zoom = 130
    Else
        ActiveWindow.Zoom = 65
    End If
End Sub

Bonne suite

danseur · Answer

bonjour

merci pour ta reponse cela fonctionne parfaitement 

au plaisir

Liste deroulante

2 réponses

Discussions similaires