Discussion :

[ted the Ors]

Bonjour

J'utilise la macro suivante pour "nettoyer" le contenu de mes cellules (qui contiennent plus de 255 caractères pour info, moins de 50 cellules à traiter):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Macro1()
Sheets("N3").Select
Dim lastline_N3 As Long
lastline_N3 = Range("E9").End(xlDown).Row
Range("E4:E" & lastline_N3).Select
    For Each Cellule In Range("E4:E" & lastline_N3)
       old_text_N3 = Cellule.Value
       new_text_N3 = Replace(old_text_N3, Chr(13), Chr(10)) 
       Cellule.Value = new_text_N3   ' <-- ICI
    Next
End Sub

J'obtiens lors de l'exécution de la macro un message mémoire insuffisante, si je clique sur débogage, la ligne spécifiée par le debuggeur est celle en gras.
Y aurait il un moyen de palier à ce problème ?

Je travaille sous Excel 2003 SP1 (pc du boulot)

D'avance merci.

@+

ted

[helios77]

j'ai déjà eu ce genre de souci

la seule solution que j'ai trouvé est d'exporter mes macros et de les réimporter dans un nouveau fichier

[ted the Ors]

Ok mais tu l'avais fait uniquement pour la macro qui posait problème ou pour chaque macro du classeur?

[helios77]

j'avais tout exporter et récréer un nouveau fichier avec les mêmes données

c'est comme si tu repartais de 0

[alsimbad]

essaye déja avec une syntaxe plus simple. même si la tienne est juste, elle fait beaucoup trop d'opération

Code :

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

1
2
3
4
5
6
 
Sub Macro1()
    For Each Cellule In Range("E4:E" & Range("E9").End(xlDown).Row)
       Cellule.Value = Replace(Cellule.Value, Chr(13), Chr(10))
    Next
End Sub

il y a aussi la possibilité qu'une macro automatique vienne perturber le déroulement de la tienne. tu ne dis pas ou en est le déroulement au momment du bug, c'est a dire a quelle occurence de cellule.

[ted the Ors]

Merci pour cette proposition qui malheureusement ne résout pas le problème...
La macro plante sur la 3ème cellule...

[JackOuYA]

vérifie cela :

Code :

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

1
2
 
msgbox Range("E9").End(xlDown).Row

[ucfoutu]

Bonjour,

Question probablement inutile (mais on ne sait jamais) :

Es-tu certain de ce qu'ailleurs dans ton code tu n'appelles-pas cette macro en provoquant une/des référence(s) circulaire(s) (sur un évènement change, par exemple) ?

[ted the Ors]

vérifie cela :

Code :

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

1
2
 
msgbox Range("E9").End(xlDown).Row

C'est déjà fait, tu penses...Et ca me donne bien le rang de la derniere ligne valorisé de la colonne E, à partir de E9 (53 pour info)...

Question probablement inutile (mais on ne sait jamais) :

Aucune question n'est inutile

Es-tu certain de ce qu'ailleurs dans ton code tu n'appelles-pas cette macro en provoquant une/des référence(s) circulaire(s) (sur un évènement change, par exemple) ?

Oui...D'ailleurs, j'ai essayé d'isolé la macro dans un module (où il n'y a que le bout de code VB stipulé ici) et ca me provoque la meme erreur!

Plus ca va et plus je me dis que c'est intrinsèque à Excel...Peut etre aussi du au fait que la cellule contient plus de 1500 caractères...

[ucfoutu]

Oui...D'ailleurs, j'ai essayé d'isolé la macro dans un module (où il n'y a que le bout de code VB stipulé ici) et ca me provoque la meme erreur!

isoler la macro dans un module ne l'empêche pas de s'exécuter lorsqu'on l'appelle ...

Je repose donc ma question de manière différente :
1) elle est appelée lors de quel évènement ?
2) cet évènement est-il le seul cas d'appel de cette macro ?

[ted the Ors]

isoler la macro dans un module ne l'empêche pas de s'exécuter lorsqu'on l'appelle ...

Ah c'est noté!

Je repose donc ma question de manière différente :
1) elle est appelée lors de quel évènement ?
2) cet évènement est-il le seul cas d'appel de cette macro ?

Elle est appelé uniquement via l'executeur de macro, absoluement pas sur un evenement spécifique...
Donc:
1) aucun...
2) sans objet !

[fring]

Pour info, je viens de tester le code sur 50 cellules avec pour chaque cellule, 5000 caractères et 1000 chr(13) à remplacer.

Tout se réalise en une fraction de seconde sans problème de mémoire.

Peux-tu joindre ton fichier, que je fasse un test dessus ?
.

[ted the Ors]

Malheureusement non dans la mesure où il contient des données professionnelles...
Petites question: les caractères dans ta cellule sont ils précédés d'un " ' "?

[helios77]

Moi je dis tout simplement que ton fichier Excel est verrolé

Essaie ce que je te disais
Ouvre un nouveau fichierExcel tout neuf, mets y toutes tes données et remets y tes macros

[fring]

Petites question: les caractères dans ta cellule sont ils précédés d'un " ' "?

euuh non mais je ne vois pas ce que ça change

Comme le dis helios, il doit ya avoir un stuut

A tout hazard, as-tu essayé en supprimant la ligne qui fait couiner ?

[alsimbad]

et si tu déplace cette fameuse troisieme cellule, es ce que le probleme se retrouve a la meme place ou encore sur la meme cellyule ? il y a peut etre trop d'espace dans celle la pour la fonction replace quoique a priori, ce ne soit pas limité

[s.n.a.f.u]

Pour savoir si cela vient du contenu de la cellule, tu peux dans un premier temps le tronquer :

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
    Sheets("N3").Select
    Dim lastline_N3 As Long
    lastline_N3 = Range("E9").End(xlDown).Row
    For Each Cellule In Range("E4:E" & lastline_N3)
       old_text_N3 = Cellule.Value
       new_text_N3 = Replace(old_text_N3, Chr(13), Chr(10)) 
       Cellule.Value = Left(new_text_N3, 255)
    Next
End Sub

[ted the Ors]

Pour savoir si cela vient du contenu de la cellule, tu peux dans un premier temps le tronquer :

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
    Sheets("N3").Select
    Dim lastline_N3 As Long
    lastline_N3 = Range("E9").End(xlDown).Row
    For Each Cellule In Range("E4:E" & lastline_N3)
       old_text_N3 = Cellule.Value
       new_text_N3 = Replace(old_text_N3, Chr(13), Chr(10)) 
       Cellule.Value = Left(new_text_N3, 255)
    Next
End Sub

On tient une piste ...En effet, cela a très bien fonctionné avec une troncature à 255...Une petite recherche par dichotomie montre que la limite est de 1024 charactères...A 1025: anomalie (mémoire insuffisante etc...)!

Donc je ne sais pas quelle est l'explication "rationnelle" derriere tout cela.

Comme le dis helios, il doit ya avoir un stuut

Kezako?

[EDIT] Ok, je ne suis pas doué en belgicisme, il s'agit d'un imprévu donc...

et si tu déplace cette fameuse troisieme cellule, es ce que le probleme se retrouve a la meme place ou encore sur la meme cellyule ? il y a peut etre trop d'espace dans celle la pour la fonction replace quoique a priori, ce ne soit pas limité

Ca ne change rien...


Bref, en attendant, je vais "déconcatener" le contenu de chaque cellule dans 2 cellules, appliquer la macro, et reconcatener...C'est pas terrible terrible mais c'est mieux que rien...