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

XL 2013 utilisation de tableaux pour améliorer le temps d'exécution

Créer une discussion

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

Citronflexe

XLDnaute Junior
Bonjour le forum !

A travers plusieurs post de ce forum, j'ai cru comprendre que l'utilisation de tableaux (Array ? 😵)pouvait grandement améliorer le temps d'exécution d'une macro.
Le problème c'est que je n'en ai jamais vraiment utilisé, je ne sais pas du tout comment m'y prendre.

J'aimerais savoir s'il était possible d'améliorer le temps d'exécution de ma macro dans le fichier ci-joint "test_extrac_suivi.xlsm", en utilisant des tableaux.


En gros, la macro va chercher pour chaque ligne du fichier si le nombre en colonne A existe dans le fichier "2017_SUIVI LOTS_.....", colonne D, et fait la somme des nombres en colonne M.
Cela fonctionne bien, mais la macro dure à peu près 25sec chez moi...


Merci de votre aide précieuse ! 🙂
 

Pièces jointes

Trier par date Trier par votes
Bonjour @M12 ,

Merci de ta réponse !

C'est en effet plus rapide, mais par contre, ça ne fait plus la somme des nombres en colonne M dans le cas des doublons.
Mais je vais essayer de fouiner dans tes codes et formules pour voir...

Merci 🙂
 
Vote positif 0 Vote négatif
Bonjour.
Dans votre cas vous pourriez l'écrire comme ça :
VB: 
Option Explicit
Sub RechercheSuivi()
   Dim TNum(), TQté(), TRés(17001 To 18999, 1 To 2), L As Long, N As Long, Suivi As Worksheet, RngLig As Range
   Set Suivi = Workbooks("2017_SUIVI LOTS - PROD & SC_factice.xlsm").Worksheets("EXPE CLIENTS BAGS-MECA")
   Set RngLig = Suivi.Rows(3).Resize(Suivi.Cells(Suivi.Rows.Count, "D").End(xlUp).Row - 2)
   TNum = RngLig.Columns("D").Value
   TQté = RngLig.Columns("M").Value
   For N = LBound(TRés, 1) To UBound(TRés, 1): TRés(N, 1) = N: Next N
   On Error Resume Next
   For L = 1 To UBound(TNum, 1)
      N = TNum(L, 1)
      TRés(N, 2) = TRés(N, 2) + TQté(L, 1)
      Next L
   Feuil1.[A1:B1999].Value = TRés
   End Sub
 
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

R
  • Question Question
XL 2010 Copie de plusieurs plages de cellules spécifiques dans le presse-papier
2
Réponses
20
Affichages
463
Dranreb
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
1 K
Webperegrino
W
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
194
AtTheOne
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
332
Lu76Fer
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
1 K
Dranreb
  • Résolu(e)
XL 2019 Problème de rapidité exécution
Réponses
11
Affichages
866
Cédric06400
M
  • Résolu(e)
Autres Demande d'aide pour un fichier concernant des professionnels de santé et le diagnostic des troubles DYS (dyslexie.....)
2
Réponses
16
Affichages
2 K
Mionnetjl
M
  • Question Question
XL 2013 Formule Si? Macros? Amélioration de fichier Excel
Réponses
2
Affichages
1 K
aleadoju
M
  • Question Question
XL 2013 Transformer le format Texte en Date suite à un transfert automatique via VBA
Réponses
3
Affichages
1 K
MgLina
M
B
  • Question Question
XL pour MAC Comptabiliser rapidement un nombre de tours pour 700 élèves
2
Réponses
20
Affichages
2 K
BenEro
B
  • Question Question
XL 2016 Macro VBA pour créer une BdD à partir de plusieurs fichiers
Réponses
2
Affichages
2 K
surgeon84fr
  • Question Question
XL 2013 VBA : modification du code (VBE) du classeur qui exécute le code [tordu]
Réponses
0
Affichages
812
dionys0s
  • Question Question
Microsoft 365 Bis Excel Formule/Macro pour automatiser recomposition de données
Réponses
3
Affichages
1 K
jlbcall
J
  • Question Question
Mon code VBA bug quand je verrouille ma session Windows 10 message d'erreur 1004
Réponses
1
Affichages
3 K
JoelR
J
A
  • Résolu(e)
XL 2013 Ajouter des formules dans un tableau de dimensions variables
2 3 4
Réponses
48
Affichages
5 K
Ananas94
A
  • Résolu(e)
Microsoft 365 Sélection en même temps de plusieurs cellules vers la gauche, la droite ou vers le bas
2 3
Réponses
38
Affichages
5 K
eriiic
  • Résolu(e)
Microsoft 365 RECHERCHEV/INDEX - Optimiser le temps de traitement pour la recherche dans un tableau à liste ?
2
Réponses
16
Affichages
4 K
loic.zambon
  • Question Question
XL 2016 VBA - Optimisation Code Array
Réponses
5
Affichages
1 K
Spinzi
S
  • Question Question
XL 2016 Comment intégrer une progressbar pour montrer l'évolution de la synchro des TCDS
Réponses
1
Affichages
1 K
scoubidou35
S
V
  • Question Question
Google Sheets Marco pour mailing liste avec mail type à envoyer lors de la fermeture
Réponses
2
Affichages
2 K
Varona Rodriguez
V
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…