Bonjour,
En ouvrant la premi=E8re feuille de mon appli, je veux=20
mettre le plein =E9cran,en allant sur les autres feuilles=20
revenir =E0 l'=E9cran normal et revenant sur la premi=E8re le=20
plein =E9cran Merci de la r=E9ponse
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
Nicolas B.
Salut direct83,
A placer dans le ThisWorkbook (plein écran sur Feuil1) :
Private Sub Workbook_SheetActivate(ByVal Sh As Object) If ActiveSheet.Name = "Feuil1" Then Application.DisplayFullScreen = True Else Application.DisplayFullScreen = False End If End Sub
Bonjour, En ouvrant la première feuille de mon appli, je veux mettre le plein écran,en allant sur les autres feuilles revenir à l'écran normal et revenant sur la première le plein écran Merci de la réponse
Salut direct83,
A placer dans le ThisWorkbook (plein écran sur Feuil1) :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "Feuil1" Then
Application.DisplayFullScreen = True
Else
Application.DisplayFullScreen = False
End If
End Sub
Bonjour,
En ouvrant la première feuille de mon appli, je veux
mettre le plein écran,en allant sur les autres feuilles
revenir à l'écran normal et revenant sur la première le
plein écran Merci de la réponse
A placer dans le ThisWorkbook (plein écran sur Feuil1) :
Private Sub Workbook_SheetActivate(ByVal Sh As Object) If ActiveSheet.Name = "Feuil1" Then Application.DisplayFullScreen = True Else Application.DisplayFullScreen = False End If End Sub
Bonjour, En ouvrant la première feuille de mon appli, je veux mettre le plein écran,en allant sur les autres feuilles revenir à l'écran normal et revenant sur la première le plein écran Merci de la réponse
