bonjour le forum
je voudrais que ma page de garde se redimensionne automatiquement pour un
affichage en entier de mes differents écrans.
es ce possible?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Pour un départ, copie ce qui suit dans le Thisworkbook de ton classeur
Dans la procédure "Feuil1" est le nom de l'objet que tu peux observer dans la fenetre de l'éditeur de code et non le nom de l'onglet de la feuille. Tu passes en mode "plein écran" dès que la feuil1 est activée sinon tu retournes en mode normal !
'------------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.CodeName = "Feuil1" Then Application.DisplayFullScreen = True Else Application.DisplayFullScreen = False End If
End Sub '-------------------------
"croky23" a écrit dans le message de news:
bonjour le forum je voudrais que ma page de garde se redimensionne automatiquement pour un affichage en entier de mes differents écrans. es ce possible?
Pour un départ, copie ce qui suit dans le Thisworkbook de ton classeur
Dans la procédure "Feuil1" est le nom de l'objet que tu peux
observer dans la fenetre de l'éditeur de code et non le nom
de l'onglet de la feuille.
Tu passes en mode "plein écran" dès que la feuil1 est activée
sinon tu retournes en mode normal !
'-------------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.CodeName = "Feuil1" Then
Application.DisplayFullScreen = True
Else
Application.DisplayFullScreen = False
End If
End Sub
'-------------------------
"croky23" <croky23@discussions.microsoft.com> a écrit dans le message de news:
733BAC33-B531-4FA7-AC86-2A1468D9E8CD@microsoft.com...
bonjour le forum
je voudrais que ma page de garde se redimensionne automatiquement pour un
affichage en entier de mes differents écrans.
es ce possible?
Pour un départ, copie ce qui suit dans le Thisworkbook de ton classeur
Dans la procédure "Feuil1" est le nom de l'objet que tu peux observer dans la fenetre de l'éditeur de code et non le nom de l'onglet de la feuille. Tu passes en mode "plein écran" dès que la feuil1 est activée sinon tu retournes en mode normal !
'------------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.CodeName = "Feuil1" Then Application.DisplayFullScreen = True Else Application.DisplayFullScreen = False End If
End Sub '-------------------------
"croky23" a écrit dans le message de news:
bonjour le forum je voudrais que ma page de garde se redimensionne automatiquement pour un affichage en entier de mes differents écrans. es ce possible?
croky23
Merci Beaucoup bonne soirée
Pour un départ, copie ce qui suit dans le Thisworkbook de ton classeur
Dans la procédure "Feuil1" est le nom de l'objet que tu peux observer dans la fenetre de l'éditeur de code et non le nom de l'onglet de la feuille. Tu passes en mode "plein écran" dès que la feuil1 est activée sinon tu retournes en mode normal !
'------------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.CodeName = "Feuil1" Then Application.DisplayFullScreen = True Else Application.DisplayFullScreen = False End If
End Sub '-------------------------
"croky23" a écrit dans le message de news:
bonjour le forum je voudrais que ma page de garde se redimensionne automatiquement pour un affichage en entier de mes differents écrans. es ce possible?
Merci Beaucoup
bonne soirée
Pour un départ, copie ce qui suit dans le Thisworkbook de ton classeur
Dans la procédure "Feuil1" est le nom de l'objet que tu peux
observer dans la fenetre de l'éditeur de code et non le nom
de l'onglet de la feuille.
Tu passes en mode "plein écran" dès que la feuil1 est activée
sinon tu retournes en mode normal !
'-------------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.CodeName = "Feuil1" Then
Application.DisplayFullScreen = True
Else
Application.DisplayFullScreen = False
End If
End Sub
'-------------------------
"croky23" <croky23@discussions.microsoft.com> a écrit dans le message de news:
733BAC33-B531-4FA7-AC86-2A1468D9E8CD@microsoft.com...
bonjour le forum
je voudrais que ma page de garde se redimensionne automatiquement pour un
affichage en entier de mes differents écrans.
es ce possible?
Pour un départ, copie ce qui suit dans le Thisworkbook de ton classeur
Dans la procédure "Feuil1" est le nom de l'objet que tu peux observer dans la fenetre de l'éditeur de code et non le nom de l'onglet de la feuille. Tu passes en mode "plein écran" dès que la feuil1 est activée sinon tu retournes en mode normal !
'------------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.CodeName = "Feuil1" Then Application.DisplayFullScreen = True Else Application.DisplayFullScreen = False End If
End Sub '-------------------------
"croky23" a écrit dans le message de news:
bonjour le forum je voudrais que ma page de garde se redimensionne automatiquement pour un affichage en entier de mes differents écrans. es ce possible?