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

RESOLU Accélérer un LOOP

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

chacal33

Guest
Bonjour à toutes et à tous.

J'ai créé une macro qui fait ce que je veux, mais c'est très lent.
Sauriez-vous comment accélérer le processus?

Code: 
Sub BUDGET()


For i = 2 To 10000


Sheets("Feuil1").Select
If Sheets("Feuil1").Range("D" & i).Value <> "Tâcherons" And Sheets("Feuil1").Range("D" & i).Value <> "" And Sheets("Feuil1").Range("K" & i).Value <> "" And Sheets("Feuil").Range("A30").Value = "ABC" Then
    
    Sheets("Feuil2").Range("A30").Value = Sheets("Feuil1").Range("K" & i).Value
   
    Sheets("Feuil2").Select
    Range("B30").Select
    
   Dim strName As String
    strName = InputBox("Veuillez rentrer le montant du budget", "Budget")
    ActiveCell.Value = strName

ElseIf Sheets("Feuil1").Range("D" & i).Value <> "Tâcherons" And Sheets("Feuil1").Range("D" & i).Value <> "" And Sheets("Feuil1").Range("K" & i).Value <> "" And Sheets("BILAN").Range("A30").Value <> Sheets("Feuil1").Range("K" & i).Value And Sheets("Feuil2").Range("A31").Value = "ABC" Then

    Sheets("Feuil2").Range("A31").Value = Sheets("Feuil1").Range("K" & i).Value

    Sheets("Feuil2").Select
    Range("B31").Select
    
   Dim strName1 As String
    strName1 = InputBox("Veuillez rentrer le montant du budget", "Budget")
    ActiveCell.Value = strName1


End If

Next i

End Sub

Merci de vos retours.

PS: J'ai déjà désactivé dans le classeur les calculs automatiques.
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Accélérer un LOOP

Bonjour,

Tu fais une boucle sur 10 000 lignes. Combien en as-tu exactement ?
Recherche la dernière ligne utile : derligne=sheets("Feuil1").Range("A65536").End(Xlup).Row
for i= 2 to derligne
....
 
Vote positif 0 Vote négatif
Re : Accélérer un LOOP

Bonjour,

Ne pas travailler sur des cellules mais sur des tableaux VBA (matrices).

Bien sûr pas d'InputBox dans la boucle, sauf si c'est très occasionnel.

Nombreux exemples sur le forum.

A+
 
Vote positif 0 Vote négatif
Re : Accélérer un LOOP

Bonjour à tous.


Code: 
Sub BUDGET()
Dim i&, s$, x
    With Sheets("Feuil1")
        For i = 2 To 10000
            If .Cells(i, 4).Value <> "Tâcherons" And .Cells(i, 4).Value <> "" And .Cells(i, 11).Value <> "" Then
                If Sheets("Feuil").Range("A30").Value = "ABC" Then
                    s = InputBox("Veuillez rentrer le montant du budget", "Budget")
                    Sheets("Feuil2").Range("A30:B30").Value = Array(.Cells(i, 11).Value, s)
                ElseIf Sheets("BILAN").Range("A30").Value <> .Cells(i, 11).Value And Sheets("Feuil2").Range("A31").Value = "ABC" Then
                    s = InputBox("Veuillez rentrer le montant du budget", "Budget")
                    Sheets("Feuil2").Range("A31:B31").Value = Array(.Cells(i, 11).Value, s)
                End If
            End If
        Next i
    End With
End Sub
Sous toutes réserves, car :
  1. on ne sait pas ce que doit faire la procédure ;
  2. on ne dispose d'aucun support permettant de tester le code.


Bonne soirée.


ℝOGER2327
#7273

Mercredi 4 Palotin 141 (Sainte Susan Calvin, docteur - fête Suprême Quarte)
4 Floréal An CCXXII, 6,3262h - aubépine
2014-W17-3T15:10:58Z
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Accélérer un LOOP

Re...


chacal33 à dit:
Bonjour à tous,

merci Roger pour ton option. C'est exactement ce que je cherchais et ça fonctionne du feu de Dieu!

A+
Cliquez pour agrandir...
Au poil !
Comme quoi il faut croire au coup de bol...​



ℝOGER2327
#7275

Jeudi 5 Palotin 141 (Sainte Poignée, veuve et Sainte Jutte, recluse - fête Suprême Quarte)
5 Floréal An CCXXII, 6,1803h - rossignol
2014-W17-4T14:49:58Z
 
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

  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
858
Chaton77
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
M
  • Question Question
XL 2016 Aide code VBA
Réponses
7
Affichages
872
medsoft313
M
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
H
  • Question Question
Microsoft 365 Besoin aide : Erreur code macro . Problème est résolu
Réponses
7
Affichages
1 K
heart clean
H
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
756
un internaute
U
S
  • Question Question
XL 2019 Macro VBA enregistrement pdf plusieurs onglets dans un sens précis
Réponses
11
Affichages
2 K
sofmat
S
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
736
tactic6
M
  • Question Question
XL 2019 Optimisation de code VBA
2 3
Réponses
33
Affichages
3 K
mmaiga
M
Z
  • Résolu(e)
XL 2019 Problème liens Hypertexte
2
Réponses
16
Affichages
2 K
Zapinet
Z
R
  • Résolu(e)
XL 2016 Un petit coup de main pour un code VBA
Réponses
11
Affichages
1 K
ReneDav14000
R
K
  • Résolu(e)
XL 2019 Copier Seulement les lignes affichée après un filtre de tableau
Réponses
9
Affichages
2 K
Kushi
K
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
J
  • Question Question
XL 2019 probleme Sheets("entreeor").ListObjects(1).ListRows.Add
Réponses
11
Affichages
2 K
Gégé-45550
Y
  • Résolu(e)
XL 2016 Transfère des données réparties sur des lignes à une base de données
2
Réponses
19
Affichages
2 K
soan
S
Y
  • Question Question
XL 2019 Copie des données des différentes lignes sur une base de données
Réponses
10
Affichages
2 K
YANNISE
Y
O
  • Question Question
Microsoft 365 Problème Exit sub
Réponses
9
Affichages
1 K
omario1995
O
S
  • Question Question
XL 2016 Code de transfert
Réponses
8
Affichages
1 K
Seddiki_adz
S
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
1 K
nat54
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…