Variables dans Userform, intéré dans module
Bonjour à tous!
Je vous expose mon problème :
J'ai fait une petite macro qui a l'ouverture de mon fichier excel, fait apparaitre une fenêtre. Dans cette fenêtre, on remplit des valeurs dans une texbox et on clique sur un des trois boutons.
Dans les private sub de chaque command_click, je fais une affecatation de variable et écris une procédure qui remplit ces informations dans différentes cases de mon tableur. Le problème c'est qu'après avoir affecté mes variables, la procédure est la même et je l'ai écris trois fois, une fois dans chaque private sub des command_click
Comment puis-je alors dans mes command_click simplement affecté mes variables et écrire qu'une seule fois ma procédure?
Je vous soujaite une bonne journée!
Teen
Je vous expose mon problème :
J'ai fait une petite macro qui a l'ouverture de mon fichier excel, fait apparaitre une fenêtre. Dans cette fenêtre, on remplit des valeurs dans une texbox et on clique sur un des trois boutons.
Dans les private sub de chaque command_click, je fais une affecatation de variable et écris une procédure qui remplit ces informations dans différentes cases de mon tableur. Le problème c'est qu'après avoir affecté mes variables, la procédure est la même et je l'ai écris trois fois, une fois dans chaque private sub des command_click
Comment puis-je alors dans mes command_click simplement affecté mes variables et écrire qu'une seule fois ma procédure?
Je vous soujaite une bonne journée!
Teen
1 réponse
-
Bonjour,
Une solution parmi d'autres.
Dans chaque private sub command_click
affectation de variables
appel procédure avec passage des variables afféctées
ex:
private sub command1_click
affectation variable1,variable2,variableX
Call Procedure(variable1,variable2,variableX)
end sub
private sub command2_click
affectation variable1,variable2,variableX
Call Procedure(variable1,variable2,variableX)
end sub
private sub command3_click
affectation variable1,variable2,variableX
Call Procedure(variable1,variable2,variableX)
end sub
sub Procedure(variable1,variable2,variableX)
' Code commun à toutes les actions commandX_Click
end sub
