Macro pour Police de Menu déroulant

gerson94 · 16 Juin 2015

Bonjour toutes et tous,

Je vous sollicite pour m'aider à optimiser une macro s'il vous plaît.
La macro que j'ai intégré permet de zoomer la cellule B7. Or je souhaiterais qu'en cliquant sur n'importe quelle cellule de B7 à B16 je puisse avoir le même zoom.
Merci d'avance

Gerson

gerson94 · 16 Juin 2015

Re : Macro pour Police de Menu déroulant

Hello

C'est bon j'ai trouvé

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("B7:B16"), Target) Is Nothing And Target.Count = 1 Then
ActiveWindow.Zoom = 150
Else
ActiveWindow.Zoom = 50
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveWindow.Zoom = 50
End Sub

Merci

Macro pour Police de Menu déroulant

gerson94

XLDnaute Occasionnel

Pièces jointes

gerson94

XLDnaute Occasionnel

Discussions similaires