Discussion :

[patricktoulon]

bonjour a tous

j'ai un petit soucis avec un message d'erreur que je ne comprends pas

j'ai un code HTML que je veut decouper
il peut contenir jusqu'à 200000 caractères et peut être plus
j'essaie donc de le couper et de mettre chaque morceau dans une cellules
sachant qu'une cellule peut contenir plus de 32000 caractères je suis loin de compte puisque je coupe tout les 200 caractères
mais voila au bout d'un moment la macro déclenche l'erreur "mémoire insuffisante " et je ne comprends pas pourquoi

Code :

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

1
2
3
4
5
6
7
8
9
10
T="balablablablabla......."
Sheets.Add After:=Sheets(Sheets.Count)
 
    Sheets(Sheets.Count).Name = imgname
    For L = 1 To Len(t) Step 200
    a = IIf(L > 1, a + 1, 0): it = it + 1
    Fin = IIf(Len(t) - L + a >= 200, L + a + 200, Len(t))
    'Debug.Print "debut = " & L + a & " fin = " & fin
    Sheets(imgname).Range("A" & it) = Mid(t, L + a, Fin)
 Next

quelqu'un a une idée la dessus ????,

[joe.levrai]

Salut Patrick,

ici :

Code :

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

Sheets(imgname).Range("A" & it) = Mid(t, L + a, Fin)

faudrait pas remplacer Fin par 200 ? Puisque c'est l'argument qui spécifie la longueur de la chaine
du coup à chaque tour de boucle, la longueur de la chaine insérée dans la cellule augmente de 200

le problème de mémoire pourrait prévenir de là ?
Et du coup, ta variable fin n'est pas utile.

[patricktoulon]

re
merci du retour joe
je vais examiner cela

[joe.levrai]

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub toto()
T = "balablablablabzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzla......."
    With Sheets.Add
        .Name = "toto"
        For L = 1 To Len(T) Step 200
            it = it + 1
            .Range("A" & it) = Mid(T, L, 200)
        Next
    End With
End Sub

[patricktoulon]

re
merci joe tu m'a mis sur la voix
je sais pas pourquoi je me suis mis en tète que le 3 argument dans mid devait être le debut + les 200 des fois j'te jure

après si !! la variable fin est indispensable pour le dernier tour le dernier morceaux ne fait jamais 200 caractères ou alors je vais surveiller ma compagne
du coup ca donne

Code :

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

1
2
3
4
5
6
7
8
9
10
Sheets.Add After:=Sheets(Sheets.Count)
 
    Sheets(Sheets.Count).Name = imgname
    For l = 1 To Len(t) Step 200
    a = IIf(l > 1, a + 1, 0): it = it + 1
    fin = IIf(Len(t) - l + a >= 200, 200, Len(t) - (l + a))
    'Debug.Print "debut = " & L + a & " fin = " & fin
    Sheets(imgname).Range("A" & it) = Mid(t, l + a, fin)
 Next
    'Debug.Print Len(t)

et la c'est bon j'ai tout

Merci joe
c'est l'age je crois

[joe.levrai]

je suis pas sûr que fin soit bien utile dans le contexte que tu décris

si la longueur de la sous-chaine est supérieure à la longueur de chaine totale, alors Mid renvoie les caractères restants :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Chainon()
t = "ChaineImpaire"
 
For i = 1 To Len(t) Step 2
    j = j + 1
    Range("A" & j) = Mid(t, i, 2)
Next i
Debug.Print Len(Range("A" & j))
End Sub

donc si au dernier tour de boucle il ne te reste que 199 caractères, tu les auras (et t'aura pas le caractère précédant ou un espace à la fin, ou n'importe quoi d'autre)

[patricktoulon]

oui je viens de tester
en plus il y a une chose que je pige pas dans mid

exemple:

Code :

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

t="joe et Patrick discute sur le forum"

Code :

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

msgbox mid(t,1,14) ' donne "joe et Patrick"

pour le reste je devrais donc faire

Code :

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

msgbox mid(t,15,X)

mais toi dans ta boucle tu n'indente pas le +1 et pourtant ca fonctionne

je pige pas la!!!!