Discussion :

[pirot]

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 :

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

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

[BlueMonkey]

Bonsoir,

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

comment faire pour dépasser les 255 ?

Remplacer ligne 9-10

Code :

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

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

par

Code :

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

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

[pirot]

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

[BlueMonkey]

Bonsoir,

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 :

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

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

Code :

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

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

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

[pirot]

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

[Didier Gonard]

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

-