souligner qu'une partie d'une cellule excel

Question

alors pour faire simple j'ai une spreadsheet dans laquel je met qqchose de connue("toto ") et le resultat d'une requete 
(result!tata) dans une même cellule disons (A,1).
Je veux pouvoir souligner seulement toto. 
"Spreadsheet1.Cells.find("toto").Font.underline = 2"
souligne tout ce k'il y a dans la cellule car find cherche le contenue dans une cellule, mais pointe sur toute la cellule( meme en utilsant la propriete xlPart  pour lookat.)

pjcleder · Answer

PAT
Pour ce genre de chose, je "triche". J'utilise deux cellules. L'une a sa bordure droite invisible, l'autre la gauche. Il y a impression d'une cellule unique. J'ai été confonté une seule fois à cette obligation et comme j'étais dans l'urgence, j'ai fait cette bidouille qui , je le conçois, même à l'époque, n'était pas trés propre mais m'a permis de sastifaire la demande.

HFanny · Answer

Bonjour

pour faire cela en code tu peux utiliser : 



Dim cellule As Range
Dim pos As Integer
Dim aSouligner As String
aSouligner = "toto"

Set cellule = ActiveCell
pos = InStr(1, cellule.Value, aSouligner)

cellule.Characters(pos, Len(aSouligner)).Font.Underline = xlUnderlineStyleSingle



Qui souligne la première occurence de "toto" dans la cellule active.

Il te suffira de changer la cellule sur laquelle tu as besoin de trouver l'occurence "toto".

Si tu as d'autres questions, n'hésite pas  :) 

Fanny

cs_louly · Answer

merci beaucoup PAT mais pour mon cas o niveau de la mise en page c pas trop ça.
fanny ça m'a l'air d'etre exactement ce ke je cherche, je pense bien avois compris dans kel sens tu veu allé mais le problem c ke je suis sous vb6 et ke  cellule.Characters(pos, Len(aSouligner)) ça à pas l'aire d'exister.
cellule.text ne prend pas ces parametres (et n'en prend pas du tout d'ailleur.
si tu connais la methode exact de cellule pour faire ce que tu me dis je pense que tu a regler mon probleme

cs_louly · Answer

en gros kel methode de "cellule as range" me permet de preciser la longueur de la chaine sur laquel je travaille vu ke la position du 1er caractere m'importe peut car dans mon cas la chaine souligner est tjr la 1er.

econs · Answer

Si ob est un objet de type Excel.Application :


pos = InStr(1, cellule.Value, aSouligner)
ob.ActiveCell.Characters(pos, Len(aSouligner)).Font.Underline = xlUnderlineStyleSingle


Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

econs · Answer

et tu remplaces pos par 1 si tu soulignes à tous les coups à partir du premier caractère.

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

cs_louly · Answer

ce que j'utilise c'est un controle ms office web component avec vb6
la methode Characters je ne l'a trouve sur aucun objet (g suivis la methode de fanny un peu plus haut)
donc ça donne à peu pres ça :

Dim cellule As Range
Set cellule = Spreadsheet1.ActiveCell
cellule.Font.Underline = 2

là il me souligne toute la cellule,

pour une cellule contenant "toto" 
si je met 
cellule.Characters(1, 4).Font.Underline = 2
 il m'insulte en me pretendant que "methode or data member not found";)

HFanny · Answer

Et sinon il te propose quoi comme différentes méthodes/propriétés sur l'objet cellule ?

Ou te propose t'il plutot pour 

(Comme je n'ai jamais utilisé de web component  :-p , c'est déjà un peu plus dur).

Fanny

cs_louly · Answer

alors le problem c k'il y'en à bcp dont o moins un bon tiers ke je ne sais pas à koi elle servent donc toute te les reecrire ça parait un peut long  :) 
tu ne saurait pas regarder? avec OWC10.DLL?
sa serait sympa si tu a le temp merci.

cs_louly · Answer

sinon tampis il soulignerons eux même !!!lol ;)

Souligner qu'une partie d'une cellule excel

10 réponses

Discussions similaires