Dans cette page,

nous vous avons rassemblé +900 Codes VBA prêts à l’emploi. Vous n’avez que de Copier-Coller dans votre application.

Au bout de quelques seconds, votre application est fonctionnelle avec des avantages impressionnants. Profitez-en 🙂

Afficher l’application en Plein écran

‘Cela affiche la BdD en Plein Ecran

Function EnableFullScreen()
Application.DisplayFullScreen = True
End Function

Afficher l’application en mode d’origine

Cela affiche la BdB en format de création

Function DisableFullScreen()
Application.DisplayFullScreen = False
End Function

Afficher le UserForm en Plein écran

‘Cela sans modification de la Forme de création

Function UserForm_FullScreen()
Dim Zo%
Dim ZH#, ZW#, AL#, AT#, AH#, AW#
Dim FH!, FW!
AH = Application.Height: AW = Application.Width
AL = Application.Left: AT = Application.Top
FH = Height: FW = Width
ZH = AH – FH: ZW = AW – FW: Zo = Zoom
If ZH < ZW Then Zo = Zo * (AH / FH) Else If ZW < ZH Then Zo = Zo * (AW / FW)
Move AL, AT, AW, AH
If Zo <> 100 Then Zoom = Zo
End Function

Afficher UserForm en Plein écran2

‘Taille du UserForm correspond à l’écran

Function UserForm_Full-Screen()
With Application
.WindowState = xlMaximized
Zoom = Int(.Width / Me.Width * 80)
Width = .Width: Height = .Height
Left = 0: Top = 0
End With
End Function

Fr- Masquer la barre des Formules

Function HideFormulaBar()

Application.DisplayFormulaBar = False

End Function

Afficher la Barre des Formules

Function UnhideFormulaBar()

Application.DisplayFormulaBar = True

End Function