Formulation VBA

Bonjour

j'ai une petite question , (simple ou peut etre pas ) , comment puis je ecrire sous forme de language vba

" toutes les cellules de ma feuille de calcul sauf les cellule L9,L11 et L13"

(en fait , je crée un bout de code qui me permet par la selection d'une des trois cellule cités d'appliquer un zoom de 200%

et lorsque la selection de cellule n'est pas l'une des trois cellule , j'applique un zom de 50% sur ma feuille de calcul )

Merci pour vos conseils

Cordialement

Bonjour,

Bout de code qui permet par la selection d'une des trois cellule citées d'appliquer un zoom de 200% et lorsque la selection de cellule n'est pas l'une des trois cellule appliquer un zom de 50%.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("L3,L11,L13")) Is Nothing Then
        MsgBox "On applique un zoom de 200%"
    Else
        MsgBox "On applique un zom de 50% "
    End If
End Sub

A+

Merci frangy ! j'avais pensé a quelque chose de plus compliqué .. j'ai testé et c'est parfait !

merci à toi

Rechercher des sujets similaires à "formulation vba"