couleur dans cellule

[justine]

bonsoir mes ami(e)s
une question que je me pose mais je pense que c'est impossible mais on ne sait jamais avec des maitres comme vous, on peut s'attendre a tout.
ma question est la suivante:
soit une cellule coupée par une diagonale, peut on colorer une partie de cette cellule?
justine

 

[Jacques87]

Bonsoir Justine

Ta question n'est pas sans fondement, car il me semble avoir déjà vu traîner cela quelque part.
J'espère retrouver 'la chose', sinon tu peux compter sur la vigilance et la perspicacité de nos 'maîtres' comme tu les nommes.
Bonne soirée

 

[Hervé]

bonsoir justine, jacques

On c'etait déjà amuser à chercher une solution (je sais plus avec qui et quand :unsure

le seul truc que trouvé passait par des shapes, et franchemeent c'etait guere exploitable.

en piece jointe le classeur que j'avais fait à l'epoque.

mais je pense que ce n'est pas possible, faudra attendre office 12

salut [file name=Classeur1_20060214211519.zip size=12585]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060214211519.zip[/file]

 

[Evelynetfrancois]

voila justine
une idée !!!system D
le premier est un peu delicat a faire
mais apres avec copier coller ca va bien !
bonne soirée
E et F [file name=JUSTINE.zip size=1857]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/JUSTINE.zip[/file]

 

[pat1545.]

Salut,
essaie ceci trouvé dans des archives :

Sub Macro1()
val1 = ActiveCell.Left
val2 = ActiveCell.Top
val3 = ActiveCell.Width
val4 = ActiveCell.Height
With ActiveSheet.Shapes.AddShape(msoShapeRightTriangle, val1, val2, val3, val4)
.Fill.ForeColor.SchemeColor = 10
.Fill.Transparency = 0.7
End With
End Sub

Patrick

 

[justine]

bonsoir pat1545, evelynetfrancois, herve, jacques87.
merci pour vos solution.
je vais travailler avec les shapes.
merci a vous tous
justine

xp

 

[Jacques87]

Je savais bien que j'avais déjà vu traîner cela quelque part.
Merci E et F, cette fois ci je le range dans mes tablettes et pour le fun j'ai mis 2 couleurs comme le voulait Justine

Cordialement [file name=2couleurs.zip size=5405]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/2couleurs.zip[/file]

 

[justine]

re
merci jacques87 mais tu fais comment , je vois pas le code

 

[Jacques87]

Justine

Notre amie E et F est une petite futée, elle a intégré dans une cellule une forme triangulaire.
Voila pourquoi elle dit : 'le premier est un peu delicat a faire mais apres avec copier coller ca va bien !'
Il te suffit donc de sélectionner cette forme(bouton droit), attention à ne pas la déplacer.
Une fois sélectionnée dans son format tu choisis la couleur de fond, et c'est pas plus c.. que cela

Tiens moi au courant

Bonne soirée

 

[evelynetfrancois]

re bonsoir justine and co
y a pas de code !!!!
j ai fait ca comme ça a main levée quand j ai vu ta Question lol
c 'est juste un triangle de la barre dessin posé sur une cell
l avantage c 'est que tu peut aussi modifie la taille de la cell le triangle suit !!!
bonne soirée E et F

 

[mahel]

Bonsoir à tous

vraiement super le triangle coloré dans la cellule.
J'aimerais avoir le même avec l'angle droit en haut à gauche et un autre avec l'angle droit en haut à droite ? :silly:

qui me dira comment faire?

à bientôt

mahel

 

[Jacques87]

Bonsoir Mahel

aucun problème tu prends ton courage à deux mains et tu le construis en te servant des outils de la boite à dessin
Le plus délicat sera de le dimensionner correctement pour qu'il prenne bien sa place.

Bon courage

 

[justine]

bonsoir le fil
merci pour toutes les infos
passez une bonne nuit
justine

 

[myDearFriend!]

Bonsoir justine, Jacques87, Hervé, Evelynetfrancois, pat1545, mahel,

En faisant un mélange de tout ça, je me suis amusé à tenter une solution également...

J'ai utilisé la procédure ci-dessous (déclenchée lors du double-clic dans une cellule) :

Sub CoupeCell()
Dim Tgl As Shape
      With ActiveCell
            With .Borders(xlDiagonalUp)
                  .LineStyle = xlContinuous
                  .Weight = xlHairline
                  .ColorIndex = xlAutomatic
            End With
            Set Tgl = ActiveSheet.Shapes.AddShape(8, .Left, .Top, .Width, .Height)
      End With
      With Tgl
            .Flip 0
            .Placement = xlMoveAndSize
            With .Fill
                  .Visible = True
                  .Solid
                  .ForeColor.SchemeColor = 15
                  .Transparency = 0.7
            End With
            .Line.Visible = False
      End With
End Sub

Cordialement, [file name=mDF_CoupeCellCouleur.zip size=11913]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mDF_CoupeCellCouleur.zip[/file]

 

[Evelynetfrancois]

bonsoir justine
juste pour rire 2/3 essais pour le fun !!
a plus
E et F [file name=JUSTINE_20060216172547.zip size=2979]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/JUSTINE_20060216172547.zip[/file]