OVH Cloud OVH Cloud

couleur d'objet

1 réponse
Avatar
lune rousse
Bonjour,

J'ai fait la petite fonction suivante:

Function ComI(comcel)

comcel.Font.Bold = True

ComI = comcel.Comment.Text

End Function

elle me permet de récupérer dans une cellule le commentaire de la cellule.

Question : Comment faire pour afficher le texte retourné par la fonction
ComI en rouge et en italique ?

la partie : comcel.Font.Bold = True ne fonctionne pas

Je récupére le commentaire dans une ligne de synthèse avec la formule :

SI(NBCAR(D188)>2;D188&" "&E188&" - "&I188&" -"&TEXTE(J188;"jj/mm/aa")&" -
An "&K188&" "&M188&" "&SI(ESTERREUR(ComI(D188));;ComI(D188))&" Re
:"&A188;"")

merci de vos conseils

lune Rousse

1 réponse

Avatar
Daniel
Bonjour.
est-ce que :
ComI = "* " & comcel.Comment.Text
plus une mise en forme conditionnelle :
=GAUCHE(A1;2)="* "
est envisageable ?
Cordialement.
Daniel

"lune rousse" a écrit dans le message de news:

Bonjour,

J'ai fait la petite fonction suivante:

Function ComI(comcel)

comcel.Font.Bold = True

ComI = comcel.Comment.Text

End Function

elle me permet de récupérer dans une cellule le commentaire de la cellule.

Question : Comment faire pour afficher le texte retourné par la fonction
ComI en rouge et en italique ?

la partie : comcel.Font.Bold = True ne fonctionne pas

Je récupére le commentaire dans une ligne de synthèse avec la formule :

SI(NBCAR(D188)>2;D188&" "&E188&" - "&I188&" -"&TEXTE(J188;"jj/mm/aa")&" -
An "&K188&" "&M188&" "&SI(ESTERREUR(ComI(D188));;ComI(D188))&" Re
:"&A188;"")

merci de vos conseils

lune Rousse