Plantage lors de l'exécution de mon code

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Plantage lors de l'exécution de mon code

michele_

Bonjour,

J'ai créé une macro qui plante quand je la lance au bout d'un certain nombre de lignes.
En effet, ma boucle plante au bout d'environ 250 lignes :??:
Voici mon code :

Code :

Public MyArray
Sub CalculControleCode()
MyArray = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z" )
' Copie des EGP
Sheets("TCD retravaillé" ).Select
Range("A5:A" & Cells(Rows.Count, 1).End(xlUp).Row).Copy _
destination:=Sheets("Contrôle" ).Range("A3" )
Sheets("Contrôle" ).Select
'
Call Boucle(MyArray(1), 2)
Call Boucle(MyArray(4), 8)
Call Boucle(MyArray(7), 14)
Call Boucle(MyArray(10), 20)
'
End Sub
Sub Boucle(ByVal MaColonne As String, ByVal MonIndex As Integer)
'
Dim Maligne As Integer
Dim MaValeur As String
Dim Resultat As String
Maligne = 3
Do
'
MaValeur = Sheets("Contrôle" ).Range("A" & Maligne).Value
'
For i = MonIndex To (MonIndex + 5)
'
If Maligne = 257 Then
Debug.Print "Ligne 257"
End If
Resultat = Recherche1(MaValeur, MyArray(i))
'
If Resultat <> "-" Then
'
Sheets("Contrôle" ).Range(MaColonne & Maligne).Value = Resultat
Exit For
'
End If
'
Next
Maligne = Maligne + 1
'
Loop Until Sheets("Contrôle" ).Range("A" & Maligne).Value = ""
'
End Sub
Function Recherche1(ByVal MaValeur As Variant, ByVal MaColonne As String)
'
'
ligne = 0
'
Do
ligne = ligne + 1
Cible = Sheets("PB" ).Range("B" & ligne).Value
Loop Until Cible = MaValeur
'
Recherche1 = Sheets("PB" ).Range(MaColonne & ligne).Value
'
End Function

Si vous avez une idée de comment je peux vider la mémoire au fur et à mesure que ma boucle passe ... ce serait génial
D'ailleurs, le code fonctionne parfaitement quand je suis sur peu de lignes ....

Merci

Publicité

Arl Guhr

Par hasard ton "Maligne" irais pas au dela de 32000 et quelques lignes?

Sinon, quel est le message d'erreur et sur quelle ligne l’exécution s'arrête?

---------------
il s'appel le ronge me doute

olivthill

Ca me rappelle un vieux problème que j'avais eu autrefois.
J'avais pensé aussi que cela venait de la mémoire qui n'était pas libérée.
Mais en réalité le plantage était dû à certaines cellules particulières.
Elles étaient nulles, mais pas vides.
Donc, il faudrait essayer de remplacer

Loop Until Sheets("Contrôle" ).Range("A" & Maligne).Value = ""

par

Loop Until Nz(Sheets("Contrôle" ).Range("A" & Maligne)) = ""

Message cité 1 fois
Message édité par olivthill le 04-10-2013 à 12:37:10

michele_

Merci olivhill ... je vais essayer ça.
Sinon, pour te répondre Arl Guhr, dans mon cas, "Maligne" ne dépasse pas 32000 lignes. D'ailleurs, la dernière ligne est 3931.
Et je n'ai aucun message d'erreur. Y a juste Excel qui ne répond plus au bout d'un moment. et en moyenne, c'est au bout de 250 lignes que ça plante.
Mais si j'utilise le pas à pas (F8) ... là ça marche et ça ne plante pas ...

michele_

olivthill a écrit :

Loop Until Sheets("Contrôle" ).Range("A" & Maligne).Value = ""

par

Loop Until Nz(Sheets("Contrôle" ).Range("A" & Maligne)) = ""

Je viens d'essayer de remplacer ma ligne de code par la tienne ... Je ne peux pas compiler le projet
Ça me met :

Erreur de compilation:
Sub ou Function non définie

C'est sur le "Nz" qui surligne l'erreur ...

Euh ... Je précise, je suis un peu beaucoup débutante en VBA. Et c'est mon 1er code pour lequel je transforme les formules en Excel en code (d'habitude, j'utilise l'enregistreur pour avoir ma formule retranscrite)

Message cité 1 fois
Message édité par michele_ le 04-10-2013 à 14:10:30

breizhbugs

Bonjour,
La boucle de ta fonction recherche1 s'arrête comment si elle ne trouve pas la valeur?

Message cité 1 fois

---------------
Seul Google le sait...

michele_

breizhbugs a écrit :

Bonjour,
La boucle de ta fonction recherche1 s'arrête comment si elle ne trouve pas la valeur?

En fait, elle trouvera obligatoirement la valeur car il s'agit d'un copié-collé entre les 2 onglets : la colonne B de l'onglet "PB" est copié sur la colonne A de l'onglet "contrôle"
Mais il est vrai que je n'ai pas fait de sortie dans le cas où ma recherche1 ne trouve pas la valeur (puisque dans mon fichier, ce n'est pas possible ...)

Marc L

Bonjour,

afin d'optimiser la recherche,voir l'aide de la fonction Find et son exemple, y a pas photo !

Sinon la variable MyArray est totalement inutile dans ce code …

olivthill

michele_ a écrit :

Erreur de compilation:
Sub ou Function non définie

C'est sur le "Nz" qui surligne l'erreur ...

Désolé, j'ai confondu Excel et Access. Toutes mes excuses.

michele_

Merci, je vais creuser pour utiliser la fonction Find

Pas de soucis olivthill

Message édité par michele_ le 08-10-2013 à 11:33:53

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Plantage lors de l'exécution de mon code

Sujets relatifs
Formule matricielle Excel ou code VBA	Besoin d'idée coulée faire le code source en C + +
code du problème en c++	lancer une application c++ depuis une autre application codé en java
[C] Bout de code fonctionne avec gdb mais pas en vrai [Résolu]	Problème de code Wordpress, le design fait des siennes!
Tester execution d'une requete SQL	[VB6] Simplification et optimisation code
xls erreur sur code "If Target =" lors d'insertion de ligne
Plus de sujets relatifs à : Plantage lors de l'exécution de mon code

Page générée en 0.082 secondes