OVH Cloud OVH Cloud

Passage de paramètre (et récup) avec un userform

1 réponse
Avatar
Gilles GODART
Bonsoir,

Je me decide à laisser un post car je pense qu'on peut faire mieux que ce
que je fais !!!

J'ai un petit userform (utilitaire) qui me permet de définir une date.
L'idée est que depuis une cellule de feuille (mais aussi depuis un autre
userform), je l'appelle ; je récupère la date (s'il y en a une) ; je la
change ; puis je la réinsère.

Actuellement, je place cette "variable intermédiaire" dans une feuille du
classeur que je rends invisible car je ne sais faire que ça.

Comment puis-je "passer" un paramètre au userform et le restituer sans
intermédiaire (!!) afin de rendre ce userform 'autonome' et générique
(utilisable dans plusieurs applications). La commande 'Userform.Show' ne me
laisse pas passer de paramètre.

Merci de votre aide

Gilles

1 réponse

Avatar
Emcy
Salut,

pour passer une variable tu peux la déclarer comme un
Public, voici comment faire


Public MaDate as Date

sub TaMacro()

MaDate = Date

Load TaUserform
TaUserform.Label1.caption = MaDate
TaUserform.show

end sub

ATTENTION : le nom de ta variable ne doit pas
être "aujourdhui" car c'est c'est variable qui est déja
utilisée par Excel (j'ai déja eu des problèmes à cause de
ça)

Mais tu peux aussi récupérer tes donné à l'activation de
ta Userform :
1- Double clique sur ta userform
2- écris cette macro :

Private Sub UserForm_Initialize() 'macro qui s'active au
lancement de l'userform

'ton code pour récuperer ta variable

End Sub


ça te va ?

-----Message d'origine-----
Bonsoir,

Je me decide à laisser un post car je pense qu'on peut
faire mieux que ce

que je fais !!!

J'ai un petit userform (utilitaire) qui me permet de
définir une date.

L'idée est que depuis une cellule de feuille (mais aussi
depuis un autre

userform), je l'appelle ; je récupère la date (s'il y en
a une) ; je la

change ; puis je la réinsère.

Actuellement, je place cette "variable intermédiaire"
dans une feuille du

classeur que je rends invisible car je ne sais faire que
ça.


Comment puis-je "passer" un paramètre au userform et le
restituer sans

intermédiaire (!!) afin de rendre ce userform 'autonome'
et générique

(utilisable dans plusieurs applications). La
commande 'Userform.Show' ne me

laisse pas passer de paramètre.

Merci de votre aide

Gilles


.