"Mémoire Insuffisante" sur 1 macro simple

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):


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))
       [B]Cellule.Value = new_text_N3[/B]
    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

Salut,

la ligne spécifiée par le debuggeur est celle en gras.  ?!?!?

Salut,
> bigfish_le vrai: [B]Cellule.Value = new_text_N3[/B] (ca a pas marcher)

@+: Ju£i¤n
Pensez: Réponse acceptée

Salut,

Salut, Julien merci pour l'info
Ted, je ne vois pas trop d'ou vient le probleme mais tu peux toujours essayer ce qui suit :
Attention les points devant les reange sont obligatoire

Sub Macro1()
    Dim lastline_N3 As Long, Cellule as Range
    Dim old_text_N3 As String, new_text_N3 As String
    With Sheets("N3")
        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
        Next
    End With
End Sub

Merci beaucoup, malheureusement ca ne fonctionne pas...
J'ai aussi essayé de "réduire" le code:

Sub Macro1()
ForEach Cellule In Range("E4:E" & Range("E9").End(xlDown).Row)
       Cellule.Value = Replace(Cellule.Value, Chr(13), Chr(10))
Next
EndSub

Mais ca n'est pas mieux...

[EDIT] désolé pour la balise qui n'est pas passé!

non non ! ta methode est pas bonne la ! reprend ce que je t'ai donné et donne moi le message d'erreur et le code d'erreur

tu peux aussi mettre une Msgbox pour voir ce qui ce passe :

Sub Macro1()
    Dim lastline_N3 As Long, Cellule as Range
    Dim old_text_N3 As String, new_text_N3 As String
    With Sheets("N3")
        lastline_N3 = .Range("E9").End(xlDown).Row
        MsgBox lastline_N3
        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
        Next
    End With
End Sub

regarde si la valeur que te renvoit la msgbox est coherante

J'avais déjà testé cela mais la valeur est tout à fait cohérente (et faible : 53 )

Par contre la cellule contient environ 1400 caractères....

Oui mais c'est quoi le message d'erreur ? sans cette info j'arrete !

Et bien le message d'erreur est tjs le même "Mémoire insuffisante"