transfer de données VBA entre Uform et module

néné06 · 19 Mai 2008

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 · 19 Mai 2008

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 :

Code:

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 :

Code:

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

pour l'userform UF2 :

Code:

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

néné06 · 19 Mai 2008

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+

transfer de données VBA entre Uform et module

néné06

XLDnaute Accro

cbea

XLDnaute Impliqué

néné06

XLDnaute Accro

Discussions similaires

transfer de données VBA entre Uform et module

néné06

XLDnaute Accro

cbea

XLDnaute Impliqué

néné06

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency