Discussion :

[DarkGriffin]

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 !

[Krovax]

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 :

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

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

[DeaD78]

Bonjour,

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

Code :

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

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

Le & te sauvera

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 ?

[DarkGriffin]

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 :

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

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 ?

[DeaD78]

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 :

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

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

[aalex_38]

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

[DarkGriffin]

En fait, j'aimerais que quand je tape :

Code :

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

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

[aalex_38]

bonjour le forum,

Pour mettre en gras ce n'est pas :

Code :

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

.Font.Bold = False

mais :

Code :

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

.Font.Bold = True

J'ai testé l code fonctionne.