Discussion :

[sims92.66]

Bonjour à tous,

J'aimerai optimiser mon code car celui-ci prend trop de temps à l’exécution (environ 3mn).
Il s'agit de faire une boucle sur environ 1000 lignes puis de faire 2 recherchev conditionnelle.
La recherchev s'effectue sur un tableau xl d'une autre feuille comprenant plus de 3000 lignes et renvoie la valeur 7 et 8 de ce tableau dans notre boucle.
Ci-dessous le code à optimiser.

Merci pour 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
Sub passif_ecart()
 
Dim Rg As Range
Dim i As Long
With Sheets("Contrôle Niveau 2")
  For i = 18 To .Range("C" & .Rows.Count).End(xlUp).Row
    If Sheets("Contrôle Niveau 2").Cells(i, 14) = "GVIE" Then
      Set Rg = Sheets("baseGVIEdumois").Range("A:A").Find(What:=.Range("C" & i).Value, LookAt:=xlWhole)
      If Not Rg Is Nothing Then
      .Range("AM" & i).Value = Rg.Offset(0, 7).Value
      .Range("AN" & i).Value = Rg.Offset(0, 8).Value
    End If
    End If
  Next i
End With
 
End Sub

[Fvandermeulen]

Salut,

A mon sens, il n'y a pas grand chose à faire pour gagner du temps, la boucle étant absolument nécessaire (et les autres types de boucle ne te ferons pas gagner des minutes (on a déjà testé ) donc:

1. Bloquer la mise à jour de l'écran, à mettre en début de code:

Code :

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

application.screenupdating=false

2. Bloquer le calcul automatique, à mettre en début de code:

Code :

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

application.calculation = xlcalculationmanual

Eventuellement revoir la plage de recherche en utilisant la plage réellement utilisée par A:A dans la feuille "baseGVIEdumois".

Et na pas oublier de mettre en fin de code:

Code :

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

1
2
application.screenupdating = true
application.calculation = xlcalculationautomatic

[issoram]

Bonjour,

Passer par des tableaux plutôt que par des plages quand on a des boucles conséquentes à faire dessus.
Pour le range.find préciser la plage de recherche plutôt que toute la colonne ("A:A")

http://silkyroad.developpez.com/vba/tableaux/#LI

Cordialement.

[sims92.66]

Merci à vous 2 pour vos réponses.
Le code va effectivement plus vite.

Je vais étudier pour la mise en place de tableau.

Merci encore