Validation de données, choix multiples, Exce

Bonjour,

Le lieux est que tu déposes un fichier exemple (avec des précisions de ce que tu désires dessus) sur cijoint.fr et que tu colles le lien ici
eric

Eriiic,
Voici mon exemple avec toutes les précisions.
Je te remercie d'avance pour ton aide.

https://www.cjoint.com/?0FyrRpdOYLo

Amélie

Bonjour,

Je vais t'expliquer mais sur excel 2003, il te faudra trouver l'équivalent sur 2007 (sur vba : aucune différence)

1) nommer les listes :
sélectionner A1:A29, menu 'insertion / nom / créer...', cocher 'ligne du haut' et valider.
La plage A2:A29 se trouve nommée Logiciels_de_calcul (les espaces interdits ont été remplacés par _)
Faire de même sur toutes les listes.
Si la liste doit s'étendre, insérer des celulles avant la dernière, ainsi la définition de la plage s'étendra toute seule.

2) Copier le code de Feui1 de l'exemple, le coller dans Liste CV (clic-droit sur le nom de l'onglet, choisir 'visualiser le code pour y acceder)

Adapter le code :

    Worksheets("Listes").Activate
    ' init listes
    If Target.Column = 2 Then
        'initialiser la liste
        UserForm1.ListBox1.RowSource = [Liste2].Address
    ElseIf Target.Column = 3 Then
        'initialiser la liste
        UserForm1.ListBox1.RowSource = [Liste1].Address
    End If

qui devient :

    Worksheets("Liste Logiciels").Activate
    ' init listes
    If Target.Column = 4 Then
        'initialiser la liste
        UserForm1.ListBox1.RowSource = [Logiciels_de_calcul].Address
    ElseIf Target.Column = 5 Then
        'initialiser la liste
        UserForm1.ListBox1.RowSource = [Logiciels_CAO_3D_2D_et_Robotique].Address
    ElseIf Target.Column = 6 Then
        'initialiser la liste
        UserForm1.ListBox1.RowSource = [PLM_et_Docs_Techniques].Address
    End If

On ne voit pas bien mais les parties modifiées/ajoutées sont en gras.

3) faire un cliqué-glissé du userform de mon projet vers le tiens (la fenetre 'Projet' de vbe doit être affichée, voir menu 'Affichage si besoin)
Si tu construis ton userform la propriété MultiSelect de la listbox doit être : fmMultiSelectExtended

4) inserer un module (clic-droit sur le projet) et y mettre :
Public selectionListe As String

5) tester...

http://www.cijoint.fr/cjlink.php?file=cj201106/cijten1R6y.xls

eric

De rien
N'oublie pas de mettre en résolu
eric