Gestion couleurs dans liste déroulante ?

Bonjour,

Je fais encore appel à vous et votre savoir pour éclaicir mon petit soucis.

Je vous joins le fichier Excel qui comprend mes 2 questions... le shéma est plus facile que de longues explications.

1- Gestion couleur depuis menu déroulant.

2- Gestion "somme" de minutes depuis cellules alphanumériques.

Merci à vous pour votre aide.

Cordialement.

Salut Poba,

Voici des solutions possibles à tes deux soucis.

A te relire.

Merci beaucoup Yvouille !

Je suppose qu'il est impossible d'échapper aux macros dans mon cas ?

@+

Bonjour,

Tu dois passer par les macros pour ton souci.

si ok dans la proposition de yvouille, n'oublie pas de cliquer sur le V vert à coté du bouton "editer"

Amicalement

Merci Dan !

Encore une petit demande concernant les codes de couleurs ... je dois allonger ma liste avec d'autres couleurs.

Bien que ne maitrisant pas les macros, je vais m'inspirer du modèle proposé par Yvouille, sauf que j'ai beau chercher un peu partout sur le net et l'aide excel, mais je ne trouve pas la correspondance des codes couleurs utilisés dans la macro.

Avez-vous un tableau de correspondance ("long" ... je crois) quelquepart bien caché ?

Milles merci encore !

Salut,

Sais-tu enregistrer une macro avec l'enregistreur ?

Si oui, tu enregistres une macro qui colorie une cellule avec la couleur de ton choix puis tu vas lire les références de la couleur dans la macro ainsi créée.

Tu pourrais aussi utiliser d'autres manières de faire référence à des couleurs, mais ce n'est pas plus simple selon moi. Si vraiment ça t'intéresse, je peux t'expliquer ce que je veux dire.

J'ai pensé par la suite qu'il y a un problème si tu effaces plusieurs cellules en même temps , les couleurs des cellules vidées de cette manière ne seraient pas annulées et remplacées par "Aucun remplissage". Je vais tenter de chercher une solution, mais je n'ai probablement pas le temps jusqu'à ce soir. Donc patience, s'il te plait.

A moins que Dan qui surveille probablement ce fil puisse nous aider

Bonnes salutations.

RE-Yvouille

J'ai suivi avec attention ton raisonnement.

1- Je viens d'effectuer mon 1er enregistrement macro .... grâce à toi .... c'est vrai, ça peut servir !

2- J'ai manipulé les jeux de couleurs, mais qui apparaissent sous le format ".ColorIndex" au lieu de ".color" (dans ma macro initiale)

3- J'ai bêtement remplacé le ".color" avec son numéro à rallonge par ".colorindex" avec son numéro de référence identifié dans les propriétés de ma macro (beaucoup plus simple).

4- Ca fonctionne !

Concernant :

"qu'il y a un problème si tu effaces plusieurs cellules en même temps , les couleurs des cellules vidées de cette manière ne seraient pas annulées et remplacées par "Aucun remplissage".

T'inquiètes .... tu as déjà fait beaucoup, je ne suis pas pressé !

Merci encore.

@+

Re,

Tant mieux si tu as pu résoudre ton problème de couleur. Je pense que tes codes ".ColorIndex" ou ".color" ont à voir avec la manière dont tu as enregistré ta macro, selon que tu as choisi "Couleurs du thème", "Couleurs standard", "Autres couleurs", etc.

Il y a également la possibilité de faire référence à une couleur avec les codes .Color = RGB(150, 100, 0) ou .Color = QBColor(0). En cliquant sur ces termes lorsque tu es dans Visual Basic et en tapant F1, tu as toutes les informations nécessaires afin de les utiliser.

Je pense que j'ai trouvé la solution afin de pouvoir vider plusieurs cellules en même temps. Remplace la totalité du code par le code ci-dessous.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Cadre As String

  If Not Application.Intersect(Target, Range("B5:V12")) Is Nothing Then
         If Target.Count > 1 Then
                With Target.Interior
                        .Pattern = xlNone
                        .TintAndShade = 0
                        .PatternTintAndShade = 0
                End With
                Exit Sub
        End If

        Cadre = Target

        With Target.Interior

            Select Case Cadre
                Case Is = "ABS"
                .Color = 255

                Case Is = "ADM"
                .Color = 10079487

                Case Is = "PLA"
                .Color = 52479

                Case Is = "TER"
                .Color = 65280

                Case Is = "RE"
                .Color = 65535

                Case Is = "RB"
                .Color = 10092543

                Case Is = "IT"
                .Color = 16711935

                Case Is = "HAB"
                .Color = 26367

                Case Is = "GV"
                .Color = 16751052

                Case Is = "ET"
                .Color = 52377

                Case Is = "EA"
                .Color = 6723891

                Case Else
                .Pattern = xlNone
                .TintAndShade = 0
                .PatternTintAndShade = 0

             End Select

        End With
    End If

End Sub

A te relire.

Re-Yvouille

J'ai fait un copier/coller de ta macro, mais j'ai le message d'erreur suivant:

"Erreur execution '438'.

... que ce soit pour l'effacement d'une ou plusieurs cellules.

Je ne sais pas d'où cela peut provenir ?

Merci quand même.

@+

re,

J'ai fait un copier/coller de ta macro, mais j'ai le message d'erreur suivant:

"Erreur execution '438'.

Dans le code de Yvouille, supprime ceci en début et bas de la macro

.TintAndShade = 0
.PatternTintAndShade = 0

Amicalement

Merci Dan ... c'est parfait !

Je tiens à remercier tous les membres de ce forum qui nous délivrent généreusement leur savoir de haute qualité.

Bravo à tous et encore milles merci.

Salut Dan,

Cette macro fonctionne très bien chez moi. As-tu une idée pourquoi elle ne fonctionne pas partout de la même manière ?

Cordialement

Edit : Désolé Poba, je n'avais pas vu ton message sur la deuxième page.

Bonjour Yvouille,

Ces instructions font partie des versions excel 2007 et supérieur. Donc elles renvoient un erreur sous les versions 2003 et inférieur.

Si l'on fait un code plus général, il faut en tenir compte. Par exemple en plaçant une gestion d'erreur pour les éviter dans l'exécution du code

Poba23, si ok, n'oublie pas de cloturer le fil. Clique sur le V Vert.

Amicalement

Merci Dan !