Discussion :

[hantran]

Bonjour,

Je ne connais pas du tout les UserForm, je ne sais rien comment ils marchent. Je sais qu'il y a beaucoup des tutos sur cet notion mais j'ai besoin de créer rapidement quelques UserForm simple, alors que me plonger dans ces tutos me demande un peu plus de temps.

Ce que je veux c'est dans un premier temps :
- On clique sur un bouton, ça m'affiche un UserForm avec 2 bouton à cocher tout bêtement, et on ne peut cliquer sur l'un des deux.
- Ensuite, si la checkbox2 est sélectionnée, on affiche le 2ème UserForm avec un ComboBox, et je récupère ce qui est sélectionné dans le ComboBox dans un variable pour l'utiliser après.

Voila je crois que ça vous prendre dix petits minutes de rien du tout mais ça va m'aider beaucoup

Merci

[Tempas]

Pour ajouter des valeurs dans ta combobox (elle s'appelle ComboBox1)

Code :

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

1
2
3
4
    ComboBox1.AddItem 1
    ComboBox1.AddItem 2
    ComboBox1.AddItem 3
    ComboBox1.AddItem "Texte dans la combobox"

Pour récupérer la valeur de la combobox, tu fais:

Code :

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

1
2
3
4
dim taVariable as (ton type) ' taVariable est le nom de ta variable bien évidemment 
'et ton type, le type de valeurs dans ta combobox (String pour 
'des chaines de caractères, integer pour des chiffres sans virgules etc...)
taVariable = ComboBox1.value

[isfet]

Code :

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

1
2
3
Public Sub combobox1_change()
' ici seront exécutés les action lors du changement de valeur de ta combo box
End sub

tu peux voir deux arguments "combobox1" et "_Change" tu peux remplacer combobox1 par checkbox1 ou ce que tu veux, et _change par _click , ou _afterupdate et bien d'autres, cela te permet par exemple de d'afficher un formulaire si on change la valeur de ta checkbox1

Code :

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

1
2
3
4
5
6
Public Sub checkbox1_change()
if checkbox1.value = true then
  userform1.hide
  userform2.show
endif
end sub

bref j'espere t'eclairer sur tes form

[hantran]

Merci à vous, en fait en attendant d'avoir un message dans ce sujet, j'ai essayé de faire moi même des UserForm et j'ai obtenu quelque chose de pas très mal. Et avec vos réponses ça sera amélioré.

Une petite question rapidement : Quand on fait UserForm1.Show, et puis on sélectionne un CheckBox1, la prochaine fois quand UserForm1 s'affiche, le CheckBox1 reste coché. Comment corriger cet problème? J'ai essayé

Code :

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

1
2
3
4
 
UserForm1_Initialize()
CheckBox1.Value = False
CheckBox2.Vallue = False

Mais ça ne semble pas fonctionner.

[laetitia]

re, avec quel code tu fermes ton user ???

si tu utilise hide normal!!!

Code :

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

1
2
3
 UserForm1.Hide 'cache user mais decharge pas en memoire
  Unload Me 'ferme user sur lequel tu te trouve & decharge en memoire
  Unload UserForm10 'idem ferme user nommee

[hantran]

Code :

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

1
2
3
4
 
UserForm1_Initialize()
CheckBox1= False
CheckBox2= False

ça ne change rien, j'ai essayé

Code :

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

1
2
3
 
Unload Me 'ferme user sur lequel tu te trouve & decharge en memoire
Unload UserForm10 'idem ferme user nommee

j'ai utilisé UserForm1.Hide, car je veux juste masquer UserForm et non pas décharger, si je fait Unload Me, les lignes de code qui suivent qui se trouve dans la macro ne marche plus. Ou alors je fait Unload Me dans la macro ? mais dans ce cas Me sera plus UserForm, je me trompe?

@laetitia: pourquoi les buttons? quelle est la différence? (c'est une question)

[laetitia]

bonjour hantran isfet Tempas le forum pourquoi tu utilise pas 2 optionbutton a la place des CheckBox???