Execution d'une liste à choix multiple( à l'aide d'une userforme)

Signaler
Messages postés
11
Date d'inscription
lundi 7 juillet 2008
Statut
Membre
Dernière intervention
22 juillet 2008
-
Messages postés
11
Date d'inscription
lundi 7 juillet 2008
Statut
Membre
Dernière intervention
22 juillet 2008
-
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!!!!

1 réponse

Messages postés
11
Date d'inscription
lundi 7 juillet 2008
Statut
Membre
Dernière intervention
22 juillet 2008

Please help.....

merci d'avance!