Bonjour à tous,

Voici le code d'initialisation des 3 UserForms de mon projet:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Dim Cmb As CommandBarControl
    Dim cBar As CommandBar
    Set cBar = CommandBars.Add(Position:=msoBarFloating, MenuBar:=False, Temporary:=True)
    Set Cmb1 = cBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
    Set Cmb2 = cBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
    Set Cmb3 = cBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
 
    Cmb1.FaceId = 3731 'valider
    Cmb2.FaceId = 5896 'nouveau
    Cmb3.FaceId = 2487 '4356 '1716 '644 '1088 ' 'supprimer
 
    Me.valider.Picture = Cmb5.Picture
    Me.valider.PicturePosition = fmPicturePositionLeftCenter
    Me.nouveau.Picture = Cmb6.Picture
    Me.nouveau.PicturePosition = fmPicturePositionLeftCenter
    Me.supprimer.Picture = Cmb7.Picture
    Me.supprimer.PicturePosition = fmPicturePositionLeftCenter
    cBar.Delete
 
    With Application
        ratiow = Int(.Width * 100 / Me.Width) * 0.98
        ratioh = Int(.Height * 100 / Me.Height) * 0.98
        ratio = IIf(ratiow < ratioh, ratiow, ratioh)
        Me.Zoom = ratio
        Me.Left = Application.Left
        Me.Top = Application.Top
        Me.Width = Application.Width - 11
        Me.Height = Application.Height - 11
    End With
Pour raccourcir je souhaiterais créer une procédure objet dans un module et l'appeler depuis chaque UserForm.

Est-ce possible, merci d'avance pour votre aide.