Ajouter des caractères à une cellule

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:

---

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:

---

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 !

utilise les balise code plutot que la couleur (pour savoir comment regarde la fin du premier poste du forum)

Sinon ce que tu veux faire s'appelle de la concaténation (orthographe a vérifier)
essaye :

Code:

---

Cells(22,3).value=cells(22,3).value & ChaineAAjouter

---

Bonjour,

En général, pour concaténer, on fait :

Code:

---

Cells(22,3).value = Cells(22,3).value & "ChaineAAjouter"

---

Le & te sauvera :mouarf:

Après, tu testes pour moi pour la mise en forme pour voir si ça marche ou pas car j'en ai aucune idée. On trouvera une solution à ce moment. Et pour la taille, teste aussi pour moi vu que je n'ai aucune idée de la limitation du nombre de caractères par cellule.

A plus tard !

EDIT : Krovax, on se le fait ce pull ? :mouarf:

Ok, à question simple réponse simple, je viens de comprendre la différence entre le + et le &, subtilité qui m'avait échappé... :)

Merci beaucoup !
PS : bon, mon code ne marche pas quand même, mais au moins il ne reset pas à chaque fois la mise en page, c'est toujours ça. Si j'y arrive pas, je reviens vers vous ;)

Bon, du coup, je comprend pas pourquoi mon code ne marche pas.

Le voici

Code:

---

1 2 3 4 5 6 7 8

Sub AddRapport(str, Optional gras = False, Optional couleur = 0) debut = Len(Cells(22, 3).Value) Cells(22, 3).Value = Cells(22, 3).Value & str With Cells(22, 3).Characters(Start:=debut, Length:=Len(str)) .Font.Bold = gras .Font.ColorIndex = couleur End With End Sub

---

Une idée ?

PS : j'enlève le tag résolu, sinon personne va me répondre, c'est ca ?

Tu dis que ton code ne marche pas. Y'a-t-il une erreur et, si Oui, où est-elle ?

Sinon, peut-être qu'il ne fait pas ce que tu veux. Que veux-tu faire exactement ?

Perso,

Code:

---

1 2 3 4 5 6 7 8

Sub AddRapport() debut = Len(Cells(1, 1).Value) Cells(1, 1).Value = Cells(1, 1).Value & "TEST" With Cells(1, 1).Characters(Start:=debut, Length:=Len("TEST")) .Font.Bold = False .Font.ColorIndex = 0 End With End Sub

---

marche chez moi. Après, peut-être pas correctement mais vu que je ne sais pas ce que tu cherches à faire...

Sans avoir testé, il me semble bien que l'on soit limité à 255 caractères.

En fait, j'aimerais que quand je tape :

Code:

---

1 2 3

AddRapport("Bonjour,") AddRapport(chr(10)+"Je suis une quiche en info",true) AddRapport(chr(10)+"Je fais ce que je peux")

---

Ca affiche :

Bonjour,
Je suis une quiche en info
Je fais ce que je peux

bonjour le forum,

Pour mettre en gras ce n'est pas :

Code:

---

.Font.Bold = False

---

mais :

Code:

---

.Font.Bold = True

---

J'ai testé l code fonctionne.