Problème de lenteur de macro

[roidurif]

Bonjour,

J'ai des problème de de lenteur pour cette macro lorsque j'ai tableau de 500 à 8000 lignes. Es t il possible de modifier cette macro pour que ce soit rapide??

Sub essai()
Dim tableau, cel As Range, i As Integer, x As Integer
tableau = Array(5, 6, 7, 28, 29, 34, 35, 49, 50, 53, 54, 55)
With Sheets("BDD")
lg = .Range("c65000").End(xlUp).Row
For x = 2 To lg
  For i = 0 To UBound(tableau)
  Set cel = .Range("C1:C" & lg).Find(.Range("c" & x), LookIn:=xlValues)
  If Not cel Is Nothing Then
    If IsEmpty(.Cells(x, tableau(i))) Then .Cells(x, tableau(i)) = .Cells(cel.Row, tableau(i))
  End If
  Next i
Next x
End With
 
End Sub

Merci d'avance

 

[Gael]

Re : Problème de lenteur de macro

Bonsoir le Fil,

C'est normal que cela ne prenne pas les tarifs puisque la mise à jour ne se fait que si la zone est "ISEMPTY" alors que les cellules de ton exemple ne sont pas vides mais contiennent une cote ' (Apostrophe).

Si tu effaces le contenu des cellules tout marche bien.

Autre solution dans la macro, tu modifies l'instruction "ISEMPTY" en mettant plutôt:

If tablo(i, tableau(j)) = vbNullString Then...

@+

Gael

 

[roidurif]

Re : Problème de lenteur de macro

Merci Gael pour ton aide,

J'ai fait un copier/coller de la macro dans un autre classeur pour ensuite la lancer d'un bouton d'une 2eme feuille.

Il y a une erreure d'excution affectation a une constante non autorisée sur la ligne Set DATA = New Collection, c'est dû à quoi??

merci

 

[Gael]

Re : Problème de lenteur de macro

Re,

Peux-tu envoyer un extrait du nouveau classeur car là, je ne vois pas d'autant plus que tu as testé la macro et moi aussi et que les résultats semblaient corrects.

@+

Gael