Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Taille

1 réponse
Avatar
Pascal
Bonjour,
J'ai cette macro

Sub Taille()
With Application

If Application.Width > 600 Then
Application.Width = 600

End If

End With

End Sub
que j'appelle sur Worksheet activate.
Elle fonctionne parfaitment sauf qd la fenêtre a été maximisée.
Comment faire
Merci
Pascal

1 réponse

Avatar
MichDenis
Bonjour Pascal,

Voir ton message précédent pour les explication.

Un exemple de code avec l'objet Application :
'-----------------------------------
Sub test()
With Application
With .ActiveWindow
.WindowState = xlNormal
If .Width > 600 Then .Width = 600
End With
End With
End Sub
'-----------------------------------



"Pascal" a écrit dans le message de groupe de discussion :

Bonjour,
J'ai cette macro

Sub Taille()
With Application

If Application.Width > 600 Then
Application.Width = 600

End If

End With

End Sub
que j'appelle sur Worksheet activate.
Elle fonctionne parfaitment sauf qd la fenêtre a été maximisée.
Comment faire
Merci
Pascal