paramétrage d'un Userform

Version imprimable

28/07/2009, 10h46
taratata_69

paramétrage d'un Userform

Bonjour,

J'ai une macro qui fonctionne bien et j'aimerai la rendre un peu plus conviviale notament en économisant les inputbox nécessaire au lancement du programme.
Je me suis donc lancé dans la création d'un userform et là j'ai deux problémes comment transmettre mes variables "textebox" à ma macro et comment lancer ma macro à partir de mon userform?

merci beaucoup pour toutes vos suggestions
28/07/2009, 10h54
Many31

En rendant ta macro publique (Private sub ==> Public sub)
En mettant tes variables publiques elles aussi (Public ma_variable As Integer qui doit être placé tout en haut de ta feuille de code... en dehors des sub ou des fonctions)
En appelant tes variables depuis ta macro ou inversement (ex:Feuil3.ma_variable, UserForm1.mon_autre_variable)

Pour appeler ta macro c'est le même principe (si par exemple elle est dans le Module 1: Module1.Ma_Macro)

Et pour lancer un Userform:
Load Userform1
Userform1.show

(si tu veux lancer la macro au démarrage de la userform utilise l'événement initialize:
Private Sub UserForm1_Initialize() dans le code de l'Userforme)
28/07/2009, 11h01
Krovax
Bonjour
Une autre solution (je n'aime pas les variables publique mais c'est plus par principe)
Dans ton userform tu créé un bouton qui appelle ta macro
Il suffit de mettre son nom
ou

Code:

call Tamacro

Et tu initialise tes varaible en faisant
Code:

1 2 3 var1=userform1.textbox1 var2=userform1.textbox2 ...
28/07/2009, 11h10
Many31
si tu n'aime pas les variables publique tu peux aussi les mettre en paramètre d'entrée dans la macro... c'est encore plus propre et ca évite de les perdres :lol:

dans Userform1:

Code:

call Tamacro(textbox1, textbox2)

ta macro
Code:

1 2 Sub Tamacro(var1 as string,var2 as string)
:mrgreen:

Bonjour tous,
Ma version :P
Dans le corps de la macro, quand tu veux remplacer ton InputBox
Code:

1 2 3 4 5 6 7 UserForm1.Show 'Quand l'utilisateur clic sur OK (par exemple) mettre dans l'UF 'Me.Hide 'Retour dans la macros.. exemple, A = UserForm1.TextBox1 B = UserForm1.TextBox2 Unload UserForm1
A+
PS : il n'est pas nécessaire de Loader un UF avant de le faire "jouer" ;)

28/07/2009, 12h43
taratata_69

Rendre la saisie de la textbox obligatoire

merci pour toutes vos réponses.

j'ai encore un problème:Comment rendre la saisie de la textbox obligatoire avant la sortie du userform?

cordialement

suffit de tester le textBox..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    UserForm1.Show
    'Quand l'utilisateur clic sur OK (par exemple) mettre dans l'UF
    If TextBox1 = "" then
        MsgBox "Donnée obligatoire"
        TextBox1.SetFocus
        exit sub
    end if
    'Me.Hide
    'Retour dans la macros.. exemple,
    A = UserForm1.TextBox1
    B = UserForm1.TextBox2
    Unload  UserForm1

A+

Pour sortir du userform tu utilise une macro
SI tu t'en tiens au code de leforestier tu as Me.Hide
Tu le remplace par
Code:

1 2 3 4 5 If textbox1="" or textbox2=""or textbox3..... then Msgbox "Veuiller remplir tous les champs" else me.hide end if
Au passage tu peux ausi gérer la pertit croix rouge avec le code suivant
Code:

1 2 3 4 5 6 7 8 Private Sub Userform_QueryClose(Cancel As Integer, CloseMode As Integer) 'si on utilise la croix windows cela revient à utiliser le bouton annuler If CloseMode = 0 Then 'ce que tu veux faire 'exemple tu annule tout simplement la fermetur cancel=true end if End Sub
Edit On s'est croisé visiblement c'est la même idée

Ont va un peu compliquer la chose, et dans la même optique que le deuxième exemple de Krovax, enlever la croix rouge de l'UserForm
Tu colle ce code dans un module public (Module1 par exemple)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
 
Declare Function GetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
 
 Declare Function SetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
 
 Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
 
Sub OteCroix(UF As UserForm)
Dim hwnd As Long
    'Enlève la croix rouge de l'UF
    hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") _
    & "Frame", UF.Caption)
    SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
 
End Sub

et dans le initialise de l'UF,

Code:

1
2
3
Private Sub UserForm_Initialize()
    OteCroix Me
End Sub

A+