Execution d'une liste à choix multiple( à l'aide d'une userforme)
cs_mimi0
Messages postés11Date d'inscriptionlundi 7 juillet 2008StatutMembreDernière intervention22 juillet 2008
-
21 juil. 2008 à 18:40
cs_mimi0
Messages postés11Date d'inscriptionlundi 7 juillet 2008StatutMembreDernière intervention22 juillet 2008
-
22 juil. 2008 à 09:37
bonjour,
voici mon PB:
j'ai crée un tableau exel avec plusieur colonne, pour la colone M j'ai crée une macro et une userforme avec trois controles:
-controle label: categories des données
-controle list box: liste( à achois multiple) 8 choix
-controle command button: valider
vous l'avez compris le but est de pouvoir selectionner les choix souhaitées et de les avoirs dans la meme cellules , separé par une virgule ou autre choses;et ensuite que la cellule de la colone2 dans laligne qui suis la derniere ligne remplie( due la validation des choix) dans la colonne M devienne en vert .
en suite en allant dans la meme ligne et en se positionnant dans la colonne M, ben en clikant sur cette cellule que la fenetre avce les choix aparaissent :
voici mon code :
dans le module
Sub liste()
fmListBox1.Show
End Sub
dans userforme
Private Sub cbCategories_Click()
End Sub
Private Sub lbCategories_Click()
End Sub
Private Sub UserForm_Activate()
If cbCategories.ListCount = 0 Then
cbCategories.AddItem "Données d'Identification ( nom,prénom,sexe,initiales,n°d'ordes,date et lieu de naissances,,,)"
cbCategories.AddItem "NIR, n° de securité socialeou consultation du RNIPP"
cbCategories.AddItem "Situation Familiale"
cbCategories.AddItem "Formation- Diplômes-Distinctions"
cbCategories.AddItem "Vie professionnelle"
cbCategories.AddItem "Situation écomonique et financiére"
cbCategories.AddItem "Moyens de déplacement des personnes"
cbCategories.AddItem "Informations relatives aux infractions , condamnations ou mesures de sûreté"
End If
End Sub
Private Sub cmdValider_Click()
Dim compteur As Single
Range("M4").Select
For compteur = 0 To (cbCategories.ListCount - 1)
If cbCategories.Selected(compteur) = True Then
'Debug.Print cbCategories.List(compteur)
Selection.Value = cbCategories.List(compteur)
ActiveCell.Offset(1, 0).Select
End If
Next compteur
'Deselectionner les elements de la liste
For compteur = 0 To (cbCategories.ListCount - 1)
cbCategories.Selected(compteur) = False
Next compteur
'faire disparaitre la userform
fmListBox1.Hide
End Sub
si quelqu'un à la solution .....
merci d'avance!!!!
A voir également:
Execution d'une liste à choix multiple( à l'aide d'une userforme)