Couleur dans cellules

[aldebaran8]

Bonsoir à tous,

Je me suis inspiré du fichier de MONIQUE mais je n'arrive pas à colorier les cellules avec l'aide d'une barre de menu personnalisée.

Merci pour votre aide.

 

[BOISGONTIER]

Re : Couleur dans cellules

Bonsoir,

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

JB

 

[aldebaran8]

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

 

[aldebaran8]

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"

 

[juju_69]

Re : Couleur dans cellules

Hello,

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

@ +

Juju

 

[BOISGONTIER]

Re : Couleur dans cellules

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

 

[aldebaran8]

Re : Couleur dans cellules

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

 

[aldebaran8]

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

 

[BOISGONTIER]

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

 

[aldebaran8]

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