Bouton qui applique une couleur aux cellules

kiko8111 Messages postés 150 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour, j'ai trouvé un ancien sujet qui correspond à mes besoins sauf que j'aimerai pouvoir avoir le principe de bouton dans une barre défilante.

https://www.cjoint.com/doc/16_06/FFjmtCFESff_Bouton-style.xlsm

Cela est il possible ou d'une autre façon ? Et surtout quelles procédures (mon niveau est .....juste)



Configuration: Windows / Firefox 97.0

9 réponses

Réponse 1 / 9
M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285
 
Bonjour,
Un test avec double clic sur la cellule désirée.
On choisit la couleur dans le déroulant en O8 et on double-clic sur la ou les cellules voulues

la macro se trouve dans la feuille et non dans le module
https://www.cjoint.com/c/LCihP0JtSvv
1
Réponse 2 / 9
kiko8111 Messages postés 150 Date d'inscription   Statut Membre Dernière intervention   33
 
Bonjour, merci de votre réponse.
Cela correspond à mon projet.
Je laisse dans une feuille à part et la barre déroulante dans mon tableau.
Si par hasard je venais à avoir un problème je reviendrai vers vous
Merci
0
Réponse 3 / 9
kiko8111 Messages postés 150 Date d'inscription   Statut Membre Dernière intervention   33
 
Re, juste pour savoir comment mettre des couleurs pastel car cela fonctionne mais j'ai du mal à voir ce qui est noté à l'intérieur.
Autre, est t'il possible d'avoir dans la barre déroulante la couleur réelle à la place de la dénomination ?
Merci
0
Réponse 4 / 9
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

voir ceci

https://www.excel-pratique.com/fr/fonctions-complementaires/colorbox-excel

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 9
kiko8111 Messages postés 150 Date d'inscription   Statut Membre Dernière intervention   33
 
Re, je viens de charger le pack fonction xlp mais il me semble ne pas fonctionner. Il est bien reconnu mais impossible de le lancer. J'ai fais le tour de beaucoup de tuto mais je tourne en rond.
Y a t'il une procédure pour voir les couleurs comme sur la vidéo du dernier lien ?
Merci de m'orienter, je suis perdu
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Une autre manière de procéder

a mettre dans le module de la feuille concernée: 

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 3 Then 'Si colonne C
        SelectionColor
    End If
    End Sub
Sub SelectionColor()
Dim ComDlg, cdlCCFullOpen, cdlCCRGBInit, cdlCancel
Dim code As Variant
 Set ComDlg = CreateObject("MSComDlg.CommonDialog")
Debut:
With ComDlg
.CancelError = True
.Color = RGB(255, 0, 0)
.Flags = cdlCCFullOpen Or cdlCCRGBInit

' Appel de la boite couleur
 On Error Resume Next
.ShowColor
If Err.Number <> cdlCancel Then
If MsgBox("Vous n'avez pas sélectionné de couleur." & Chr(10) & "Voulez-vous annuler la sélection ?", vbYesNo, "Couleurs") = vbYes Then
Exit Sub
Else
GoTo Debut
End If
End If
End With
ActiveCell.Interior.Color = ComDlg.Color ' couleur
End Sub


voilà

@+
0
Réponse 6 / 9
kiko8111 Messages postés 150 Date d'inscription   Statut Membre Dernière intervention   33
 
Re, je viens de voir. Cela fonctionne mais je n'ai pas le choix de colorbox.
Je ne comprend pas pourquoi il ne se déclenche pas avec la fenêtre comme sur la vidéo.
C'est râlant et frustrant.
Je vais continuer à chercher
0
Réponse 7 / 9
kiko8111 Messages postés 150 Date d'inscription   Statut Membre Dernière intervention   33
 
Je viens de voir la fenêtre de colorbox séafficher.
J'avais suite à votre dernier méssége crée un nouveau dossier avec la formule que vous m'aviez mise. Cela fonctionnais mais .....
J'ai éffacé VBA et mis comme dans la vidéo explicative : MIRACLE !
Je m'en contente, encore MERCI!
0
Réponse 8 / 9
kiko8111 Messages postés 150 Date d'inscription   Statut Membre Dernière intervention   33
 
Bonjour, suite aux contacts de hier avec sucé je reviens vers vous car dans ma formule de couleur le VBA m'informe d'une erreur d'exécution 1004 (erreur définie par l'application ou par l'objet) qui reviens aussi au paragraphe suivant.
Je suis sur feuille protégé et ColorBox.
Merci de me dépanner, j'ai monté tout cela et maintenant BUG

Merci
0
Réponse 9 / 9
kiko8111 Messages postés 150 Date d'inscription   Statut Membre Dernière intervention   33
 
Oubli fichier à joindre
https://www.cjoint.com/c/LCjmxSfRwCy
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Essaie ceci pour voir ce qu'il en sort: 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Column = 3 Then 'Si colonne C
       MsgBox colorBox(Target.Interior.Color)
        If couleur > -1 Then 'Si l'utilisateur a choisi une couleur
           ' Target.Interior.Color = couleur
        End If
    End If
    
End Sub


@+
0

Discussions similaires

Où est la touche SHIFT sur mon clavier d'ordi ?
joe! -
fernando-_ytb -

18 réponses
sertissage des cables rj45
lekludo -
brupala -

7 réponses
Quel est la touche shift sur le clavier
paoade -
PRIPRI -

8 réponses
Bouton ON OFF, O ou I ?
Stargirlfr -
kaparzo23 -

12 réponses
additionner nombres dans cellules avec texte
kawimaki -
kawimaki -

6 réponses