Discussion :

[Fdc_53]

Bonjour,

J'ai récupéré une macro que j'ai modifiée, cependant mon problème est la lenteur de la macro quand le fichier est important + 20 000 ligne en feuille 2.

une autre idée? macro?

il s'agit de rechercher une valeur(feuille1) dans une autre feuille(feuille2) et de copier certaines valeurs de la ligne trouvée dans la feuille1

merci de votre aide

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
Sub test()
 
Dim lineNumber As Long
 
For lineNumber = 2 To Feuil1.Rows.Count Step 1
  If Feuil1.Range("A" & lineNumber) = "" Then Exit For
 
Worksheets("feuil2").Activate 'activer la feuille
 
    nomcherche = Sheets("Feuil1").Range("A" & lineNumber) 'valeur recherchée
 
    With Sheets("feuil2").Cells ' le point cells indique que nous cherchons la valeur dans tout la feuille
 
    Set cellule = .Find(nomcherche, LookIn:=xlValues)
            If Not cellule Is Nothing Then
                  i = cellule.Row 'n ligne de la valeur
                  Range("A" & i).Copy Worksheets("Feuil1").Range("B" & lineNumber) 'récupérer et copier la date
                  i = Empty 'on vide la variable
              Else
            End If
    End With
 
 
Next lineNumber
 
End Sub

[Menhir]

Quelques petites améliorations dans le code suivant.
Mais il ne faut pas rêver : quand on traites de grosses quantités de données, ça prend forcément du temps. VBA (et les différent Basic en général) n'est pas un langage réputé pour sa rapidité.

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim Cible As Range, Trouve As Range
 
For Each Cible in Worksheets("Feuil1").Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
    Set Trouve = Worksheets("feuil2").UsedRange.Find(Cible.Value, LookIn:=xlValues)
    If Not Trouve Is Nothing Then Worksheets("feuil2").Cells(Trouve.Row, 1).Copy Worksheets("Feuil1").Cible.Offset(0, 1)
Next Cible
 
End Sub

Pour gagner du temps, il faudrait remplacer le UsedRange du Find par une zone de recherche plus précise.

Cela dit, une combinaison de fonctions INDEX() et EQUIV() directement dans la feuille de calcul serait certainement plus rapide.

[Trystan441]

Bonjour,

Les données que vous cherchez sont toujours dans la même colonne ?

Sinon, dans un premier temps, vous pouvez essayer ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
sub VotreMacro
 
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
 
'Procédure
 
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

Bonne journée,

[Fdc_53]

Merci pour vos retours,

Malheureusement la valeur peut'être n'importe ou j'ai donc modifié

Code :

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

Lookat:=xlPart

Effectivement INDEX et EQUIV peuvent fonctionner mais je voudrais tout automatiser dans ma macro,

merci pour votre code plus rapide

[Fdc_53]

Bonjour,

dans le code précédemment transmis j'ai une erreur que je n'arrive pas à résoudre

Code :

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

Worksheets("feuil2").Cells(Trouve.Row, 1).Copy Worksheets("Feuil1").Cible.Offset(0, 1)

erreur d'exécution '438' Propriété ou methode non gérée par cvet objet

Merci de votre aide

[Menhir]

Retire le Worksheets("Feuil1").