Discussion :

[Haikel22]

Bonjour a tous,

Dernierement je me suis mis a devlopper avec VBA et des le debut j ai recomptre des problemes.
Alors le programme est tres simple : il consiste dans deux boucles For imbriquees de 3 jusqu a 16000.
lors de l execution, exel se plante et me dit "not responding"
j ai essaye de diminuer les deux boucles alors j ai mis 1000 et ca marche. A partir de 1500 ou quelque chose comme ca il se plente avec le message d excel "not responding".
est ce qu il y a une limite de memoire ????

merci

[Philippe Tulliez]

Bonjour,
Avec ce type d'explication, tu as peu de chance d'obtenir une réponse adéquate.
L'affichage de ton code permettrait certainement d'avancer.

[Haikel22]

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub Comparer()
    Dim i, j As Integer
    Dim nullDatum As String
    nullDatum = "00.00.0000"
    For i = 3 To Range("A65536").End(xlUp).Row
        If Range("c" & i).Value = nullDatum Then
            For j = 3 To Range("A65536").End(xlUp).Row
                If Range("b" & i) = Range("c" & j) And i <> j Then
                    Range("c" & i) = Range("c" & j)
                End If
            Next
        End If
    Next
 
End Sub

Pour info Range("A65536").End(xlUp).Row retourne 15767

[Invité]

Salut,

Le problème, c'est que le code VBA s'execute dans le même thread que le thread utilisateur (d'affichage et des commandes etc...). Alors, dès qu'une boucle dure plus d'environ 1 seconde, toutes les fenêtres d'affichages ne répondent plus et c'est le système d'exploitation qui prends le relais (et affiche un message dans la barre de titre).
Utilise DoEvents (ou même GetInputeState) si tu veux que les commandes répondent pour les long calculs.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Declare PtrSafe Function GetInputState Lib "user32" () As Long
 
Sub BoucleLongue()
    For i = 1 To 200000000
        'If GetInputState Then DoEvents ' Détecte l'état d'entrée des commandes clavier/souris
        If i Mod (100000) = 0 Then DoEvents ' Clique sur l'aide F1 pour des infos
    Next
End Sub

Il faut un DoEvents minimum toutes les 500 ms grosso-modo, alors le chiffre qui est dans la parenthèse après le Mod variera suivant ce qu'il y a dans la boucle. Généralement entre 100 et 10000.

[Haikel22]

Un grand merci !!!!!
cela fonctionne de nouveau comme t'a dit

[Haikel22]

Bonjour tout le monde,

et bien la solution de "nouveau2" a bien fonctionner mais le probleme c est que je dois toujours travailler avec de grands tableaux et cette fois-ci j'ai deux tableaux excel dans chacun contient 60000 ligne.
Et comme d habitude je dois parcourir les deux tableaux presque comme l exemple que j ai deja mentionner. Avec la solution donner par nouveau2 l exucution et tres lente !!!!!!
Normalement c est un probleme d allocation de memoire ou quelque chose comme ca.
Avez vous une idee comment pourrai je resoudre ce probleme ????

Merci

[Didier Gonard]

Bonjour,

vois ce sujet dans le tuto (55 000 lignes sur 256 colonnes...):

Optimisation du code avec les variables tableau sous Excel

Sinon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For j = 3 To Range("A65536").End(xlUp).Row

ce genre de code avec la limite de ligne en dur est obsolète et dangereux depuis 2007, vois les fils sur ce sujet dans le forum

cordialement,

Didier