transfer de données VBA entre Uform et module

[néné06]

Bonjour à tous
J'ai un problème et si quelqu'un peut me renseigner , Merci d'avance
Sur un programme avec plusieurs UserForm (UF1 à UFL) où figure un titre (Label1) et une sortie (BTQUIT)
chaque titre et BTQUIT sont Centrés par un sub sur écran en fonction de la résolution mais actuellement j'ai répété dans chaque UF ce petit sub

Private Sub top_quit()
Label1.Top = Int(hecran / 100)
Label1.Font.Size = Int(lecran / 20)
Label1.Left = Int((lecran - Label1.Width) / 2)
BTQUIT.Top = Int(hecran / 1.2)
BTQUIT.Font.Size = Int(lecran / 40)
BTQUIT.Left = Int((lecran - BTQUIT.Width) / 2)
End Sub


Est il possible de le placer dans un module et d'envoyer
Call module1?


Merci à Tous

 

[cbea]

Re : transfer de données VBA entre Uform et module

Bonsoir néné06,

Si j'ai bien compris ta demande, voici une solution.

1/ Dans un module :

Public Sub InitUSF(nomUSF As UserForm)
    With nomUSF
        .Label1.Top = Int(hecran / 100)
        .Label1.Font.Size = Int(lecran / 20)
        .Label1.Left = Int((lecran - .Label1.Width) / 2)
        .BTQUIT.Top = Int(hecran / 1.2)
        .BTQUIT.Font.Size = Int(lecran / 40)
        .BTQUIT.Left = Int((lecran - .BTQUIT.Width) / 2)
    End With
End Sub

2/ Dans chaque userform
pour l'userform UF1 :

Private Sub UserForm_Initialize()
    Call InitUSF(UF1)
End Sub

pour l'userform UF2 :

Private Sub UserForm_Initialize()
    Call InitUSF(UF2)
End Sub

 

[néné06]

Re : transfer de données VBA entre Uform et module

bonsoir cbea et merci
J'ai modifier mon code sur les 21 UF et cela fonctionne parfaitement.
Je vais pouvoir alléger mes routines

encore merci et A+