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

[zx10]

Bonsoir,
Merci, bbil.
J'avais essayer de passer r en parametre mais j'avais pas mis.

Code :

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

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.
Merci encore pour tout.

[SfJ5Rpw8]

ben en déclarant la fonction.. Ecrit:

Code :

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

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 :

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

option explicit

avec cette ligne VB vérifie au moment de la compilation que toutes les variables sont déclarées et accessibles...

[zx10]

Ok bbil et encore merci.