menu déroulants avec couleur

danyphil · 11 Octobre 2006

salut les pros

ESt il possible lorsque je clique sur ma fenêtre déroulante en H9 que par exemple RTT affiche le texte en rouge et que la cellule soit bleu ?
et une derniere chose, comment fait on pour supprimer une liste deroulante

merci beaucoup pour votre aide

Darnel · 11 Octobre 2006

Re : menu déroulants avec couleur

Re

Dis moi si cela te vas?

Pour ce qui est de la procédure : tu selectionne la cellule,
puis : Format, mise en forme conditionnelle, la cellule est égale à RTT

et tu choisi à quoi tu veux que cela ressemble

Pour enlever une liste déroulante : Données, validation, autoriser : Tout

EDITION: oups le fichier ...

CBernardT · 11 Octobre 2006

Re : menu déroulants avec couleur

Bonjour Danyphil, Darnel et le forum,

Un exemple de mise en couleur d'abréviations.

1- Une liste de validation dans les cellules d'une plage de cellules d'une feuille pour saisir les abréviations sans fautes;
2- Une macro évènementielle qui met en couleur en fonction des abréviations présentes dans la plage définie. Dans l'exemple A1:B20.

Cordialement

Bernard

danyphil · 11 Octobre 2006

Re : menu déroulants avec couleur

merci mais j'utilise deja la mise en forme conditionnelle pour une autre chose

merci

Darnel à dit:
Re

Dis moi si cela te vas?

Pour ce qui est de la procédure : tu selectionne la cellule,
puis : Format, mise en forme conditionnelle, la cellule est égale à RTT

et tu choisi à quoi tu veux que cela ressemble

Pour enlever une liste déroulante : Données, validation, autoriser : Tout

EDITION: oups le fichier ...

Hervé · 11 Octobre 2006

Re : menu déroulants avec couleur

bonjour tout le monde

pour m'amuser, en partant du code de CbernardT, merci à toi 🙂, une solution passant par une combobox placer dans le menu click droit.

salut

danyphil · 11 Octobre 2006

Re : menu déroulants avec couleur

MERCI

je pense que cela me convient trés bien
mais comment fait on pour mettre la macro evenementielle sur toute un page

merci de ton aide

CBernardT à dit:
Bonjour Danyphil, Darnel et le forum,

Un exemple de mise en couleur d'abréviations.

1- Une liste de validation dans les cellules d'une plage de cellules d'une feuille pour saisir les abréviations sans fautes;
2- Une macro évènementielle qui met en couleur en fonction des abréviations présentes dans la plage définie. Dans l'exemple A1:B20.

Cordialement

Bernard

Hervé · 11 Octobre 2006

Re : menu déroulants avec couleur

re

toujours pour m'amuser, une autre syntaxe possible au code evenementielle de l'ami bernard :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tablo
Dim i As Integer

tablo = Split(Target.Validation.Formula1, ";")

For i = 0 To UBound(tablo)
    If tablo(i) = Target Then Exit For
Next i

Target.Interior.ColorIndex = Choose(i + 1, 4, 40, 27, 33, 9, 44, 10, 16, 39, 46, 27, 23, 36, 0)
End Sub

hein??? quoi ??? je saoule ???, ah ok je sors.

salut

CBernardT · 11 Octobre 2006

Re : menu déroulants avec couleur

Re Danyphil,

Bonjour Hervé, très sympa le contrôle ajouté sur le click droit. Je conserve comme modèle. Encore bravo pour le boulot que tu fais sur ce forum 🙂

Pour répondre à Danyphil :

1- Placer des listes de validation sur toutes les cellules de la page n'est guère concevable. Cela alourdira exagérément le classeur. Dans ce cas là, la solution d'Hervé est parfaite.

2- Si tu veux élargir la plage et placer des listes de validation dans les cellules, il suffira de redéfinir la plage dans la macro évènementielle pour qu'elle puisse en colorer toutes les cellules.

Cordialement

Bernard

Gorfael · 11 Octobre 2006

Re : menu déroulants avec couleur

Hervé à dit:
bonjour tout le monde

pour m'amuser, en partant du code de CbernardT, merci à toi 🙂, une solution passant par une combobox placer dans le menu click droit.

salut

Salut à tous

Hervé, je suis perdu ....
Dans ta méthode comment tu affectes la macro à la sélection dans la combobox ?
A+

CBernardT · 11 Octobre 2006

Re : menu déroulants avec couleur

Bonsoir Gorfael,

Si j'ai bien compris, c'est la propriété OnAction présente dans la macro de mise en place du menu "Choix" qui lance la macro "Renvoi"".

A+

Bernard

Gorfael · 12 Octobre 2006

Re : menu déroulants avec couleur

CBernardT à dit:
Bonsoir Gorfael,

Si j'ai bien compris, c'est la propriété OnAction présente dans la macro de mise en place du menu "Choix" qui lance la macro "Renvoi"".

A+

Bernard

Salut
je me doute bien que c'est une macro de ce style, mais pas moyen de voir le code.
Or, j'ai un gros défaut : tant que je ne comprends pas complètement ce que je fais, je n'utilises pas un code. Et comme celui-ci me plait bien, parce qu'il offre pas mal de possibilités, je m'arrache mes pauvres cheveux restant à trouver comment l'exploiter
A+

Fanfan68 · 12 Octobre 2006

Re : menu déroulants avec couleur

Bonjour à tous, bonjour Hervé,

Super ta macro, dis moi, j'aurai une petite modif à y faire, j'aimerai la même chose mais au lieu d'écrire les éléments directement dans le code avec la methode additem, j'aurai voulu qu'ils se trouvent sur une feuille range("A1:A12") par exemple.

Est-ce possible ?

Merci à tous

Hervé · 12 Octobre 2006

Re : menu déroulants avec couleur

bonjour à tous

gorfael, macro de principe simple

Set cbx = Application.CommandBars("Cell").Controls.Add(msoControlComboBox)
With cbx
.Caption = "Choix :"
.BeginGroup = True
.OnAction = "renvoi"

j'ai déclaré en module 1 une variable public CBX

j'initialise cette variable ici :

Set cbx = Application.CommandBars("Cell").Controls.Add(msoControlComboBox)

comme etant une combobox de la barre d'outil cell.

puis onaction attribue la macro "renvoi" à ce meme controle.

donc des qu'un choix est fait dans la combobox, la macro renvoi se déclenche.

il suffit ensuite de récupérer ce choix à travers cbx.text

on doit pouvoir eviter la variable public en passant l'item de la combobox comme paramètre à la macro renvoi.

mais je ne sais pas faire (et puis j'ai pas trop cherché 😛)

fanfan :

il suffit de faire une boucle :

Code:

Private Sub Workbook_Open()
Dim c As Range

Set cbx = Application.CommandBars("Cell").Controls.Add(msoControlComboBox)
With cbx
    .Caption = "Choix :"
    .BeginGroup = True
    .OnAction = "renvoi"
    For Each c In Sheets("feuil1").Range("a1:a12")
        .AddItem c
    Next c
End With
End Sub

salut

Fanfan68 · 12 Octobre 2006

Re : menu déroulants avec couleur

Merci Hervé,

C'est parfait !

A bientôt

Gorfael · 12 Octobre 2006

Re : menu déroulants avec couleur

Salut à tous

Méga-désolé pour le dérangement Hervé
Pas vu le .OnAction (à cause des lunettes, ou du brouillard, je sais pas)
Depuis tout à l'heure, je cherche une macro supplémentaire et ne la trouve pas. 🙂

Mais sinon, ça sert à quoi que je sois bête si je ne le montre pas, hein !!!! 😀

Merci et A+

menu déroulants avec couleur

danyphil

XLDnaute Occasionnel

Pièces jointes

Darnel

XLDnaute Impliqué

Pièces jointes

CBernardT

XLDnaute Barbatruc

Pièces jointes

danyphil

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

Pièces jointes

danyphil

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

CBernardT

XLDnaute Barbatruc

Gorfael

XLDnaute Barbatruc

CBernardT

XLDnaute Barbatruc

Gorfael

XLDnaute Barbatruc

Fanfan68

Guest

Hervé

XLDnaute Barbatruc

Fanfan68

Guest

Gorfael

XLDnaute Barbatruc

Discussions similaires

menu déroulants avec couleur

XLDnaute Occasionnel

Pièces jointes

XLDnaute Impliqué

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Fanfan68

Guest

XLDnaute Barbatruc

Fanfan68

Guest

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency