Remplissage couleur Excel

Bonjour à tous et toutes,

Ci-joint un fichier excel ds lequel j'explique le pb rencontré sur le remplissage des couleurs.

Après multiples essais avec formules, mise en forme conditionnelle, ....... je n'y suis pas arrivé

J'espère avoir été suffisamment explicite ds le commentaire associé au mini tableau !

Merci de votre aide

Sylvain

Bonjour

Voir le Code de Feuil1

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%, Plg As Range
    If Not Intersect(Target, [G2:U2]) Is Nothing And Target.Count = 1 Then
            Select Case Target
                Case Is = 9: i = 3
                Case Is = 5: i = 6
                Case Is = 10: i = 41
                Case Is = 1: i = 10
                Case Is = 7: i = 45
                Case Else
                Target.Interior.ColorIndex = xlNone
            End Select
        Target.Interior.ColorIndex = i
    End If
End Sub

Cordialement

Bonjour,

Merci de votre prompte réponse, je vais tester.

Cordialement

Sylvain

Bonsoir,

Une autre solution qui te permet de choisir les couleurs de tes valeurs situées en A2:E2.

Si tu souhaites changer la couleur, alors tes nouvelles saisies en tiendront compte.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'MACRO KETAMACANNA

index_valeur = Application.Match(Target, Range("A2:E2"), 0)

If Not Intersect(Target, [G2:U2]) Is Nothing Then
If IsError(index_valeur) Then
Target.Interior.ColorIndex = 0
Else
Target.Interior.ColorIndex = cells(2, index_valeur).Interior.ColorIndex
End If
End If

End Sub

++

Bonsoir,

Merci à tous pour vos réponses.

J'ai encore besoin de votre aide pour appliquer cette "macro VBA" dans mon fichier contenant plus de 250 lignes, car je suis vraiment novice ds l'exploitation de cette partie EXCEL.

J'ai ouvert l'onglet "développeur", mais ensuite..... comment procéder ?

Cordialement

Sylvain

Bonsoir,

Peux tu joindre un classeur ?

Merci

Bonsoir,

Tu trouveras ci-joint une partie des applications de mon classeur.

Merci de ton aide

Sylvain

Pour tester la macro, clique sur le bouton macro dans le fichier.

Si ça te convient, tu rajoutes tes autres données à la suite (copie collage spécial valeur) et tu re-cliques sur le bouton macro.

Bonjour,

Grand bravo c'est génial et grand merciiiiiiiiiiiiiiiiiiiiii

Je vais essayer de le transposer au reste de mon fichier

Te tiens au courant.

Sylvain

Bonjour,

Content que cela te convienne.

bonne journée