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