Double clic pour agrandir une feuille, comment inverser

Le
pellet15
Bonjour à tous

La macros suivante me permet d'agrandir une des 4 fenêtres qui sont
superposer a l'écran.

Mais une fois quel est agrandie, si je double clic, je voudrait
inverser la réduire !!!

Comment modifier cette macro?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("A2:m65536")) Is Nothing Then GoTo fin
ActiveWorkbook.Unprotect
ActiveWindow.WindowState = xlMaximized
ActiveWorkbook.Protect Structure:=True, Windows:=True
fin:
Range("A2").Select
End Sub


Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #17862321
Bonjour,
Comme ceci ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("A2:m65536")) Is Nothing Then GoTo fin
ActiveWorkbook.Unprotect
If ActiveWindow.WindowState = xlNormal Then
ActiveWindow.WindowState = xlMaximized
Else
ActiveWindow.WindowState = xlNormal
End If
ActiveWorkbook.Protect Structure:=True, Windows:=True
fin:
Range("A2").Select
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"pellet15" news:
Bonjour à tous

La macros suivante me permet d'agrandir une des 4 fenêtres qui sont
superposer a l'écran.

Mais une fois quel est agrandie, si je double clic, je voudrait
inverser la réduire !!!

Comment modifier cette macro?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("A2:m65536")) Is Nothing Then GoTo fin
ActiveWorkbook.Unprotect
ActiveWindow.WindowState = xlMaximized
ActiveWorkbook.Protect Structure:=True, Windows:=True
fin:
Range("A2").Select
End Sub


Merci
pellet15
Le #17862471
On 16 nov, 10:15, "Philippe.R"
Bonjour,
Comme ceci ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("A2:m65536")) Is Nothing Then GoTo fin
    ActiveWorkbook.Unprotect
    If ActiveWindow.WindowState = xlNormal Then
        ActiveWindow.WindowState = xlMaximized
    Else
        ActiveWindow.WindowState = xlNormal
    End If
    ActiveWorkbook.Protect Structure:=True, Windows:=True
fin:
Range("A2").Select
End Sub

--
Avec plaisirhttp://dj.joss.free.fr/trombine.htmhttp://jacxl.free.fr/mpfe/ trombino.html
Philippe.R
Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"pellet15" Bonjour à tous

La macros suivante me permet d'agrandir une des 4 fenêtres qui sont
superposer a l'écran.

Mais une fois quel est agrandie, si je double clic, je voudrait
inverser la réduire !!!

Comment modifier cette macro?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("A2:m65536")) Is Nothing Then GoTo fin
    ActiveWorkbook.Unprotect
    ActiveWindow.WindowState = xlMaximized
    ActiveWorkbook.Protect Structure:=True, Windows:=True
fin:
Range("A2").Select
End Sub

Merci



Gros Merci cela répond très bien
michdenis
Le #17862631
Si tu avais utilisé la forme négative comme dans :

If not Intersect(Target, Range("A2:m65536")) Is Nothing Then

Cela t'aurait évité d'utilser le Goto Fin


"Philippe.R" u67l%234$
Bonjour,
Comme ceci ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("A2:m65536")) Is Nothing Then GoTo fin
ActiveWorkbook.Unprotect
If ActiveWindow.WindowState = xlNormal Then
ActiveWindow.WindowState = xlMaximized
Else
ActiveWindow.WindowState = xlNormal
End If
ActiveWorkbook.Protect Structure:=True, Windows:=True
fin:
Range("A2").Select
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"pellet15" news:
Bonjour à tous

La macros suivante me permet d'agrandir une des 4 fenêtres qui sont
superposer a l'écran.

Mais une fois quel est agrandie, si je double clic, je voudrait
inverser la réduire !!!

Comment modifier cette macro?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("A2:m65536")) Is Nothing Then GoTo fin
ActiveWorkbook.Unprotect
ActiveWindow.WindowState = xlMaximized
ActiveWorkbook.Protect Structure:=True, Windows:=True
fin:
Range("A2").Select
End Sub


Merci
Publicité
Poster une réponse
Anonyme