Bonjour,

L'intitulé parait assez idiot vu comme cela, sauf que je ne trouve pas ma réponse en fouillant sur le net.

En fait, j'ai une cellule de référence (cells(22,3)) dans laquelle j'affiche un rapport au fur et à mesure de mes calculs (avec une fonction AjouterRapport qui prend en argument la chaine de caractère à ajouter, un booléen pour savoir si on ajoute en gras ou non, en italic ou non, et de quelle couleur).

Mon soucis est donc de rajouter au fur et à mesure du texte dans cette cellule sans modifier la mise en forme de ce qui est déjà écrit.

Ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Cells(22,3).value=cells(22,3).value+ChaineAAjouter
ne fonctionne évidement pas, car il ne garde pas la mise en forme

et ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Cells(22, 3).Value = Cells(22, 3).Characters(1,fin).Text+ChaineAAjouter
ne fonctionne pas non plus au bout d'un certain nombre de caractères (c'est limité à 255 ??)

Merci d'avance pour vos solutions !