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