Taille

Le
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
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
MichDenis
Le #19908821
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"
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
Publicité
Poster une réponse
Anonyme