Optimisation vitesse macro
Résolu/Fermé
padbollevrai
Messages postés
51
Date d'inscription
mercredi 1 avril 2009
Statut
Membre
Dernière intervention
18 mars 2015
-
Modifié par padbollevrai le 12/05/2014 à 10:51
yannpl7 Messages postés 1514 Date d'inscription lundi 10 décembre 2007 Statut Membre Dernière intervention 20 novembre 2015 - 13 mai 2014 à 13:23
yannpl7 Messages postés 1514 Date d'inscription lundi 10 décembre 2007 Statut Membre Dernière intervention 20 novembre 2015 - 13 mai 2014 à 13:23
A voir également:
- Optimisation vitesse macro
- Optimisation pc - Accueil - Utilitaires
- Vitesse processeur - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Augmenter vitesse pc windows 10 - Guide
- Test vitesse ssd - Guide
3 réponses
padbollevrai
Messages postés
51
Date d'inscription
mercredi 1 avril 2009
Statut
Membre
Dernière intervention
18 mars 2015
1
12 mai 2014 à 11:05
12 mai 2014 à 11:05
Parfait ! Je ne sais pas pourquoi, mais maintenant ça marche sans les "Sheets .Select").
Résultat, 9 secondes au lieu de 33.
Résultat, 9 secondes au lieu de 33.
yannpl7
Messages postés
1514
Date d'inscription
lundi 10 décembre 2007
Statut
Membre
Dernière intervention
20 novembre 2015
304
12 mai 2014 à 10:25
12 mai 2014 à 10:25
Salut essaye avec ça
Sub Filling_Min(Col) Dim K As Integer Dim LastLine As Integer Dim Min As Double Dim V1 As Double, V2 As Double Application.ScreenUpdating = False LastLine = Worksheets("INPUT").Range("A" & Rows.Count).End(xlUp).Row For K = 3 To LastLine Step 2 'ligne supprimée' V1 = Worksheets("INPUT").Cells(K, ((Col + 1) * 0.5)).Value 'Modifié ' V2 = Worksheets("INPUT").Cells(K + 1, ((Col + 1) * 0.5)).Value 'modifié' If V1 < V2 Then Min = V1 Else Min = V2 'ligne supprimée' LastLine = Worksheets("OUTPUT").Cells(Rows.Count, Col).End(xlUp).Row + 1 Worksheets("OUTPUT").Cells(LastLine, Col) = Min Next K End Sub
yannpl7
Messages postés
1514
Date d'inscription
lundi 10 décembre 2007
Statut
Membre
Dernière intervention
20 novembre 2015
304
12 mai 2014 à 11:16
12 mai 2014 à 11:16
En faite c'est parque tu définis directement la feuille de travail avec la cellule à travailler.
Tu peux aussi supprimer les "Application.ScreenUpdating " puisqu'il n'y a plus les bagotements créé par les Sheets("yyyyy").Select
Tu peux aussi supprimer les "Application.ScreenUpdating " puisqu'il n'y a plus les bagotements créé par les Sheets("yyyyy").Select
13 mai 2014 à 13:23