en VBA, utilisation de .characters limité à 255?

Bonjour,
Un souci avec characters insert :
Je n'arrive pas à dépasser 255 caractères dans une cellule.
(alors que la fonction string y arrive)

Pour être très bref, je schématise mon problème avec le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub hopla() ' met 600 fois le caractère a dans A1 Range("A1:A10").ClearContents Range("a1") = String(600, "a") Range("a2") = Len(Range("a1").Value)   ' et là, ne met "que" 255 fois le caractère a dans la cellule For i = 1 To 600 lg = Len(Range("a4").Value) Range("A4").Characters(Start:=lg + 1).Insert "a" Next Range("a5") = Len(Range("a4").Value) End Sub

---

et la question: que fais je de mal pour que la boucle coince à 255?
pourquoi n'y a-t-il pas 600 caractères dans la cellule A4 ?
et comment faire pour dépasser les 255 ?
merci de vos suggestions
pirot

Bonsoir,

Citation:

---

Pourquoi n'y a-t-il pas 600 caractères dans la cellule A4 ?

---

La propriétée Characters doit être limité à 255 indice. (cas similaires >>ici<<)

Citation:

---

comment faire pour dépasser les 255 ?

---

Remplacer ligne 9-10

Code:

---

1 2	lg = Len(Range("a4").Value) Range("A4").Characters(Start:=lg + 1).Insert "a"

---

par

Code:

---

Range("A4").Value = Range("A4").Value & "a"

---

Bonjour,
Non, modifier le code en utilisant range.value fait perde les mises en formes particulières de certains mots dans la cellule:
le format des caractères se trouve uniformisé.
Or je ne veux pas perdre les mises en forme individuelles des caractères dans la cellule.

@+
pirot

Bonsoir,

Citation:

---

Modifier le code en utilisant range.value fait perde les mises en formes particulières de certains mots dans la cellule

---

Pourquoi ne pas :

1) Sauvegarder la mise en forme de chaque caractère, dans des tableaux :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim c As Characters For Each c In Range("A4") With c.Font 'enregistrer la config qui nous intéresse '.Color '.Italic '.Blod '.Size End With Next c

---

2) Faire la concaténation par une méthode non limitée à 255 caractères :calim2:

Code:

---

Range("A4").Value = Range("A4").Value & "a"

---

3) Restaurer la mise en forme des caractères par l'opération inverse de (1).

Bonjour,
Effectivement cette solution fonctionne, mais elle est longue.
Pour mon catalogue de 12 000 lignes, il faut environ 15 minutes.
J'ai trouvé une autre solution, qui prend moins d'une minute
(en parcourant mot à mot)
merci e vos réponses
@+
pirot

Citation:

---

Envoyé par pirot

J'ai trouvé une autre solution, qui prend moins d'une minute

---

Vu que tu es venu demander de l'aide, le mieux serait de mettre la solution :calim2:

-