A la recherche de Couleur

M

Moa

XLDnaute Occasionnel

• 18 Octobre 2006

• #2

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

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 18 Octobre 2006

• #3

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 18 Octobre 2006

• #4

Re : A la recherche de Couleur

bonjour CB, moa

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

tu peux essayer comme ceci :

Code:

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

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 18 Octobre 2006

• #5

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 18 Octobre 2006

• #6

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

Code:

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 18 Octobre 2006

• #7

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

 

Pièces jointes

• couleur.zip

  12.6 KB · Affichages: 47
• couleur.zip

  12.6 KB · Affichages: 45
• couleur.zip

  12.6 KB · Affichages: 43

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 18 Octobre 2006

• #8

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 18 Octobre 2006

• #9

Re : A la recherche de Couleur

re

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

voir colonne AC:AD

salut

 

Pièces jointes

• couleur2.zip

  12.8 KB · Affichages: 47
• couleur2.zip

  12.8 KB · Affichages: 48
• couleur2.zip

  12.8 KB · Affichages: 47

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 18 Octobre 2006

• #10

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!!!

 

Vote positif 0 Vote négatif