[E-03]Problème tableau

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:

---

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

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

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 :aie:
Ensuite, si tu déclares feuille as Worksheet, tu peux simplifier

Code:

---

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'

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

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 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

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

voilà pourquoi je commencais ma boucle par

Code:

---

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

Essaie

Code:

---

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

Cela ne change rien

Il manque toujours la colonne f dans la listbox

je renvoie le fichier

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

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

ok pgz


je n'avais vu le changement dans la ligne

Code:

---

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

---

Autant pour moi

Citation:

---

Envoyé par stargates

Autant pour moi

---

Et au temps en emporte l'évent.;)

PGZ