Liste deroulante

Résolu/Fermé

danseur - 6 août 2013 à 10:35
danseur - 6 août 2013 à 10:55

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:

Liste deroulante
Liste déroulante excel - Guide
Liste déroulante en cascade - Guide
Supprimer liste déroulante excel - Forum Word
Effacer liste déroulante - Forum Réseaux sociaux
Trouver numéro liste rouge gratuitement ✓ - Forum Mobile

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
6 août 2013 à 10:50

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

Réponse 2 / 2

danseur
6 août 2013 à 10:55

bonjour

merci pour ta reponse cela fonctionne parfaitement

au plaisir

Discussions similaires

Suppression listes déroulantes

Accéder à la liste de numéros de téléphone en 07

Annuaire inversé liste rouge

Supprimer liste déroulante Excel

Effacer le contenue d'une cellule avec liste déroulante

Discussions similaires

Newsletters