couleur dans cellule

Jacques87

XLDnaute Accro

• 14 Février 2006

• #2

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 14 Février 2006

• #3

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]

 

Pièces jointes

• Classeur1_20060214211519.zip

  12.3 KB · Affichages: 31

Vote positif 0 Vote négatif

E

Evelynetfrancois

Guest

• 14 Février 2006

• #4

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]

 

Pièces jointes

• JUSTINE.zip

  9.9 KB · Affichages: 24
• JUSTINE.zip

  9.9 KB · Affichages: 24
• JUSTINE.zip

  9.9 KB · Affichages: 25

Vote positif 0 Vote négatif

P

pat1545.

XLDnaute Accro

• 14 Février 2006

• #5

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

 

Vote positif 0 Vote négatif

justine

XLDnaute Occasionnel

• 14 Février 2006

• #6

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

xp

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 14 Février 2006

• #7

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]

 

Vote positif 0 Vote négatif

justine

XLDnaute Occasionnel

• 14 Février 2006

• #8

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

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 14 Février 2006

• #9

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

 

Vote positif 0 Vote négatif

E

evelynetfrancois

Guest

• 14 Février 2006

• #10

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

 

Vote positif 0 Vote négatif

M

mahel

Guest

• 14 Février 2006

• #11

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

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 14 Février 2006

• #12

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

 

Vote positif 0 Vote négatif

justine

XLDnaute Occasionnel

• 14 Février 2006

• #13

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

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 14 Février 2006

• #14

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

Cliquez pour agrandir...

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

 

Pièces jointes

• mDF_CoupeCellCouleur.zip

  11.6 KB · Affichages: 23

Vote positif 0 Vote négatif

E

Evelynetfrancois

Guest

• 16 Février 2006

• #15

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]

 

Pièces jointes

• JUSTINE_20060216172547.zip

  2.9 KB · Affichages: 21

Vote positif 0 Vote négatif