Taille d'écran en VBA

Bonjour,

Pouvez-vous m'aider?

Existe-t-il un code VBA pour connaitre la taille de son écran?

afin de l'incorporer dans une macro

merci

Bonjour Geoffroy,

Une rapide recherche Google

https://excel-malin.com/codes-sources-vba/vba-resolution-ecran/

De mon coté, cela fonctionne.

A+

Bonjour Gabin37,

merci,

mais ne fonctionne pas avec moi

je cherche encore

j'aimerais lancer une macro qui m'afficherait les dimensions de mon écran ou de n'importe quel écran.

Pour pouvoir adapter mes applications à tous les écrans.

@bientôt

mais ne fonctionne pas avec moi

Peut-on avoir plus d'info sur le disfonctionnement ?

Peut être un problème lié à l'utilisation de double écran (ce qui n'est pas mon cas donc je ne peux pas tester)

Perso je retrouve bien 1920x1080

Pour pouvoir adapter mes applications à tous les écrans.

Si il s'agit de UserForm, j'ai ce mini code tout fait qui fonctionne très bien chez moi.

A adapter et mettre dans le Sub "Initialize"

Private Sub UserForm_initialize()
Me.StartUpPosition = 0
Me.Left = Application.Left + Application.Width / 2 - Me.Width / 2
Me.Top = Application.Top + Application.Height / 2 - Me.Height / 2
End Sub

Oui celui-ci je l'avais vu aussi mais j'ai erreur à ce niveau

Declare PtrSafe Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

et je ne sais pas l'adapter pour mon Excel

merci

mais pour usf j'ai trouvé ceci:

mettre un call

call AdapterTailleFormAEcran 'dans UserForm_initialize()

Sub AdapterTailleFormAEcran() ' ------ ******** pour adapter USF à d'autres écrans *******----------
'par Excel-Malin.com ( https://excel-malin.com )

'Application.WindowState = xlMaximized

If ActiveWindow.Width > Me.Width And ActiveWindow.Height > Me.Height Then Exit Sub

    If (Round((ActiveWindow.Width * 0.95) / Me.Width, 2) * 100) - 1 < (Round((ActiveWindow.Height * 0.95) / Me.Height, 2) * 100) - 1 Then
        Me.Zoom = (Round((ActiveWindow.Width * 0.95) / Me.Width, 2) * 100) - 1
        Me.Width = Me.Width * Me.Zoom / 100
        Me.Height = Me.Height * Me.Zoom / 100
    Else
        Me.Zoom = (Round((ActiveWindow.Height * 0.95) / Me.Height, 2) * 100) - 1
        Me.Width = Me.Width * Me.Zoom / 100
        Me.Height = Me.Height * Me.Zoom / 100
    End If

End Sub

J'ai essayé sur mon mini pc pour la USF c'est au top, mais pas pour les feuilles excel..... faut jouer de la flêche haut et bas... c'est la galère

En fait c'est la dimension de l'écran qui faut trouver pour l'adapter en général

merci bien