Utiliser characters sur un texte long
Bonjour,
Pour conserver les mises en forme des caractères dans les cellules,
j'utilise la propriété characters (au lieu de mid qui perd les mises en formes)
Mon problème: lorsque la cellule contient plus de 255 caractères, cela ne fonctionne plus.
Y a-t-il moyen de lever cette restriction????
vous pouvez tester l'exemple suivant:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Sub test()
Range("A1") = "123456789" & String(100, "e")
Range("A1").Characters(4, 1).Font.Underline = True
Range("A1").Characters(4, 1).Delete
Range("a1").Characters(2, 1).Insert "iiiii"
Range("A2") = "123456789" & String(500, "e")
Range("A2").Characters(4, 1).Font.Underline = True
Range("A2").Characters(4, 1).Delete
Range("A2").Characters(2, 1).Insert "iiiii"
End Sub |
merci.
