Formulaire Checkbox choix multiples

[boyz]

Bonjour,

Je suis débutant en VBA et suis confronté à quelques problématiques.
Je souhaiterais faire un formulaire à choix multiple avec des cases à cocher. J'aimerai également intégrer une zone de saisie dans le formulaire afin d'ajouter une réponse qui ne serait pas intégrée dans les réponses pré enregistrées. Une fois les réponses cochées et/saisies , j'aimerai que ces dernières apparaissent les unes en dessous des autres dans la même cellule. Dans mon exemple il s'agit du cadre où figure le mot "recommandations".

Vous pouvez trouver en pièce jointe mon exemple.

Par avance merci beaucoup.

 

[Tibo62]

Re : Formulaire Checkbox choix multiples

Bonjour
Attention déjà tu utilises des Optionbutton plutôt que des case à cocher ce qui fait que tu ne peux en sélectionner qu'une seule et unique dans ton Frame.
Ensuite tu veux savoir quel case a été cocher mais peut-il y en avoir plusieurs?

 

[boyz]

Re : Formulaire Checkbox choix multiples

Bonjour Tibo62,

Oui il est possible d'avoir plusieurs réponses.

Merci pour l'info, j'ai un peu changé mon poste initial ainsi que l'exemple

 

[BOISGONTIER]

Re : Formulaire Checkbox choix multiples

Bonjour,

Exemple choix multiples dans un ListBox options

http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DVChoixMultOption.xls

JB

 

[boyz]

Re : Formulaire Checkbox choix multiples

Bonjour et merci pour vos réponses,

j'ai pratiquement ce que je veux. Je souhaiterais pour terminer que la cellule qui accueille les données de la textbox se dimensionne automatiquement par rapport au contenu. SI quelqu'un a une idée je suis preneur.

Merci

 

[Moms05]

Re : Formulaire Checkbox choix multiples

Bonjour à tous,

J'aimerais exporter le code VBA du fichier DVChoixMultListBoxOption.xls pour pouvoir l'utiliser dans un de mes fichiers excel. Je fais donc bien le copier coller du code mais le soucis est que cette partie du code :

Private Sub ListBox1_Change()
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then temp = temp & Me.ListBox1.List(i) & " "
Next i
ActiveCell = Trim(temp)
End Sub

n'a pas l'air de fonctionner dans mon fichier alors qu'elle est retranscrite de manière identique dans le fichier d'origine. En gros, je vois ma listbox1_change dans la partie Déclaration et non dans celle Générale.

Je précise que je suis sous excel 2010, le problème vient peut être de la ?

Merci d'avance pour votre aide!

 

[Moms05]

Re : Formulaire Checkbox choix multiples

UP please...🙁