Problème code lent

Bonjour,

j'ai un problème de lenteur avec ce code.:

With FeuilleDestination
For k = 2 To Sheets("données tampon2").Cells(1, Columns.Count).End(xlToRight).Column
For i = 3 To Sheets("données tampon2").Cells(Rows.Count, k).End(xlUp).Row
If FeuilleDestination.Cells(2, k) = "Ewe/V" Then
Sheets("données tampon3").Cells(i, k).Value = Sheets("données tampon2").Cells(i, k).Value * Sheets("données tampon2").Cells(i, k - 1).Value
End If
If FeuilleDestination.Cells(2, k) = "I/mA" Then
Sheets("données tampon3").Cells(i, k).Value = Sheets("données tampon2").Cells(i, k).Value
End If
Next
Next
End With

je sais pas comment l'écrire autrement.

Bonjour

lolo34140 a écrit :

j'ai un problème de lenteur avec ce code.:

C'est à dire ?

Le plus simple c'est de joindre un fichier, anonymisé si besoin, afin de pouvoir tester

j'ai refait un fichier, cependant ma macro n'est plus lente.

Je ne comprends pas vraiment pourquoi.

Cela doit provenir de la version d'excel. je travaille sur excel2010 et la version 97-2003 est beaucoup plus rapide.

Par contre je sais que dans mon cas c'est à ce niveau la que ça ralenti beaucoup. (6-8s de calcul):

With FeuilleDestination
For k = 2 To Sheets("données tampon2").Cells(1, Columns.Count).End(xlToRight).Column
For i = 3 To Sheets("données tampon2").Cells(Rows.Count, k).End(xlUp).Row
If FeuilleDestination.Cells(2, k) = "Ewe/V" Then
Sheets("données tampon3").Cells(1, k).Value = Sheets("données tampon2").Cells(1, k).Value & " Puissance"
Sheets("données tampon3").Cells(2, k).Value = "puissance"
Sheets("données tampon3").Cells(i, k).Value = Sheets("données tampon2").Cells(i, k).Value * Sheets("données tampon2").Cells(i, k - 1).Value
End If
If FeuilleDestination.Cells(2, k) = "I/mA" Then
Sheets("données tampon3").Cells(1, k).Value = Sheets("données tampon2").Cells(1, k).Value & " Puissance"
Sheets("données tampon3").Cells(2, k).Value = Sheets("données tampon2").Cells(2, k).Value
Sheets("données tampon3").Cells(i, k).Value = Sheets("données tampon2").Cells(i, k).Value
End If
Next
Next
End With

Bonjour

Avec 2003 pas de problème de lenteur

Avec un chrono c'est quasi instantané

A moins que je ne fasse pas ce qu'il faut

Mais ce qui est sur c'est qu'après cette partie la macro plante

Erreur 1004 "Impossible de définir la propriété Values de la classe Series.

Et la ligne

ActiveChart.SeriesCollection(1).Values = Sheets("données tampon2").Range("A3")

Voilà c'est tout ce que je peux en dire

Oui en 2003 c'est instantané.

Chez moi en 2010 c'est plus lent. Bon c'est pas dramatique.

J'ai légèrement amélioré la rapidité en supprimant toute les lignes vides de tous mes fichiers.

Par contre ça plante pas chez moi.

En tout cas merci!