Simplification de code avec une procedure

**zx10** · 03/12/2006, 12h39

Bonjour,

Sur ma feuille frmrecherche j'ai un cmdOk qui me remplis une listview en fonction des selections faites dans des combobox.
Ca marche tres bien avec une serie de if qui verifie ce qui est demandé au niveau de la recherche.
Mon probleme c'est qu'une partie de mon code revient plusieur fois.
Donc je pensais créer une procedure du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Ecrit(ByVal a As Long)
          Set liMyListItem = frmresultat.ListView1.ListItems.Add(, , r.Offset(a, 0).Value)
          liMyListItem.ListSubItems.Add(1) = r.Offset(a, 1).Value
          liMyListItem.ListSubItems.Add(2) = r.Offset(a, 2).Value
          liMyListItem.ListSubItems.Add(3) = r.Offset(a, 3).Value
          liMyListItem.ListSubItems.Add(4) = r.Offset(a, 4).Value
          liMyListItem.ListSubItems.Add(5) = r.Offset(a, 5).Value
          liMyListItem.ListSubItems.Add(6) = r.Offset(a, 6).Value
          liMyListItem.ListSubItems.Add(7) = r.Offset(a, 7).Value
          liMyListItem.ListSubItems.Add(8) = r.Offset(a, 8).Value
          liMyListItem.ListSubItems.Add(9) = r.Offset(a, 9).Value
End Sub