Discussion :

[avocatier42]

Bonjour à tous.

Je suis coincé par quelque chose que je ne comprends pas.

J'ai regardé comment fonctionne .find et je remercie le forum pour les informations précieuses.

Je sais ce bout de code n'est pas optimisé, ni bien rédigé (pique même très probablement les yeux ), j'ai de plus remplacé les is nothing par des "" ou pas non, mais mon problème existait aussi bien avec la rédaction is nothing (je la reprendrai comme cela par la suite).

Pour vous expliquer un peu plus le problème.

J'ai un userform et une base de données. Je veux via une textbox saisir la donnée que je cherche, et que les résultats trouvés sur les différentes lignes ainsi que les données des colonnes sur ces mêmes lignes soient inscrit dans une listbox.

Quand je déroule pas à pas via F8 le code, tout se passe très bien et j'ai les résultats attendus qui s'écrivent.

Malheureusement quand je lance le userform sans passer par un point d’arrêt ou par le pas à pas ça bug!

Je ne comprends pas pourquoi.

A toute fin utile voici le code rédigé dans le userform

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
37
38
39
40
41
42
43
44
 
 
Private Sub rec_Click()
 
Dim trouvecellule As Range
Dim premadresse As String
Dim myarray7(5000, 5) As Variant
h = 0
 
With Worksheets("feuil1").Range("D2:D5000")
 
Set trouvecellule = .Find(reparnom.Value)
 
If trouvecellule <> "" Then
     premadresse = trouvecellule.Address 
 
End If
 
  Do Until trouvecellule = ""
 
     t = trouvecellule.Row
     myarray7(h, 0) = Cells(t, 4)
     myarray7(h, 1) = Cells(t, 5)
     myarray7(h, 2) = Cells(t, 6)
     myarray7(h, 3) = Cells(t, 8)
     myarray7(h, 4) = t
     Set trouvecellule =Range("D1:D5000").FindNext(after:=trouvecellule)
 
  If trouvecellule.Address = premadresse Then
 
         GoTo 2
 
     End If
     h = h + 1
 
Loop
End With
 
2 resu.ColumnCount = 5
resu.ColumnWidths = "60;280;200;320,15"
   resu.List() = myarray7
 
 
End Sub

Merci à vous tous pour votre aide et très bonne soirée.

[ARTURO83]

Bonjour,

Dans cette ligne de code:

Code :

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

resu.ColumnWidths = "60;280;200;320,15"

il faut remplacer la virgule par un point et les points virgules par des virgules.

puis votre code modifié mais non testé:

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
Private Sub rec_Click()
    Dim TrouveCellule As Range
    Dim PremAdresse As String
    Dim Myarray7(5000, 5) As Variant
    h = 0
    With Worksheets("feuil1").Range("D2:D5000")
        Set TrouveCellule = .Find(reparnom.Value, lookat:=xlWhole)
        If Not TrouveCellule Is Nothing Then
            PremAdresse = TrouveCellule.Address
            Do
                t = TrouveCellule.Row
                Myarray7(h, 0) = Cells(t, 4)
                Myarray7(h, 1) = Cells(t, 5)
                Myarray7(h, 2) = Cells(t, 6)
                Myarray7(h, 3) = Cells(t, 8)
                Myarray7(h, 4) = t
                Set TrouveCellule = .FindNext(TrouveCellule)
                h = h + 1
            Loop While Not TrouveCellule Is Nothing And TrouveCellule.Address <> PremAdresse
        End If
    End With
    resu.ColumnCount = 5
    resu.ColumnWidths = "60,280,200,320.15"
    resu.List() = Myarray7
End Sub

Cdlt

[avocatier42]

Bonjour,
Merci pour votre retour.
Une avancée car ça ne plante plus mais il reste un problème toujours pas à pas vs exécution normale.
En pas à pas par F8 les données remontent et s'écrivent bien dans la listbox.
En revanche en mode exécution seule la valeur issue de la ligne suivante remonte.

Code :

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

 Myarray7(h, 4) = t

Les valeurs stockées dans myarray7(h,0) jusqu'à (h,3) restent désespérément vides. Comme si le = n'était pas lu car la valeur de cells (t,4)... sont bien remontées et bien les bonnes

Code :

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

1
2
3
4
5
 Myarray7(h, 0) = Cells(t, 4)
                Myarray7(h, 1) = Cells(t, 5)
                Myarray7(h, 2) = Cells(t, 6)
                Myarray7(h, 3) = Cells(t, 8)
                Myarray7(h, 4) = t

En pas à pas pas de problème les valeurs stockées dans myarray7(h,0) jusqu'à (h,3) le = est bien appliqué.

Code :

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

1
2
3
4
5
 Myarray7(h, 0) = Cells(t, 4)
                Myarray7(h, 1) = Cells(t, 5)
                Myarray7(h, 2) = Cells(t, 6)
                Myarray7(h, 3) = Cells(t, 8)
                Myarray7(h, 4) = t

Première fois que je vois cela...

Merci à vous

Cdlt

[ARTURO83]

Je vois aussi que vous déclarez la listbox avec 5 colonnes, mais il n'y a que 4 largeurs de colonnes paramétrées. j'ai fait un test en mettant en remarque cette ligne et ça fonctionne, regardez de ce côté là.

[jurassic pork]

hello,
j'ai fait un test de performance en utilsant trois méthodes différentes sur une colonne de 5000 éléments comportant des fruits tirés aléatoirement parmi 18 fruits.
Les 3 méthodes sont :
1 - Par Find
2 - Par Match
3 - Par Tableau de variants



Voici les résultats :

=========================================================
RechercheFind : Trouvés : 305 Temps : 91,4669000012509 ms
Remplissage Liste : 4,93780000033439 ms
=========================================================
RechercheMatch : Trouvés : 305 Temps : 9,10300000032294 ms
Remplissage Liste : 4,80890000108047 ms
=========================================================
RechercheVarTab : Trouvés : 305 Temps : 7,35640000129933 ms
Remplissage Liste : 3,55789999957778 ms
=========================================================

A noter que la méthode Find n'utilise pas tout à fait celle de Avocatier car celle-ci plante lorsqu'il n'y pas de résultat.
Le Remplissage de la listbox est un peu plus rapide dans la dernière méthode car seulement les résultats remplissent la listBox.

Si cela intéresse des personnes d'avoir le code ou le classeur de test, je peux le mettre à disposition ici.

Il est à noter que pour l'opération demandée on peut aussi utiliser un filtre.

Ami calmant, J.P

[wouana19]

Hello jurassic pork,

Merci pour ton Chronométrage... je ne pensais pas que Find était si lent, j'éviterai de l'utiliser pour mes grands listings

Ton message m'intrigue...

Je connais la méthode avec Find ainsi que celle avec un tableau de variant.
Par contre avec Match je ne comprend pas comment tu utilises cette fonction. Match permet de retrouver 1 seul enregistrement (un peu comme RechercheV). comment procèdes-tu pour utiliser cette fonction et retrouver plusieurs enregistrement ?

Merci d'avance pour ta réponse.