Création User form

[daniel]

Bonjour à tout le forum !!

J'ai créer mon premier User forme nommé EXTRACTION !

Il est très simple : 6 CheckBox uniquement !

En fait, chaque case CheckBox renvoie à une macro!
- Si je coche la CheckBox1 uniquement, la macro doit lancer la macro nommée 'EXTRACTION1'
- Si je coche 3 CheckBox (CheckBox1;CheckBox2;CheckBox5), la macro doit lancer la macro nommée 'EXTRACTION1';'EXTRACTION2';'EXTRACTION3'

Voilà! je sais pas trop comment faire! S'il faut des dim, string as .... !!!!!! Un metit coup de main serait vraiment pas de refus!

J'ai préparé tout le user forme avec un bouton annuler également qui à ce code (ai-je oublié quelque chose) :
Private Sub Annuler__Click()
Unload extraction
End Sub

Merci de votre aide!!!

 

[Hervé]

Bonjour daniel, le forum

Lorsque tu as ton userform en vba affiché, double clic sur un controle, par exemple le checkbox1.

Ceci va te préparer une macro :

Private Sub CheckBox1_Click()

End Sub

Cette macro se déclenchera chaque fois que tu cliqueras sur la checkbox1.

Si tu veux limiter le déclenchement de l'action au fait que la chekbox soit cochés (c'est à dire, si la checkbox n'est pas coché on fait rien)

il te faut testé la valeur du checkbox, vérifié si celui est true (coché) ou false (décochez)

Pour ceci il suffit de vérifié le value de la checkbox.

enfin pour lancer une autre procédure, il faut simplement indiquer son nom, attention la procédure à lancer doit être public.

en somme ton code devrait ressembler à ceci :

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then extraction1
End Sub

salut

 

[deudecos]

Bonjour Daniel, le forum,

Personnellement, je ne sais pas declencher une macro a partir d'un checkbox, mais si tu veux, il est possible de faire autrement.

Private Sub Commandbutton1_click()
if userform1.checkbox1 = true then
'la tu place le code de ta macro concernee
end if

if userform1.checkbox2 = true then
'pareil que precedement
end if

Meme chose pour les autres checkbox

End sub

et en principe, tu obtiens l'effet desire

Bonne journee

Olivier

Ps, desole Herve, pas vu venir 🙂
Euh, juste une question Herve.
si tu fais Private Sub Checkbox1_click()
ca va te declencher la macro des que le checkbox sera clique non ?
je crois savoir que Daniel veut pouvoir en clicquer plusieurs, ca marche quand meme ?

Message édité par: Deudecos, à: 07/08/2005 11:15

Message édité par: Deudecos, à: 07/08/2005 11:21

 

[Daniel]

Bonjour Hervé et deudecos !

Merci beaucoup! ça marche 🙂 !! voilà mon code :

If CheckBox1.Value = True Then Application.Run 'EXTRACTION1'
If CheckBox2.Value = True Then Application.Run 'EXTRACTION2'
If CheckBox3.Value = True Then Application.Run 'EXTRACTION3'
If CheckBox4.Value = True Then Application.Run 'EXTRACTION4'
If CheckBox5.Value = True Then Application.Run 'EXTRACTION5'
If CheckBox6.Value = True Then Application.Run 'EXTRACTION6'
If CheckBox7.Value = True Then Application.Run 'EXTRACTION7'
Unload extraction

A bientôt!!!

 

[Hervé]

re daniel, bonjour deudecos

oui deudecos, ca revient au meme.

Dans n'importe qu'elle cas tes macros se déclencheront l'une après l'autre, ensuite c'est à toi de savoir quand tu veux déclencher celles-ci.

soit à chaque fois que l'on clique sur le controles, soit on regroupe les informations des checkbox et on déclenche les macros en appuyant sur un bouton.

Salut et bon dimanche


🙂