Re: => MonExcelDownloads........ Database.... UserForm de "Surf" VERSION 1.03
Re..., Tout le monde
L'affichage de l'UserFormRecherche ne pose pas trop de problème à par la ListBoxFil_Click(), qui fait le lien sur le forum, si je m'abuse.
J'ai modifié la procédure Taille,
Sub Taille()
Dim XVal As Long, YVal As Long
Dim Resolution As Long
Dim ZoomZoom As Integer
ZoomZoom = 100
Resolution = Application.DefaultWebOptions.ScreenSize
If Resolution = 8 Then ZoomZoom = 160 ' Testé sur Catho 19" ok "1600 x 1200"
If Resolution = 7 Then ZoomZoom = 130 'Testé sur Catho 19" ok "1280 x 1024"
'If Resolution = "1280 x 960" Then ZoomZoom = 130 ' 'Testé sur Catho 17" ok "1280 x 960"
'If Resolution = "1280 x 720" Then ZoomZoom = 130 'non testé....??? "1280 x 720"
'If Resolution = "1152 x 864" Then ZoomZoom = 115 'Testé sur Catho 17" ok "1152 x 864"
If Resolution = 4 Then ZoomZoom = 105 'Testé sur Catho 17" ok "1024 x 768"
If Resolution = 3 Then ZoomZoom = 80 'Testé sur un Catho 15" ok "800 x 600"
If Resolution = 1 Then ZoomZoom = 65 'Testé sur un Catho 15" ok "640 x 480"
With UserFormBrowser
.Zoom = ZoomZoom
.Show
End With
INI
Exit Sub
End Sub
Jusque-là cela fonctionne.
Mais après c'est la galère, Application.Width, n'est pas reconnu sur MAC, je peste, je peste contre MICROM..ERDE. Vivement l'Apple expo au mois de septembre...
Je m'aperçois qu'il est plus facile d'avoir une comptabilité PC <--> MAC, en gardant les boîtes de dialogue xl5, et les macros commande xl4.
@+Jean-Marie, pour d'autres aventures