limiter le zoom

salut,

Tu mets tout ça dans un évènement worksheet, c'est à dire
dans le code de la feuille que tu souhaites limiter.

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If ActiveWindow.Zoom < 100 Then
ActiveWindow.Zoom = 100
End If

End Sub

Patrice

-----Message d'origine-----
Bonjour,
Je souhaiterais empecher le zoom de descendre en dessous
d'une valeur (ex : 100).

if ActiveWindow.Zoom < 100 then
ActiveWindow.Zoom = 100
end if
Où mettre ce code ?
Merci de votre aide, Niqo.
.

tu peux aussi le mettre au niveau de Workbook..là, ça
concernera toutes les feuilles de ton classeur.

ex :Private Sub Workbook_SheetSelectionChange(ByVal Sh As
Object, ByVal Target As Range)
If ActiveWindow.Zoom < 100 Then
ActiveWindow.Zoom = 100
End If
End Sub

bon j'arrête là

Salut.

-----Message d'origine-----
Bonjour,
Je souhaiterais empecher le zoom de descendre en dessous
d'une valeur (ex : 100).

if ActiveWindow.Zoom < 100 then
ActiveWindow.Zoom = 100
end if
Où mettre ce code ?
Merci de votre aide, Niqo.
.