Discussion :

[taratata_69]

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

[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)

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

call Tamacro

Et tu initialise tes varaible en faisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
var1=userform1.textbox1
var2=userform1.textbox2
...

[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

dans Userform1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

call Tamacro(textbox1, textbox2)

ta macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LeForestier]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[taratata_69]

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