Problème sur code VBA

Question

Il y a quelque chose que je ne comprends pas suite à l'enregistrement en manuel d'une Macro, j'ai effectué la même manipulation sur 2 fichiers différents (avec quelques zone de sélection différentes) et j'ai un temps d'exécution très différent. Pour le 1er code, la durée d'exécution est normale par contre, pour la seconde, la durée est d'env 10 sec voici les codes des 2 macros "manuelles" : 1°) Sub validation_offre_client() ' ' validation_offre_client Macro ' Macro enregistrée le 07/02/2011 par chb44' ' Sheets("coutants").Select ActiveWindow.SmallScroll Down:=-135 Range("A1:N143").Select Selection.Copy ActiveWindow.SmallScroll Down:=123 Range("A147").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("validation").Select End Sub Sub validation_offre_client() ' ' validation_offre_client Macro ' Macro enregistrée le 01/04/2011 par chb44' ' Range("H10").Select Sheets("COUTANTS FCL").Select ActiveWindow.SmallScroll Down:=-102 Range("A1:Q102").Select Selection.Copy ActiveWindow.SmallScroll Down:=87 Range("A106").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("validation").Select Range("H21").Select End Sub merci de vos lumières...

Banzai64 · Answer

Une piste à voir Regardes si dans le fichier (le + lent) tu n'aurais pas des macros évènementielles, des fonctions personnalisées ou beaucoup de formules matricielles (SOMMEPROD en fait partie) Mais sans fichier pas facile à trouver Bonne journée...

ketamacanna · Answer

Si j'ai bien compris, tu as testé ces deux macros sur deux fichiers différents, et la premiere macro est plus rapide que la seconde ? Dans ce cas, je ne comprends pas non plus, car le code est assez similaire et 10s de différence ca semble être trop élevé. As tu ressayé récemment et as tu le même problème ? edit : Sheets("COUTANTS FCL").Select et Sheets("coutants") t'es macros s'executent sur des feuille différentes, j'avais pas fait attention. Le problème doit certainement provenir de ce que Banzai t'as dit. cordialement...

Banzai64 · Answer

Au début de ton code dans la feuille "Coutants" pour le Test1 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count &gt; 1 Then Exit Sub . . Au début de ton code dans la feuille "Coutant FCL" pour le Test2 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count &gt; 1 Then Exit Sub . . Cela améliorera la vitesse Edit: Pour le plaisir je t'ai modifié le code de recopie (donc à tester) Seulement pour le Test1 Bonne soirée...

Banzai64 · Answer

Dans le fichier que j'ai posté, tu regardes dans le code de la feuille "coutants" Il y a une ligne rajoutée juste après Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count &gt; 1 Then Exit Sub La même chose dans le code de la page "fiche exploitation" Pour ' ' Pour que l'évènement Change de la feuille ait lieu ' Pense à la modifier si cette cellule risque d'être employée ' .Range("R1").ClearContents Si j'ai rajouté cette partie c'est que je soupçonne qu'une fois les données copiées il faut que tu actualises une page (masquage/démasquage des lignes) C'est pour cela que je fais une modification (ClearContents) d'une cellule qui entraine l'évènement Change de la feuille Si des soucis encore n'hésites pas Bonne journée...

Banzai64 · Answer

Pas de soucis ici avec le fichier que j'ai Que cela soit dans la page "offre" ou dans la page "fiche exploitation" des lignes sont masquées Il faudrait le fichier en cause et les lignes qui ne sont pas modifiées coloriées A suivre Bonne journée...

Banzai64 · Answer

Désolé je n'avais pas vu passer la seconde partie de ton post A remplacer dans module2 Et à tester Sub validation_offre_client() With Sheets("COUTANTS FCL") .Range("A1:Q102").Copy .Range("A106").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ' ' Pour que l'évènement Change de la feuille ait lieu ' Pense à la modifier si cette cellule risque d'être employée ' .Range("R1").ClearContents End With End Sub Bonne journée...