Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

rendre l'execution d'un code plus rapide

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion la fifine
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

la fifine

XLDnaute Occasionnel
Code: 
Sub EffaceCelluleAncienne()

With Sheets("planning")
Dim c As Range
For Each c In Range("A6:a1200")
If c <> "" Then
If c + Sheets("mode d'emploi").Range("i31").Value < Date Then 'variable nombre de jours
c.Offset(, 1).Resize(3, 10).ClearContents
End If
End If
Next c
End With
End Sub
dans une feuille j'ai des dates en colonne A
du 1/01/12 au 31/12/12
ce code efface les cellules sur la même ligne qui ont plus de 30 jours (range("i31"")
est-il possible de modifier quelque chose pour le rendre plus rapide
car dans l'état il lui faut env. 30 secondes pour executer sur mon pc
merci
 
Dernière édition:
Trier par date Trier par votes
Re : rendre l'execution d'un code plus rapide

Bonjour
Pour tester la macro incriminée, j'ai fait une feuille exemple et j'ai mis un timer dans la macro. Résultat : 0.00 secondes pour effectuer le travail 🙂
donc à mon avis le problème ne vient pas de la macro elle même mais des feuilles.
Que contiennent les cellules à effacer ? Si elles contiennent des formules, fans la mesure ou vous travaillez avec une boucle, à chaque passage de la boucle toutes les formules dépendantes de celles effacées sont recalculées.
La façon la plus efficace en général d'optimiser un code c'est de mettre le mode de calcul sur manuel en début de macro et de le remettre sur auto à la fin

Application.ScreenUpdating = False
XlCalc = Application.Calculation
Application.Calculation = xlCalculationManual

'la macro

Application.Calculation = XlCalc
Application.ScreenUpdating = True
 
Vote positif 0 Vote négatif
Re : rendre l'execution d'un code plus rapide

Bonjour
Mon observation s'appliquait à toutes les propositions, non seulement la mienne.
On subit l'inévitable embrouillamini résultant d'une intervention à plusieurs dans une demande sans pièce jointe...
Cordialement
 
Vote positif 0 Vote négatif
Re : rendre l'execution d'un code plus rapide

bonsoir je reviens un peu tardivement sur le fil
bon, je suis toujours sur des délais un peu trop long
ce qui fonctionnait à peu près l'autre jour est beaucoup trop long aujourd'hui
j'aimerais faire un essai avec une période en lieu et place de date - 30 jours
c'est à dire que ça efface les cellules entre -30 jours et -20 jours
mais je ne sais pas comment écrire cela en VBA sur cette ligne
If C Sheets("mode d'emploi").Range("j31").Value < Date and sheets("mode d'emploi") .range("j32")> date Then 'variable nombre de jours
Cliquez pour agrandir...
merci
 
Vote positif 0 Vote négatif
Re : rendre l'execution d'un code plus rapide

bonsoir yaloo
il y a les propositions des contributeurs tu peux prendre le fichier 2 de efgé ou encore celui de dranreb
je sais c'est pas bien je n'avais pas fourni de fichier joint
 
Vote positif 0 Vote négatif
Re : rendre l'execution d'un code plus rapide

Re,

Oui, on peut prendre les fichiers des contributeurs, mais avec les leur ça fonctionne, chez toi ça ne fonctionne pas, donc cela doit venir de ton fichier.

A+
 
Vote positif 0 Vote négatif
Re : rendre l'execution d'un code plus rapide

re
oui je sais en fait Misange à mis le doigt dessus il y a bien une worksheet change qui fiche le bazar
en fait ce que je cherche c'est comment écrire ceci en vba
range("j31") = 30
range("j32") = 15
supprimer les cellules dont la date est située entre -15 et -30 jours
parceque là la macro supprime les cellules qui sont à -30 jusqu'au 1er janvier
donc ce qui me fait peur c'est si maintenant il lui faut 30 sec pour une centaine de jours
combien de temps ça va prendre à la fin de l'année?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : rendre l'execution d'un code plus rapide

re
c'est bon ça fonctionne maintenant
je viens de comprendre où il fallait placer application.enableevents= false
et surtout qu'il fallait y remettre à true à la fin de la macro
merci
je n'ai pas été très performant sur ce fil
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
484
sylvanu
  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
239
pascal21
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
786
lynyrd
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
818
thunder23
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
912
TooFatBoy
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
755
Oneida
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
427
Pierreavecunp
P
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
746
patricktoulon
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
732
job75
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
406
escudo
E
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
828
patricktoulon
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
797
Phil69970
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
641
Staple1600
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
487
eric72
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…