Discussion :

[zx10]

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

Le problème c'est qu' il me dit un objet est requis. Apparament j'ai un probleme avec ma feuille excel.
J'appele la procedure par

Code :

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

1
2
 
Call Ecrit(a)

Comment puis je faire.
Merci.

[SfJ5Rpw8]

ben .. ta variable r...? elle est déclaré/initialisée ou ...?

[zx10]

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
 
Private Sub Cmdok_Click()
Set r = wsExcel.Cells(1, 1)
    Dim liMyListItem As ListItem
 
If Cmbchoix().ListIndex = 0 Then
 a = 0
   For y = 0 To 10000
        If Cmbpremierchoix().Text = r.Offset(a, 4).Value Then
            Call Ecrit(a)
        End If
        a = a + 1
        If r.Offset(a, 1).Value = "" Then Exit For
    Next y
End If
End Sub
 
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

Une ideé

[SfJ5Rpw8]

bon il on ne voit toujours pas de déclaration pour la variable r.. ( une ligne Dim...)

par exemple ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Cmdok_Click()
Dim r as range
Set r = wsExcel.Cells(1, 1)

(...) 
Call Ecrit(a,r)
(...)

End sub

Private Sub Ecrit(ByVal a As Long, r as range)
          Set liMyListItem = ...
(...)

[zazaraignée]

Salut

Ne devrais-tu pas passer r en paramètre dans ta procédure Ecrit?

[SfJ5Rpw8]

Salut

Ne devrais-tu pas passer r en paramètre dans ta procédure Ecrit?

bonjour Zaza ... merci pour le rajout d'une description à mes suggestions de modification de codes ici