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...