Optimiser une macro

Question

Bonjour tt le monde,

J&#8217;ai créé une macro qui fait une recherche verticale sur deux tableaux de deux feuilles. 

Mon problème est que dans les tableaux j&#8217;ai énormément de ligne, presque le maximum sur Excel 2003, donc le programme peut mettre plus de deux heures pour finir.

J&#8217;aimerai savoir si on peut l&#8217;optimiser le programme ? Je pense que c&#8217;est les deux boucle For qui ralentie le programme. Comme je ne m&#8217;y connais pas en programmation je ne sais pas quoi utiliser.

Merci

Sub rechv()

Worksheets("Default").Activate
Dim ligne1 As Long
ligne1 = Columns("A:A").Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
 

Dim ligne2 As Long
ligne2 = Columns("A:A").Find("*", Range("A1"), , , xlByRows, xlPrevious).Row

For i = 2 To ligne1
 
  For j = 2 To ligne2
  
    If Cells(i, 1) = Worksheets("Feuil2").Cells(j, 1) Then
    
     Cells(i, 2) = Worksheets("Feuil2").Cells(j, 10)
     Exit For
    
    End If
  Next j
 Next i
 
 End Sub

cs_Alban83 · Answer

personne peut m'aider?

jmf0 · Answer

Bonjour,

Désolé (du moins en ce qui me concerne) mais je ne réponds jamais (je l'ai dit mille fois) lorsque, comme tu le fais ici, on pose dans le thème VBV6 une question concernant VBA (Excel).
Désolé. Vraiment.

us_30 · Answer

Bonsoir,

En effet, le thème est mal choisi... faut faire attention, sinon plus personne ne pourra utiliser CS... les admins font déjà beaucoup pour rectifier ces mauvaises manipulations... Alban83, je te conseille de leurs demander (gentiment ) de corriger le thème, venant de l'utilisateur c'est surement un peu plus agréable ...

sinon, j'aurai peut-être dit :
- déclarer ses variables : Dim i as Long, j as Long
- ensuite va voir mon modeste site, notamment sur la page http://fordom.free.fr/tuto/OPTIMISATION.htm plus précisément "Tableau Excel dans une Array". 
- Ensuite, n'existerait-il une autre façon de faire ce traitement ? C'est la question à se poser en fonction du type donnée qu'on ne connait pas dans ta présentation...

Amicalement,
Us.

Optimiser une macro

3 réponses

Votre réponse

Discussions similaires