Microsoft 365 macro trop longue a executer

[LEPATOCHE]

Bonsoir a tous je voudrais savoir si ont peu modifier
une macro a façon que cette macro ce exécute un peu plus vite ?
ma macro met environ entre 15 et 17 minutes pour tout finir y aurait t'il un moyen
de gagner un peu de temps merci de votre aide !

 

[LEPATOCHE]

Bonsoir a tous je voudrais savoir si ont peu modifier
une macro a façon que cette macro ce exécute un peu plus vite ?
ma macro met environ entre 15 et 17 minutes pour tout finir y aurait t'il un moyen
de gagner un peu de temps merci de votre aide !

voici ma macro ci dessous ! je ne peux pas vous envoyer mon fichier trop volumineux
excusez moi . encore merci !

Sub resulat1()
'
' resulat1 Macro
'

'
Range("L1😛1").Select
Selection.Copy
Range("Q1:U1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L1😛1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.Panes(3).Activate
Range("Q2:U2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.Panes(1).Activate
Range("L1😛1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.Panes(3).Activate
Range("Q3:U3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.Panes(1).Activate
Range("L1😛1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.Panes(3).Activate
Range("Q4:U4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=3
ActiveWindow.Panes(1).Activate
Range("L1😛1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.Panes(3).Activate
Range("Q5:U5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.Panes(1).Activate
Range("L1😛1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.Panes(3).Activate
Range("Q6:U6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.Panes(1).Activate
Range("K1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("L1😛1").Select
End Sub

 

[LEPATOCHE]

Bonjour,

Franchement ca va 15 a 17 minutes avec votre macro c'est tres acceptable.

alors pas moyen de gagner 1 minute ?

 

[LEPATOCHE]

Vous pouvez demander a chatgpt de vous recrire le code en modele objet sans module de classe et d obptimisé les temps de reponse

Copie coller de votre code.

ok merci bonne soiree !

 

[Cousinhub]

Bonsoir,
Je pense que la réponse qui vous a été apportée était destinée à vous faire réfléchir, quant à votre demande
Vous avez mis votre code, sans balise, ce qui aurait pu faciliter la lecture.
Vous n'avez joint aucun fichier (à priori, volumineux)
De ce qu'on peut voir, il n'y a rien d'exceptionnel.
Je pencherais pour un fichier "obèse", style "McDo", avec moult cellules en trop, objets parasites, formules chronophages...
Regarde ce tuto, pour voir déjà si ton fichier n'est pas un peu "malade"...
Bon courage

 

[Nain porte quoi]

Hello,

les macros enregistrées c'est qqchose qui permet de commencer le job mais qu'il ne faut surtout pas garder telles quelle.
Les select sont à bannir, il sont extrêmement chronophage

Si vous nous donnez un exemple de fichier on pourrait voir un peu ce qu'il faudrait faire pour améliorer ça, mais là c'est juste imbuvable 🤢