bonjour,
lorsque j'exécute ce code de recherche, il me retourne une erreur
Run-time error 1004
Application-Defined or object-defined error
pour info nombre de ligne 484, colonne 6
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
une idée merci
Partager