cp4
XLDnaute Barbatruc
Bonjour,
Il y a un moment que j'ai trouvé ce code sur le forum. Jusqu'à aujourd'hui, il ne m'a pas posé de problème.
J'ai fait un nouveau formulaire dans lequel j'ai mis un webbrowser mais là le code plante.
J'ai effectué un autre test avec une progressbar et là aussi ça plante.
Comment contourner ce problème?
Merci par avance.
Bonne journée.
Il y a un moment que j'ai trouvé ce code sur le forum. Jusqu'à aujourd'hui, il ne m'a pas posé de problème.
J'ai fait un nouveau formulaire dans lequel j'ai mis un webbrowser mais là le code plante.
J'ai effectué un autre test avec une progressbar et là aussi ça plante.
VB:
Option Explicit
Private Sub UserForm_Activate()
Dim ctl As Control, ratiow As String, ratioh As String
ratiow = Application.Width / Me.Width: ratioh = Application.Height / Me.Height
Me.Left = 0: Me.Top = 0
Me.Width = Application.Width: Me.Height = Application.Height
For Each ctl In Me.Controls
ctl.Left = ctl.Left * ratiow
ctl.Top = ctl.Top * ratioh
ctl.Width = ctl.Width * ratiow
ctl.Height = ctl.Height * ratioh
ctl.Font.Size = ctl.Font.Size * ratioh '*** Plante ici ***
Next
End Sub
Merci par avance.
Bonne journée.