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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.