restreindre les couleurs.

[yvan69]

Bonjour,

Lors de la construction d'un tableau j'ai réussi à faire que des cellules s'additionne en fonction de la couleur des cellules (couleur de fond). Maintenant je désire pouvoir limiter le choix des couleurs pour l'utilisateur soit :

- par un menu déroulant de couleur. Est ce possible via "données et validations" ?

- ou via un bouton qui aurait les mêmes fonctions que le pinceau ( reproduire la mise en forme" ?

Je suis sous xp et excel 2003...

Merci de votre aide

Yvan

 

[BOISGONTIER]

Re : restreindre les couleurs.

Bonjour,

Voir PJ

JB
Formation Excel VBA JB

 

[yvan69]

Re : restreindre les couleurs.

excellent !!! exactement ce que je desirais.

Merci beaucoup de ton aide

Yvan

 

[yvan69]

Re : restreindre les couleurs.

Bonjour,

Toujours pour le meme cas cité plus haut je me retrouve face a 2 probleme 🙁 (etant debutant en vba je seche un peu)

- lorsque je protege ma feuille cela empeche l'execution de la macro de coloriage. Est ce possible resoudre cela en gardant la protection de la feuille ?

- lorsqu'un valeur est saisie et que le coloriage est appliqué ensuite la somme ne se calcul pas ... je suis obligé de faire f2 sur la cellule concerné. quelle peut etre la soluce ou la ligne vba permettant de revalider la cellule ?

merci de votre aide

je vous colle le fichier pour etre plus clair.

Yvan69

 

[BOISGONTIER]

Re : restreindre les couleurs.

Bonsoir,

Voir PJ

Function SommeCouleurFond(champ As Range, couleurFond As Range)
  Application.Volatile
  Dim c, temp
  temp = 0
  For Each c In champ
    If c.Interior.ColorIndex = couleurFond.Interior.ColorIndex Then
      If IsNumeric(c.Value) Then temp = temp + c.Value
    End If
  Next c
  SommeCouleurFond = temp
End Function

Sub auto_open()
  UserForm1.Show
End Sub

Private Sub CommandButton2_Click()
   colorie 35
End Sub

Private Sub CommandButton3_Click()
   colorie 28
End Sub

Private Sub CommandButton4_Click()
  colorie 40
End Sub

Sub colorie(c)
  ActiveSheet.Unprotect Password:=""
  Selection.Interior.ColorIndex = c
  ActiveSheet.Protect Password:=""
  Calculate
End Sub

JB

 

[yvan69]

Re : restreindre les couleurs.

magnifique !!! Merci bcp pour ton aide.