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

Vitesse d'exécution d'une boucle

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Rachel_01
  • 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
R

Rachel_01

Guest
Bonjour,

j'ai réussi a créer une macro qui récupère des données dans les nombreux onglets qui constituent mon fichier excel...

Etant débutante an VBA je pense que ma procédure n'est pas optimisée car je trouve qu'elle prend un peu trop de temps. Est-il possible d'accélérer le processus?

Sub compilation()
Dim sh As Worksheet
Dim Dercol As Long
Dim Lig As Long, Col As Integer
Lig = 1 'Première ligne où copier
Col = 1 'Colonne où copier
L = 2
Application.DisplayAlerts = False
Sheets("Compilation").Range("A1:FZ100").Clear



For Each sh In ActiveWorkbook.Sheets
Dim N As String
N = sh.Name

If (N <> "data") And (N <> "Indicateur") And (N <> Compilation) And (N <> Aide) Then
Sheets("Compilation").Cells(Lig, Col) = sh.Range("D1")
Sheets("Compilation").Cells(L, Col) = sh.Range("D8")
Col = Col + 2
End If
N = sh.Name

If (N <> "data") And (N <> "Indicateur") And (N <> Compilation) And (N <> Aide) Then
Dercol = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
sh.Range("B12:B50").Copy Sheets("Compilation").Cells(3, Dercol)
End If

N = sh.Name
If (N <> "data") And (N <> "Indicateur") And (N <> Compilation) And (N <> Aide) Then
Dercol = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
sh.Range("F12:F50").Copy Sheets("Compilation").Cells(3, Dercol + 1)
End If
Next
Sheets("Indicateur").Select
End Sub

Merci
 
Trier par date Trier par votes
Re : Vitesse d'exécution d'une boucle

Bonjour Rachel_01,

J'ai simplifié un peu ton code.

Code: 
Sub compilation()
  Dim sh As Worksheet
  Dim Dercol As Long
  Dim Lig As Long, Col As Integer
  Lig = 1 'Première ligne où copier
Col = 1 'Colonne où copier
L = 2

Application.DisplayAlerts = False
Application.screenupdating = False '--- bloque mise à jour affichage gain rapidité exécution macro


Sheets("Compilation").Range("A1:FZ100").Clear

For Each sh In ActiveWorkbook.Sheets

If (sh.Name <> "data") And (sh.Name <> "Indicateur") And (sh.Name <> "Compilation") And (sh.Name <> "Aide") Then
     Sheets("Compilation").Cells(Lig, Col) = sh.Range("D1")
     Sheets("Compilation").Cells(L, Col) = sh.Range("D8")
     Col = Col + 2
     sh.Range("B12:B50").Copy Sheets("Compilation").Cells(3, ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column)
     sh.Range("F12:F50").Copy Sheets("Compilation").Cells(3, ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1)
End If

next 

Sheets("Indicateur").Select

Application.DisplayAlerts = True
Application.screenupdating = True
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Vitesse d'exécution d'une boucle

C'est tjs assez long..

est ce possile que ça vienne du fait qu'en parallèle j'ai des formules qui émettent des calculs se basant sur les données de mon onglet de compilation?!
 
Vote positif 0 Vote négatif
Re : Vitesse d'exécution d'une boucle

Bonjour Rachel_01, gwenlorin et le forum,

Un essai de syntaxe :

Sub compilation()
Dim Ws As Worksheet, N As String, DerCol As Long, Lig As Long, Col As Integer
Lig = 1 'Première ligne où copier
Col = 1 'Colonne où copier
L = 2
Application.ScreenUpdating = False ' Désactivation de l'affichage afin d'accélérer le traitement
Application.Calculation = xlManual
Sheets("Compilation").Range("A1:FZ100").Clear
For Each Ws In Worksheets
N = Ws.Name
If (N <> "data") And (N <> "Indicateur") And (N <> compilation) And (N <> Aide) Then
With Sheets("Compilation")
.Cells(Lig, Col).Value = Ws.Range("D1").Value
.Cells(L, Col).Value = Ws.Range("D8").Value
DerCol = .UsedRange.SpecialCells(xlCellTypeLastCell).Column
Ws.Range("B12:B50").Copy .Cells(3, DerCol)
DerCol = .UsedRange.SpecialCells(xlCellTypeLastCell).Column
Ws.Range("F12:F50").Copy .Cells(3, DerCol + 1)
Col = Col + 2
End With
End If
Next
Application.ScreenUpdating = True
Sheets("Indicateur").Select
Application.Calculation = xlAutomatic
End Sub

Cordialement

Bernard
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2021 Réduction temps d'exécution boucle macro
Réponses
11
Affichages
568
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 Problème mémoire insuffisante
Réponses
5
Affichages
925
TooFatBoy
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
  • Question Question
XL 2019 Fusionner jusqu'à dernière colonne contenant
Réponses
8
Affichages
1 K
TooFatBoy
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
563
sylvanu
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
D
  • Question Question
XL 2010 Recherche cellule vide sur une ligne
Réponses
9
Affichages
647
job75
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
868
Lu76Fer
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
835
KRUG WOO
K
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
595
sylvanu
M
  • Résolu(e)
XL 2021 PUBLIPOSTAGE : Mise en forme du corps de message issu d'une cellule excel (VBA)
Réponses
4
Affichages
812
Minus&Cortex
M
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
462
sebastien176
S
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
D
  • Question Question
XL 2019 Message diffèrent en fonction état booléens
Réponses
3
Affichages
766
darkjedi
D
  • Question Question
XL 2016 Protéger Plage avec condition
2
Réponses
16
Affichages
2 K
Amigo
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
1 K
laurent950
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…