Couleur dans cellules

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 10 Décembre 2008

• #2

Re : Couleur dans cellules

Bonsoir,

Les dates
http://boisgontierjacques.free.fr/fichiers/Dates/PlanningColoriageBarre.xls

JB

 

Vote positif 0 Vote négatif

A

aldebaran8

Guest

• 10 Décembre 2008

• #3

Re : Couleur dans cellules

Bonsoir JB,

Merci pour aide, c'est excellent, mais ma barre de coloriage est doublé et j'aimerais que la police de "C" et "CT" soit blanche, que dois-je faire ?

fichier en PJ

 

Pièces jointes

• Essai2.zip

  30.2 KB · Affichages: 37
• Essai2.zip

  30.2 KB · Affichages: 41
• Essai2.zip

  30.2 KB · Affichages: 35

Vote positif 0 Vote négatif

A

aldebaran8

Guest

• 10 Décembre 2008

• #4

Re : Couleur dans cellules

J'ai trouvé pour le doublement de la barre, il ne fallait pas l'attacher au fichier.
Par contre, je sèche toujours pour la police de caractère de "C" et "CT"

 

Vote positif 0 Vote négatif

J

juju_69

XLDnaute Occasionnel

• 10 Décembre 2008

• #5

Re : Couleur dans cellules

Hello,

Tu as un onglet couleur dans lequel tu affectes les couleurs que tu souhaites

@ +

Juju

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 10 Décembre 2008

• #6

Re : Couleur dans cellules

Code:

Sub auto_open()
   On Error Resume Next
   CommandBars.Add ("BarreColoriage")
   CommandBars("BarreColoriage").Visible = True
   For i = 1 To [couleurs].Count
      Set bouton = CommandBars("BarreColoriage").Controls.Add(Type:=msoControlButton)
      bouton.Style = msoButtonCaption
      bouton.OnAction = "'Coloriage """ & i & """'"
      bouton.Caption = Range("couleurs")(i)
   Next i
End Sub

Sub Coloriage(p)
   For Each C In Selection
     If Not Intersect([planning], C) Is Nothing Then
       C.Value = Range("couleurs")(p).Value
       C.Interior.ColorIndex = Range("couleurs")(p).Interior.ColorIndex
       C.Font.ColorIndex = Range("couleurs")(p).Font.ColorIndex
       'Range("couleurs")(p).Copy C
     End If
   Next C
End Sub

Sub auto_close()
    On Error Resume Next
    Application.CommandBars("BarreColoriage").Delete
End Sub

Voir PJ



JB

 

Pièces jointes

• Classeur3.zip

  27 KB · Affichages: 54
• Classeur3.zip

  27 KB · Affichages: 54
• Classeur3.zip

  27 KB · Affichages: 58

Dernière édition: 10 Décembre 2008

Vote positif 0 Vote négatif

A

aldebaran8

Guest

• 10 Décembre 2008

• #7

Re : Couleur dans cellules

C'est parfait.
Encore merci et bonne soirée

 

Vote positif 0 Vote négatif

A

aldebaran8

Guest

• 11 Décembre 2008

• #8

Re : Couleur dans cellules

Bonjour,

je reviens vers vous car j'ai un problème.
La fonction coloriage marche parfaitement à la maison mais pas au boulot, je pense que cela vient de la version excel (2000). Une correction est-elle envisageable.

Merci par avance

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 11 Décembre 2008

• #9

Re : Couleur dans cellules

Bonjour,

Le classeur Classeur3.Xls fonctionne avec Excel97 (et XP). Je suis surpris qu'il ne fonctionne pas avec la version 2000.

JB

 

Vote positif 0 Vote négatif

A

aldebaran8

Guest

• 11 Décembre 2008

• #10

Re : Couleur dans cellules

Est-ce le fait que les ordi du boulot utilisent excel en réseau ???
J'ai essayé sur un portable au boulot avec excel XP, et là c'est nickel.

Aurais-tu une solution 🙁

 

Vote positif 0 Vote négatif