Liste deroulante

Résolu
danseur -  
 danseur -
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
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
Réponse 2 / 2
danseur
 
bonjour

merci pour ta reponse cela fonctionne parfaitement

au plaisir
0

Discussions similaires

Suppression listes déroulantes
Archa -
Sam -

5 réponses
Supprimer liste déroulante Excel
SamAlex -
b@bd -

8 réponses
Effacer le contenue d'une cellule avec liste déroulante
lebutters -
lebutters -

7 réponses
Supprimer Liste déroulante
Good -
Good -

2 réponses
Effacer liste déroulante
gabrielle -
jmps -

3 réponses