Discussion :

[cyberboy00]

Bounjour,
j'ai un "gros" fichier excel (40000 lignes) et je dois faire une recherche dedans, je trouve que ça prends beaucoup de temps (35s par recherche)avec ce code:

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
'--------------------------------------------------------------------------
 If CODINSE <> "" Then
    Count = 2
    Do
If CODINSE = Workbooks("Application_usage.xls").Sheets("Liste_code_Insee").Range("B" & Count).Value Then
val1 = Workbooks("Application_usage.xls").Sheets("Liste_code_Insee").Range("C" & Count).Value
 
val2 = Workbooks("Application_usage.xls").Sheets("Liste_code_Insee").Range("D" & Count).Value
 
val3 = Workbooks("Application_usage.xls").Sheets("Liste_code_Insee").Range("E" & Count).Value
    Exit Do
 
        Else: Count = Count + 1
    End If
    Loop Until (Count > Workbooks("Application_usage.xls").Sheets("Liste_code_Insee").Range("B1").End(xlDown).Row)
-------------------------------------------------------------------------

Je voudrais savoir s'il y a une fonction pour optimiser la vitesse de recherche dans une feuille excel.

Merci d'avance.

[ouskel'n'or]

Trouvé !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim Plage1 as variant
Dim Plage2 As Range
Dim c As Range
Plage1 = Range("A2:A5").Value
Set Plage2 = Range("A10:A74")
    With Plage2
        Set c = .Find(Plage1)
        If Not c Is Nothing Then
            MsgBox c.Address
        End If
End With
End Sub

Je crée une instance de la plage où chercher et j'utilise value pour trouver Plage1 dans Plage2
Tu dis si tu as un pb pour adapter
A+

PS - Dans cet exemple, je cherche dans la même feuille... tu adaptes
Edit
c.address donne l'adresse de la première cellule de la plage trouvée.
Si tu veux avoir la plage, tu mets

Code :

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

1
2
3
4
5
        nbLigne = Range("A2:A5").Rows.Count 'après Plage1 = ....
        'et dans le with
        If Not c Is Nothing Then
            MsgBox c.Address & ":" & c.Offset(NbLignes, 0).Address
        End If

[Jean-Pierre49]

Bonjour ouskel’nor


Chez moi :

Code :

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

Plage1 = Range("A2:A5").Value

Ne prend que la valeur en A2

Si ma valeur recherchée est en A10 et A14 l’adresse est celle de la cellule A14

Est un problème de version ?

[ouskel'n'or]

Testé, ok.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim Plage1 As Variant, NbLig As Integer
Dim Plage2 As Range
Dim c As Range
    Plage1 = Range("A2:B5").Value
    NbLig = Range("A2:B5").Rows.Count
    Set Plage2 = Range("A10:B74")
    With Plage2
        Set c = .Find(Plage1)
        If Not c Is Nothing Then
            MsgBox c.Address & ":" & c.Offset(NbLig, 1).Address
        End If
    End With
End Sub

[Jean-Pierre49]

Je ne comprend pas ce qu'on cherche à trouver.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim Plage1 As Variant, NbLig As Integer
Dim Plage2 As Range
Dim c As Range
    Plage1 = Range("A2:B5").Value
    NbLig = Range("A2:B5").Rows.Count ' ????
    Set Plage2 = Range("A10:B74")
    With Plage2
        Set c = .Find(Plage1)
        If Not c Is Nothing Then
            MsgBox c.Address & ":" & c.Offset(NbLig, 1).Address ' Pourquoi NbLig        End If
    End With
End Sub

Si non j'ai toujours le même problème

[cyberboy00]

Testé, ok.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim Plage1 As Variant, NbLig As Integer
Dim Plage2 As Range
Dim c As Range
    Plage1 = Range("A2:B5").Value
    NbLig = Range("A2:B5").Rows.Count
    Set Plage2 = Range("A10:B74")
    With Plage2
        Set c = .Find(Plage1)
        If Not c Is Nothing Then
            MsgBox c.Address & ":" & c.Offset(NbLig, 1).Address
        End If
    End With
End Sub

Désolé je suis débutant en VBA et je n'ai pas compris cette solution, je ne sais pas comment je pourrais l'adapter à mon code ci-dessus.
Ce que je veux c'est qu j'ai une valeur (CODINSE) déjà renseigner, et je voudrais la chercher dans une plage "B2:B40000" une fois trouvée je veux prendre les valeurs des lignes qui lui correspond. C-à-d
par exemple: si la valeur CODINSE est trouver en B5 alors :
val1=valeur de C5
val2=valeur de D5
val3=valeur de E5

et encore MERCI pour toutes vos aides.

[Jean-Pierre49]

Bonjour,

La Valeur CODINSE est unique ds "B2:B40000"?

[Jean-Pierre49]

A adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Plage2 As Range
Dim c As Range
Dim c1 As Range
Set Plage2 = Range("B2:B40000")
 
    For Each c In Plage2
         If c.Value = CODINSE Then
         Set c1 = c
            Val1 = c1.Offset(0, 1)
            Val2 = c1.Offset(0, 2)
            Val3 = c1.Offset(0, 3)
        End If
    Next

[cyberboy00]

Bonjour,

La Valeur CODINSE est unique ds "B2:B40000"?

Oui elle est unique.

[Jean-Pierre49]

Alors ça devrait fonctionner

[neupont]

Et une adaptation simplifiée du code de Ouskelnor ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
 
Dim c As Range
 
Set c = Sheets(1).Range("B:B").Find(what:=CODINSE, lookat:=xlWhole)
If Not c Is Nothing Then
            Val1 = c.Offset(0, 1)
            Val2 = c.Offset(0, 2)
            Val3 = c.Offset(0, 3)
 
End If
 
End Sub

Pas testé...

[cyberboy00]

Alors ça devrait fonctionner

Hélas les " c1.Offset(0, 1), c1.Offset(0, 2), c1.Offset(0, 3)" ne retourne aucune valeur!!

[Jean-Pierre49]

Bonjour neupont

Testé : ça marche aussi

[ouskel'n'or]

En effet, il y a plus simple pour chercher une valeur dans une plage.
Ton code laissait penser que tu cherchais la correspondance d'une PLAGE de cellules dans une autre, non d'une valeur.
Et pour ça, tu avais un exemple dans l'aide en ligne à Find... (repris et adapté par Jean-Pierre et Neupont)
Mais encore fallait-il connaître "Find"
Bonne journée

[Jean-Pierre49]

Redonne le code complet

Chez moi ça renvoi bien des valeurs aussi que le ciode de neupont

[cyberboy00]

ça marche!!!
Merci à TOUS

[neupont]

Chez moi ça renvoi bien des valeurs aussi que le code de neupont

Malheureusement ça se vend moins bien que le Da Vinci code...