XL 2010 colorer une cellule en fonction d'une autre deja colorée

Jacky67

XLDnaute Barbatruc

• 14 Décembre 2016

• #2

Bonsoir,
Essaye ceci

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Not Intersect(Target, [plage]) Is Nothing Then
Target.Interior.ColorIndex = Cells(Application.Match(Target.Value, [liste], 0) + 2, "N").Interior.ColorIndex
Target.Font.ColorIndex = Cells(Application.Match(Target.Value, [liste], 0) + 2, "N").Font.ColorIndex
End If
End Sub

 

Pièces jointes

• loic test excel.xlsm

  16.5 KB · Affichages: 62

Vote positif 0 Vote négatif

L

loicdig

XLDnaute Nouveau

• 14 Décembre 2016

• #3

bonjour, merci pour votre réponse le fichier test fonctionne, mais je ne comprend pas comment je ne vois aucune formule nul part!!!

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 14 Décembre 2016

• #4

loicdig à dit:

....je ne vois aucune formule nul part!!!

Cliquez pour agrandir...

RE..
Parce qu'il n'y en a pas...
C'est l'exécution du code vba qui fait le boulot dans ce cas.
C'est un code évènementiel , qui s'exécute quand il y a un changement dans la feuille concernée et particulièrement dans la plage nommée "plage"
Pour visualiser le code
Clique droit sur l'onglet de la feuille concernée ==>visualiser le code
ou encore
Alt+F11

 

Vote positif 0 Vote négatif

L

loicdig

XLDnaute Nouveau

• 14 Décembre 2016

• #5

je ne maitrise absolument pas le code vba.
dans mon exemple les cases ne correspondent pas a mon fichier originel je suis incapable de refaire la manipulation pour mon fichier.😕
n'existerait-il pas une simple formule 🙂

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 14 Décembre 2016

• #6

loicdig à dit:

je ne maitrise absolument pas le code vba.
dans mon exemple les cases ne correspondent pas a mon fichier originel je suis incapable de refaire la manipulation pour mon fichier.iste
n'existerait-il pas une simple formule 🙂

Cliquez pour agrandir...

RE...
....n'existerait-il pas une simple formule
A ceci je répondrai NON

Dans le fichier originel,
-Sélectionner toutes les cellules qui doivent contenir cette liste de validation
-Nommer cette sélection "Plage"
-Copier le code #2 (plus haut dans ce fil)
-Clique droit sur l'onglet de la feuille concernée ==>visualiser le code
-Coller le code
-Tester..........

 

Dernière édition: 14 Décembre 2016

Vote positif 0 Vote négatif

L

loicdig

XLDnaute Nouveau

• 14 Décembre 2016

• #7

Je pense avoir compris le truc je vais essayer demain.
Merci pour les explications.

 

Vote positif 0 Vote négatif