Bonjours,

J'ai un tableau de salariés avec leur contrat (feuille contrat):

nom-contrat1-debut - fin
claire-cdd- 01/01/05-01/02/05
lucile-cdd- 01/01/05


J'aimerais créer une zone multi sélection avec seulement les salariés sortis:


mon idée était de copier tous les salariés ayant fini un contrat dans une autre feuille puis de faire ma zone de liste.
je n'arrive déjà pas à faire une copie multiple d'après un critère, voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Dim i As Integer
Dim r As Boolean
Dim iL As Range
 
For i = 2 To 50
If Worksheets("contrat").Cells(i, 5) <> "" Then
Set iL = Rows(i)
End If
Next
 
 
 
iL.Select
iL.Copy
 
Worksheets("sortie").Select
Range("a2").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
 
 
salsorti.RowSource = sortie!("a2:d10")
salsorti.ColumnCount = 5
 
salsorti.ListStyle = fmListStyleOption
salsorti.MultiSelect = fmMultiSelectMulti
salsorti.IntegralHeight = True
salsorti.ColumnHeads = True
salsorti.ColumnWidths = "8cm;2cm;2cm;2.5cm;2.5cm"
peut_être y a t-il un moyen plus court, je ne sais pas!

merci bcp