A la recherche de Couleur

[CB60]

Bonsoir le Forum,
il y a quelques jours une personne sur le forum chercher à comptabiliser des couleur ( je ne me rappelle plus du post ).
Ayant fais quelque recherche, j'ai trouvé ce fil :
Calendriers et Plannings - Monique et Celeda = 2005
Le no du fil = Lien supprimé
L 'auteur = Robert
Le demandeur = Miguel
La Date = 29/11/2005 08:49
je l'ai modifié ( ne m'en voulé pas ) et j'ai réalisé un carré, dès que l'on click avec la souris droite dessus il nous propose un palette de 12 couleurs qui sont comptabilisés sur la droite du tableau soit avec un sommeprod ou un nb.si
Bonne lecture
Bruno

 

[Moa]

Re : A la recherche de Couleur

Salut CB60 !

Pas mal cette petite démo, mais tu aurais pu t'épargner un peu de travail.

Pas besoin de créer un UserForm pour la palette des couleurs, tu avais 2 autres solutions.

1) Via code : Application.CommandBars("Fill Color").Visible = True

2) En déroulant la palette avec la souris puis en cliquant au-dessus du texte "Aucun remplissage", tu fais apparaître le curseur qui te permet de déplacer ta palette sur la feuille.

@ +++

ChrisOne

 

[CB60]

Re : A la recherche de Couleur

Bonjour ChrisOne, le forum
L'usf n'était pas de moi.
J'ai essayé ta ligne de commande cela fonctionne, mais comment je fais pour affecté une valeur à chaque couleur et protéger les cellules qui ne sont pas dans mon carré
Bruno

 

[Hervé]

Re : A la recherche de Couleur

bonjour CB, moa

pour recuperer la couleur choisis via Application.CommandBars("Fill Color")

tu peux essayer comme ceci :

Sub Bouton1_QuandClic()

 With Application.CommandBars("Fill Color")
    .Visible = True
    Do
        DoEvents
    Loop Until .Visible = False
    MsgBox "couleur sélectionné : " & Selection.Interior.ColorIndex
End With

End Sub

salut

 

[CB60]

Re : A la recherche de Couleur

Bonjour à tous
Merci Hervé je vais faire un essai ce soir.
je vous donne la suite des événements des que possible
Bruno

 

[pierrejean]

Re : A la recherche de Couleur

bonjour a tous

a l'attention des benets qui comme moi auront testé le code d'Hervé et seront tombés sur une grille desesperement grise

une cellule au moins doit etre selectionnée

d'ou pour test

Private Sub CommandButton1_Click()
Range("A1").Select
 With Application.CommandBars("Fill Color")
    .Visible = True
    Do
      DoEvents
    Loop Until .Visible = False
    MsgBox "couleur sélectionné : " & Selection.Interior.ColorIndex
End With
End Sub

 

[Hervé]

Re : A la recherche de Couleur

re , salut pierrejean


oups, c'est vrai que j'aurais du le préciser, merci pierrejean (c'est moi le benet)

cb60, en piece jointe une solution reprenant ton tableau de planning.

j'ai ajouté un bouton dans le menu contextuelle pour éviter de perdre le clic droit.

salut

 

[CB60]

Re : A la recherche de Couleur

re
c'est "Bo" hervé, cela fonctionne bien, mais peut ton avoir une astuce pour compter le nombre de case vide, est le nombre par couleur utilisé plutot que d'utiliser le message box, le mettre dans un récapitulatif sur la feuille du style des sommeprods que j'avais mis.
Bruno

 

[Hervé]

Re : A la recherche de Couleur

re

pas de problème, c'est meme plus simple comme ca.

voir colonne AC:AD

salut

 

[CB60]

Re : A la recherche de Couleur

re
je suis toujours impressionné par votre facilité à manipuler le VBA par la recherche des solutions que vous nous donner.
Je ne sais pas si tu es Ours dans la vie (au regard du petit ours animé dans ton pseudo)
Merci beaucoup Hervé, pour ma culture et celle des autres!!!