Simplification de code avec une procedure

Version imprimable

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:

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:

1 2 Call Ecrit(a)
Comment puis je faire.:cry:
Merci.:)

03/12/2006, 13h01
SfJ5Rpw8

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

Code:

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é:roll:

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

par exemple ...
Code:

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 = ... (...)

03/12/2006, 15h37
zazaraignée

Salut

Ne devrais-tu pas passer r en paramètre dans ta procédure Ecrit?
03/12/2006, 15h39
SfJ5Rpw8

Citation:

Envoyé par zazaraignée

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 :mrgreen: ici
03/12/2006, 17h40
zx10
Bonsoir,
Merci, bbil.
J'avais essayer de passer r en parametre mais j'avais pas mis.
Code:

1 2 Dim r As Range
Mais pourquoi je suis obliger de declarer r as range alors que dans mon code de depart je ne l'ai pas et ca marche.:?
Je suis pas un pro je fais ca pour le plaisir et souvent des choses m'echappent.:oops:
Merci encore pour tout.
03/12/2006, 18h06
SfJ5Rpw8
ben en déclarant la fonction.. Ecrit:
Code:

1 2 Private Sub Ecrit(ByVal a As Long, r as range
on spécifie que le 2° paramétre doit être un range...

ensuite VB est plutôt souple sur la déclaration de variables.. et si tu ne fais pas il "le fait" pour toi .. et dans ton cas déclare une variable locale r en Variant..le "locale" signifiant que sa portée est limité à la procédure dans laquelle elle la variable est déclarée.. ce qui fait que tu ne peu y accéder ailleurs...Cette "souplesses" à ses reverts et peu amener as des erreurs .. ( erreur de frappe sur le nom de variables, variables locale sur lesquelles on pense pouvoir intervenir depuis une procédure hors de portées...) pour éviter cela ... rajoute en haut de ton projet la ligne :

Code:

option explicit

avec cette ligne VB vérifie au moment de la compilation que toutes les variables sont déclarées et accessibles...;)
03/12/2006, 19h30
zx10

Ok bbil et encore merci.