78chris,
Le code se plante (sous Excel 2019) avant même que je fasse appel à l'userform "Menu". En faisant un débogage pas à pas (F8) j'ai un bug dès que j'arrive sur la première des deux lignes qui me définissent la largeur et la hauteur et si je mets en commentaire la première de ces deux lignes (que ce soit celle qui me définit la largeur, ou celle qui me définit la hauteur) et relance le code, ça marche ??????
A tout hasard voici le code de l'Userform "Menu"
' organistion des objets dans le formulaire Menu
Private Sub UserForm_Activate()
l = Application.Width ' largeur en points de la fenêtre
h = Application.Height ' hauteur en points de la fenêtre
With Menu
' agencement du Formulaire "Menu" et de ses objets
Call presentation(Menu, l, h, -20, 0)
Call presentation(Titre, 4 * l / 10, 35, h / 10, 3.5 * l / 10)
Call presentation(Image, 5 * l / 10, 2 * h / 4, h / 4, 3 * l / 10)
Call presentation(Creation, 1.8 * l / 10, h / 14, 3.5 * h / 10, l / 14)
Call presentation(consultation, 1.8 * l / 10, h / 14, 4.5 * h / 10, l / 14)
Call presentation(utilisation, 1.8 * l / 10, h / 14, 5.5 * h / 10, l / 14)
Call presentation(Quitter, l / 10, h / 14, 7.5 * h / 10, 12 * l / 14)
Call presentation(Lb_copyright, l / 5, h / 20, 8.5 * h / 10, 0.8 * l / 14)
End With
End Sub
presentation étant une fonctionde mise en page des objets et de l'Userform
Function presentation(form, w, h, t, g)
With form
.Width = w
.Height = h
.Top = t
.Left = g
End With
End Function
Je rappelle que tout fonctionne à merveille chez moi avec Excel 2007
Cdlt
Jacky