Colorier une plage de cellules dans un tableau

Bonjour,

Je souhaiterais colorier une plage de cellules dans un tableau en fonction de valeurs différentes (2,4,6,10) placées dans la colonne E (voir fichier joint). pour chaque valeur je souhaiterais avoir une couleur différentes.Les valeurs seront saisies de manière aléatoire. J'ai essayé différentes formules en MFC mais aucune ne fonctionne avec ce que je voudrais obtenir.

Si quelqu'un peut me venir en aide, ce serait avec grand plaisir ...

Merci d'avance.

Bonjour,

Formule conditionnelle pour 10 :

=retiré

Pour les autres couleurs, même formule, seule valeur 10 à changer par 6, 2 ou 8...

Cordialement.

(fichier retiré)

Bonjour

A tester

Merci Pierrot pour ta réponse rapide, mais ce n'est pas tout à fait ce que je recherche.

Lorsque je saisi la valeur 6 en E7 par exemple, je souhaite que toutes les cellules de la ligne A7 à J13 soient en couleur. (différentes)

Il en sera de même pour une autre valeur à n'importe quel endroit dans la colonne E. (valeur 2: 2 lignes en couleur, valeur 4: 4 lignes en couleur...)

Désolé si je me suis mal fait comprendre..

As-tu lu toutes les réponses ou dois-je retirer la mienne ?

Désolé,

je ne suis pas magicien

Pierrot

Bonjour,

Une proposition utilisant l'évènement Worksheet.Change.

A+

Bonjour, Frangy,

j'avais cru comprendre que chaque cellule de la même ligne devaient avoir une couleur différente

Amitiés et bonne année

Pierrot

Merci Pierrot et Frangy.

Le code VBA de Frangy fonctionne trés bien c'est exactement ce que je voulais.

Frangy si tu pouvais me modifier le code en rajoutant un code couleur supplémentaire pour la valeur 2 ce serait super. Je ne suis pas un spécialiste dans ce domaine.

largoj

J'étais persuadé que Frangy trouverais la solution

Bonne après-midi à vous deux

Amitiés

Pierrot

Ma réponse ne méritant pas la moindre considération à tes yeux, je l'ai donc retirée.

Je note d'éviter de répondre à tes questions.

Désolé de n'avoir pas répondu plus tôt. Je testais d'autres réponses. En fin de conversation j'avais bien l'intention de revenir vers et te remercier.

Cordialement,

largoj

Re-bonjour largoj,

Salutations à Pierre et MFerrand,

La procédure utilise la propriété Interior.ColorIndex qui permet de définir la couleur de remplissage de la cellule parmi les 56 proposées.

1 correspond au noir,

2 correspond au blanc,

3 correspond au rouge,

etc.

La palette de ColorIndex te permet donc d'effectuer la saisie des chiffres 1 à 56.

Pour éviter l'utilisation des 2 premières couleurs (noir et blanc), il suffit de décaler la plage de couleur par rapport à la valeur saisie (Couleur = valeur saisie +2) et limiter les valeurs autorisées (1 à 54).

Voici le code correspondant

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 5 Then
        If IsNumeric(Target.Value) Then
            If Target.Value >= 1 And Target.Value <= 54 Then
                Cells(Target.Row, 1).Resize(Target.Value, 10).Interior.ColorIndex = Target.Value + 2
            End If
        End If
    End If
End Sub

A+

Merci pour tes réponses Frangy,

Autant pour moi je ne savais pas que le code pour la valeur 2 est le blanc.

Cela fonctionne très bien.

Encore merci à Pierrot et MFerrand

Bien cordialement

largoj.

Bonsoir,

pour te remercier de ta gentillesse,

je te fournit un programme pour générer toi-même te couleurs RVB

Amicalement

Pierrot

Merci pour ton programme Pierrot.

Pourrais tu me dépanner une fois de plus.

J'ai introduit le code de Frangy à la feuille originale de mon classeur et malheureusement cela ne fonctionne pas.

Un signal d'erreur apparaît lorsque je saisi une valeur dans la colonne E. J'ai pourtant copié-coller son code.

Peux tu y jeter un œil?

Ci-joint le fichier original

Merci d'avance

Tu peux entrer des données dans la colonne souhaitée,

tu avais deux fois le même code _Change dans la feuille , j'ai ajouté un 2 derrière le 2ème change

Bonsoir

Pierrot

Pierrot, je pense que tu as oublié de joindre le fichier modifié.

Merci quand même.

Largoj

avec toutes mes excuses, je travaille sur trois fichier en même temps

Bonne soirée

Pierrot

Je n'ai opéré de retrait qu'après que le sujet ait été déclaré résolu.

Il ne s'agissait que de la MFC dont tu disais ne pas parvenir à la formuler.

Pas d'autre commentaire.

Pour Pierre Cappe : il ne peut y avoir qu'une seule procédure d'évènement Change pour un même objet (Worksheet).