XL 2013 dezoom sur validation

[paskikic]

bonsoir les xlnautes

j aimerais savoir comment on peut dezoomer quand on valide une cellule
j ai reussi a zoomer voici mon code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Range("D7,F23,F27,R23,R27,AD23,AD27,B38,N38,AA38,B46,N46,AA46,B61,R61,Y61,AC61,B76,S76,B84,S84,B92,S92")) Is Nothing Then

ActiveWorkbook.CustomViews.Add ViewName:="x", PrintSettings:=True, _
RowColSettings:=True
ActiveWindow.Zoom = 300


End If


End Sub



MERCI A VOUS

 

[Papou-net]

Re : dezoom sur validation

Bonsoir paskikic,

Peut-être comme ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Application.Intersect(Target,  Range("D7,F23,F27,R23,R27,AD23,AD27,B38,N38,AA38,B   46,N46,AA46,B61,R61,Y61,AC61,B76,S76,B84,S84,B92,S  92")) Is Nothing  Then
    ActiveWorkbook.CustomViews.Add ViewName:="x", PrintSettings:=True, _
            RowColSettings:=True
            ActiveWindow.Zoom = 300
Else
ActiveWindow.Zoom = 100
        End If
  
End Sub

Cordialement.

 

[paskikic]

Re : dezoom sur validation

merci a toi Papou-netj avais essayer mais ca buggait

erreur de syntaxe

encore merci