Discussion :

[stargates]

bonjour,


lorsque j'exécute ce code de recherche, il me retourne une erreur
Run-time error 1004
Application-Defined or object-defined error

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
32
33
34
35
36
Private Sub cboLocalite_Change()
Dim Plage As Range, Cell As Range
Dim Feuille As Worksheet
Dim Recherche As String
Dim ligne As Integer
Dim Tablo(483, 6)
Dim lig As Integer
Dim x As Integer

'Nombre de colonnes pour lstTrouver

lstTrouver.ColumnCount = 6
lig = 0
lstTrouver.Clear

Recherche = cboLocalite
If Recherche = "" Then Exit Sub

For Each Feuille In Worksheets
    ligne = Worksheets(Feuille.Name).Range("e65536").End(xlUp).Row
    Set Plage = Worksheets(Feuille.Name).Range("E2:E" & ligne)

      For Each Cell In Plage
          If Cell.Value Like Recherche & "*" Then
              For x = -1 To 4
              Tablo(lig, x + 1) = Cell.Offset(0, x - 4).Value  
              Next x

             lstTrouver.List() = Tablo
             lig = lig + 1
          End If

      Next Cell
Next Feuille
End Sub

pour info nombre de ligne 484, colonne 6


une idée merci

[pgz]

Bonjour.

Chaque 'Cell' est en colonne E (5). Donc pour x= -1, Cell.Offset(0,x-4) pointe la colonne 5 -1 -4 = 0.
Ce qui suffit à provoquer une erreur.

PGZ

[ouskel'n'or]

Ben oui, si tu commences ta boucle par -1 et ton offset à x - 4, ton N° de colonne sera "pas bien"
J'explique aux gens :
Cell correspond à une cellule de la colonne 5
Ta boucle commence à -1 donc x commence à -1. Si tu ajoutes -1 à x - 4 tu as -5 et 5 - 5 = 0 et donc cell.Offset(0, -5) c'est pas bien
Ensuite, si tu déclares feuille as Worksheet, tu peux simplifier

Code :

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

1
2
3
4
5
Dim feuille as Worksheet
For Each Feuille In Worksheets
    ligne = Feuille.Range("e65536").End(xlUp).Row
    Set Plage = Feuille.Range("E2:E" & ligne)
    '...

Bon app'

[stargates]

ok ca va un peu mieux mais il ne m'affiche pas la 6ieme colonne
dans mon listbox

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
32
33
34
35
36
 
Private Sub cboLocalite_Change()
Dim Plage As Range, Cell As Range
Dim Feuille As Worksheet
Dim Recherche As String
Dim ligne As Integer
Dim Tablo(483, 6)
Dim lig As Integer
Dim x As Integer
 
'Nombre de colonnes pour lstTrouver
 
lstTrouver.ColumnCount = 6
lig = 0
lstTrouver.Clear
 
Recherche = cboLocalite
If Recherche = "" Then Exit Sub
 
For Each Feuille In Worksheets
   ligne = Worksheets(Feuille.Name).Range("e65536").End(xlUp).Row
   Set Plage = Worksheets(Feuille.Name).Range("E2:E" & ligne)
 
       For Each Cell In Plage
         If Cell.Value Like Recherche & "*" Then
            For x = 0 To 5
             Tablo(lig, x + 1) = Cell.Offset(0, x - 4).Value
            Next x
 
           lstTrouver.List() = Tablo
           lig = lig + 1
         End If
 
       Next Cell
Next Feuille
End Sub

merci

[pgz]

Dans une listbox, l'objet List est un tableau qui va de 0 à Count-1.
Tu as peut-être un pb si tablo va de 1 à Count...

PGZ

[stargates]

voilà pourquoi je commencais ma boucle par

Code :

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

1
2
3
4
 
for x = -1 to 4
tablo(lig,x+1)......
next x

au premier passage tablo(0,0)
je perds mon latin


merci de ton aide

[pgz]

Essaie

Code :

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

1
2
3
4
5
6
7
Dim Tablo(0 To 482, 0 to 6) as ...
 
...
 
For x = 0 To 5
         Tablo(lig, x) = Cell.Offset(0, x - 4).Value
Next x

PGZ

[stargates]

Cela ne change rien

Il manque toujours la colonne f dans la listbox

je renvoie le fichier

[ouskel'n'or]

Je reprends le code de pgz
On part de la colonne de Cell, càd la colonne 5
Tablo(lig, 1) = Cell.Offset(0, 0 - 4).Value 'colonne 5 -4 = 1
Tablo(lig, 1) = Cell.Offset(0, 1 - 4).Value 'colonne 5 -3 = 2
Tablo(lig, 1) = Cell.Offset(0, 2 - 4).Value 'colonne 5 -2 = 3
Tablo(lig, 1) = Cell.Offset(0, 3 - 4).Value 'colonne 5 -1 = 4
Tablo(lig, 1) = Cell.Offset(0, 4 - 4).Value 'colonne 5 -0 = 5
Tablo(lig, 1) = Cell.Offset(0, 5 - 4).Value 'colonne 5 +1 = 6

Conclusion ? Soit ta colonne 6 n'existe pas dans ta liste mais comme tu as mis "lstTrouver.ColumnCount = 6"...
Il reste trois possibilités : Une largeur de listbox insuffisante, une largeur de colonne 6 insuffisante ou les deux...
Bonne soirée

[pgz]

Tu as fait ce que je te proposais dans le message précédent?
Moi je l'ai fait et ça marche.

L'initialisation du formulaire est longue, je trouve.

PGZ

[stargates]

ok pgz


je n'avais vu le changement dans la ligne

Code :

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

1
2
 
Tablo(lig, x) = Cell.Offset(0, x - 4).Value

Autant pour moi

[pgz]

Autant pour moi

Et au temps en emporte l'évent.

PGZ