MFC + taille police

[arvin]

bonjour à tous,

bon je me prends la tête depuis hier et pourtant cela a l'air simple ....merci de m'aider :

en MFC, je souhaite tout simplement changer la taille de la police , et c'est en grisé , je ne peux modifier que le style !!!

est ce Excel ou moi qui plante ?

(autre idée en VB ?)

merci à tous

 

[Brigitte]

Bonjour,

Non tu ne rêves pas, il reste à espérer qu'excel, dans une prochaine version, permette tout ce que l'on souhaite comme mise en forme.

Moi aussi ca me fait pester.

C'est certainement possible en vba, d'autre part, tu as sur le site XLDynamic, entre autres une xla très intéressante qui s'appelle CFPlus que tu peux télécharger qui permet non seulement jusqu'à 30 MFC (mais bon bonjour la lisibilité pour apprendre tout par coeur : se dire 'cette couleur, ca veut dire ca, trente fois'...) mais surtout pour ton cas, permet aussi des mises en forme plus nombreuses : taille police notamment.

Attention, le site affiche parfois une page blanche avec une croix rouge... Il faut descendre pour trouver les programmes et tu trouves ainsi :

CFPlus - Extended Conditional Formatting
Download this Excel add-in that overcomes the shortomings of the built-in conditional formatting, just 3 conditions.

Bon courage.

Message édité par: Brigitte, à: 22/03/2006 09:57

 

[arvin]

ok merci beaucoup pour la réponse rapide

je regarde le site

à bientôt

 

[pierrejean]

bonjour arvin

bonjour Brigitte

un exemple de mfc par macro pour la cellule A1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$A$1' Then
If Target.Value > 10 And Target.Value < 12 Then
Target.Font.Size = 20
Target.Interior.ColorIndex = 3
Else
Target.Font.Size = 14
Target.Interior.ColorIndex = 2
End If
End If
End Sub

 

[arvin]

bonjour

en fait cela me plait super mais je n'arrive pas à faire fonctionner (il manque 1 objet ?); de + , je souhaite en fait que si la cellule = 'X' il augmente la taille , crois tu cela possible

merci de ton aide

 

[pierrejean]

re

voila pour le X

If Target.Address = '$A$1' Then
If Target.Value = X Then
Target.Font.Size = 20
Target.Interior.ColorIndex = 3
Else
Target.Font.Size = 14
Target.Interior.ColorIndex = 2
End If
End If

as-tu bien mis cette macro a sa place ?

non pas dans un module mais dans la feuille concernée

pour obtenir la mfc que tu souhaites il faut modifier les propriétés de la cellule
pour les connaitre enregistre une macro qui te montrera les valeurs changées

 

[arvin]

ah désolé il me dit 'objet requis'

qu'en penses tu ?

merci

 

[pierrejean]

re

eh bien je n'y comprends absolument rien !!

peut-etre la version d'excel ?

moi je suis sous excel 2000 et toi ?

 

[arvin]

ok c'est bon

merci à tous

super !!!!!!!!

(for each c in ....... font.size = 20)


bonne journée