Appel d'une procédure depuis un UserForm

Version imprimable

Bonjour à tous,

Voici le code d'initialisation des 3 UserForms de mon projet:

Code:

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.

01/08/2020, 16h33
Transitoire
Bonjour, imaginons sur votre USF1 vous avez un bouton CommandButton1. Vous cliquez dessus et il démarre une macro nommée OuvTravail.
vous pouvez avoir trois ou quatre USF et avoir toujours 1 bouton qui démarre la macro OuvTravail
Code:

1 2 3 4 5 6 7 Private Sub CommandButton1_Click() OuvTravail End Sub Sub OuvTravail() ...Code... End Sub
Cordialement 8-)
01/08/2020, 17h30
modus57

Bonjour Transitoire,
Merci pour votre réponse.

Citation:

Bonjour, imaginons sur votre USF1 vous avez un bouton CommandButton1. Vous cliquez dessus et il démarre une macro nommée OuvTravail.
vous pouvez avoir trois ou quatre USF et avoir toujours 1 bouton qui démarre la macro OuvTravail

Sur le principe cela me pose aucun soucis.
Je rencontre quelques difficultés avec le code de l'initialisation à intégrer dans une procédure objet d'un module.
01/08/2020, 17h37
Patrice740
Bonjour,

Je ferais plutôt comme ça :

Dans l'userform :
Code:

1 2 3 Private Sub CommandButton1_Click() Call MaProcedure(Me) End Sub
Dans un module Standard
Code:

1 2 3 4 5 6 7 8 Sub MaProcedure(usf) ' code ... ' ... ' Exemple : MsgBox usf.Caption End Sub
EDIT : mettre l'userform (désigné par Me) en argument de la procédure permet d'agir sur cet userform depuis la procédure sans le désigner nommément.
01/08/2020, 18h22
Transitoire
Citation:

Je rencontre quelques difficultés avec le code de l'initialisation à intégrer dans une procédure objet d'un module.

Vous pouvez travailler sur un UserForm depuis n'importe quel module général avec un code du style
Code:

1 2 3 4 5 6 7 8 Sub Test() With UserForm1 .Label1.caption = "Nom" .Label2.Caption = "Prénom" .TextBox1.Value = "" ' ETC ETC End With End Sub
Si vous souhaitez plus de détails, faites une recherche sur les interventions de Pierre Fauconnier sur ce sujet, qui l'explique infiniment mieux que moi:calim2:

Cordialement 8-)
01/08/2020, 18h52
modus57

Bonjour Patrice740,
Je ne peux pas me contenter de copier tout simplement le code de la Private Sub UserForm_Initialize() dans la Sub MaProcedure(usf).
Cela doit être un peu plus compliqué que cela.
@+

Oups j'avais pas vu la nouvelle réponse de Transitoire, dans ce cas cela oblige à faire 3 procédures si j'ai bien compris.

Re,
J'ai un peu progressé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub MaProcedure(usf)
    With usf
        ratiow = Int(.Width * 100 / .Width)
        ratioh = Int(.Height * 100 / .Height)
        ratio = IIf(ratiow < ratioh, ratiow, ratioh)
        .Zoom = ratio
        .Left = Application.Left
        .Top = Application.Top
        .Width = Application.Width - 11
        .Height = Application.Height - 11
    End With
End Sub

Jusque là ça fonctionne mais pour le reste ça coince,je continu de chercher.

Pour le reste, le code d'origine devrait fonctionner en remplaçant Me par usf.
Sauf qu'à priori il y a des erreurs dans :

Code:

1
2
3
4
5
6
    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

Ce devrait être :

Code:

1
2
3
4
5
6
7
    Me.valider.Picture = Cmb1.Picture
    Me.valider.PicturePosition = fmPicturePositionLeftCenter
    Me.nouveau.Picture = Cmb2.Picture
    Me.nouveau.PicturePosition = fmPicturePositionLeftCenter
    Me.supprimer.Picture = Cmb3.Picture
    Me.supprimer.PicturePosition = fmPicturePositionLeftCenter

02/08/2020, 08h41
modus57

Bonjour Patrice740,
Effectivement c'est une grossière erreur de numérotation des boutons.
Je viens de tester ça fonctionne tip top. :ccool:
Merci à vous, vos apports abonde ma connaissance.