Chaines de caracteres! j'y arrive pas!

[Céline67]

Bonjour à tous,

Je n'arrive pas à faire ce que je veux avec les chaines de caracteres!
Ca parait tout simple pourtant!
Je souhaite concaténer les cellules E9 de mes feuilles et à chaque changement de feuille, je souhaite mettre un retour chariot.

Je construis une formule pour faire cette concaténation et ensuite je la mets dans une case pour ensuite la coller dans ma cellule finale pour que les utilisateurs aient accès aux mots et non à la formule.
Mais ca marche pas mon retour chariot! J'ai éssayé pas mal de chose et rien n'y fait!
A l'aide!
Merci.


Voila mon code :
For i = 2 To Worksheets.Count
nwbk.Worksheets(i).Select
Texte1 = Texte1 & Mid(Files(k - 1), 24, 2) & "!E9&" & vbCr
k = k - 1
Next i

et ensuite:
Range("E9:G17").Select
Selection.ClearContents
ActiveCell.Value = Texte1
Selection.Copy
Range("E44:G144").Select
ActiveSheet.Paste

 

[Hervé]

Re : Chaines de caracteres! j'y arrive pas!

bonjour céline

pas tout compris dans ton code, si tu veux simplement concatener les cellules E9 de toutes tes feuilles, essayes comme ceci :

For i = 2 To Worksheets.Count
texte1 = texte1 & Sheets(i).Range("e9") & Chr(10)

Next i

j'ai pas compris ceci dans ton code : Mid(Files(k - 1), 24, 2)

salut

 

[Céline67]

Re : Chaines de caracteres! j'y arrive pas!

alors dans ma chaine de caracteres Texte1, j'ai bien le texte qu'il y a dans mes cases E9 mais j'ai un soucis de mémoire à l'exécution.
Texte1 est déclarée juste comme une string.
A-t-elle une dimension max de 255 caracteres?
Est-il possible d'avoir une chaine plus grande et si oui comment?

Merci encore Hervé.


PS: oui je dois surement me compliquer la vie avec l'écriture de mes macros ...

 

[Hervé]

Re : Chaines de caracteres! j'y arrive pas!

re

A ma connaissance y'a pas de limite de longueur pour une variable string.

ton souci de "mémoire à l'execution" ne dois pas venir de là, mais d'une autre partie de ton code.

pourrais-tu nous en dire un peu plus, et nous fournir ton code.

sinon, ce que je t'ai proposé fonctionne-t'il ?

salut

 

[Céline67]

Re : Chaines de caracteres! j'y arrive pas!

oui ce que tu as proposé fonctionne mais a la copie de la variable Texte1 dans la cellule, ca me met "Memoire insuffisante"

J'arrive pas a joindre mes fichiers!!
comment faire ... j'arrive a rien ce matin!😡

 

[Hervé]

Re : Chaines de caracteres! j'y arrive pas!

re

pourrais tu tester le nombre de caractère de texte1 ?

msgbox len(textbox1)

un code test qui te montre que l'on peut renvoyer 10 000 caractères dans une cellule, essaye le et tiens nous au courant. (excel 2000)

Sub Bouton1_QuandClic()
Dim texte1 As String
Dim i As Integer

For i = 1 To 10000
    texte1 = texte1 & "A"
Next i

Range("a1") = texte1 'renvoi texte1

MsgBox Len(Range("a1")) 'renvoi le nombre de cara dans A1
End Sub

salut

 

[Céline67]

Re : Chaines de caracteres! j'y arrive pas!

ah ah ... aurais-je eu un eclair!

voici les liens vers mes fichiers!
http://cjoint.com/?lumcpuUuO1
ca c ma macro qui genere le TdB total de ces 2 (entre autres!) autres fichiers
http://cjoint.com/?lumdSwEOQH
http://cjoint.com/?lumg6t2Ndq

tu copies bien sur les 3 dans le meme repertoire
j'ai desactiver le lancement automatique de ma macro en mettant en commentaire Workbook_Open()

 

[Céline67]

Re : Chaines de caracteres! j'y arrive pas!

alors la longueur totale est de 1425 qui pourrait etre bien supérieure si toutes les cases E9 étaient remplies. Je t'ai mis en pieces jointes toute a l'heure que 2 des fichiers mais il y en a 8 en ce moment

 

[Céline67]

Re : Chaines de caracteres! j'y arrive pas!

bon rien que d'écrire mon soucis ca me clarifie les idées ...
Ton aide m'a été précieuse car tu m'as fait une bonne reflexion en disant que je me compliquais la vie ...
et en fin de compte ct hyper simple
Merci d'etre venu de nouveau à mon secours Hervé

Alors g supprimé mon copier/coller dans un tableau intermédiaire qui servait a rien et j'ai juste mis
Range("E9") = Texte1

et ca roule d'enfer!
Encore merci Hervé