Mise en forme conditionnelle poussée

[Anto45]

Bonjour

Je rencontre quelques problèmes pour mener a bien une réalisation:
Je souhaiterais mettre en forme en barre de données ou nuance de couleurs des termes qui sont pour moi associés à des valeurs pour ensuite réutiliser la mise en forme de chaque cellule séparément dans la feuille.
Voici les données et leurs valeurs intrinsèques:

16 Legendary
15 Grand Master
14 High Master
13 Master
12 Great
11 Accomplished
10 Professional
9 Expert
8 Adept
7 Talented
6 Proficient
5 Skilled
4 Competent
3 Adequate
2 Novice
1 Dabbling

Par exemple, dans le cas d'une mise en forme conditionnelle en nuance de couleurs, le "Legendary" sera donc orange foncé ("valeur" la plus haute) et "Dabbling" en jaune clair ("valeur" la plus faible).
Je voudrais ensuite réutiliser la mise en forme de chacune de ces cellules séparément dans la feuille. Par exemple, lorsque j'entrerais Legendary dans une cellule, la mise en forme orange foncé lui sera appliquée (j'avais pensé à recherchev, apparemment il ne prend pas en compte les mises en formes).

Est-ce que vous voyez comment faire?

Merci!

 

[pierrejean]

Re : Mise en forme conditionnelle poussée

Bonjour Anto45

Et bienvenue sur XLD

Dans le fichier joint: Si tu inscris en colonne A feuille 1 un terme existant dans la zone B1:B16 de la feuille 2 la mise en forme de la cellule correspondante sera appliquée

 

[Anto45]

Re : Mise en forme conditionnelle poussée

Merci, ça fonctionne!
Mais il va falloir que tu m'expliques😕

Par contre pour les couleurs, comment je pourrais faire pour appliquer un dégradé de couleur sur les valeurs sur termes qui correspondent?
La mise en forme conditionnel n'a pas l'air de s'appliquer ligne par ligne...

 

[pierrejean]

Re : Mise en forme conditionnelle poussée

Re

Explication:
Dans le module de la feuille 1 il y a une macro evenementielle qui
S'assure que le terme entré l'est dans la colonne A
Recherche en feuille 2 si le terme entré existe
Si oui copie la mise forme de la cellule feuille2 vers la cellule feuille 1

Pour le degradé de couleur , je ne vois pas
Si tu souhaites que la mise forme s'applique a toute la ligne il y a des modifications a faire

 

[BOISGONTIER]

Re : Mise en forme conditionnelle poussée

Bonsoir,

Voir pj

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 3 Then
   Cells(Target.Row, 1).Resize(, 4).Interior.Color = [couleurs].Find(Target, LookAt:=xlWhole).Interior.Color
 End If

JB

 

[DoubleZero]

Re : Mise en forme conditionnelle poussée

Bonjour à toutes et à tous,

La macro de pierrejean (merci pierrejean 🙂) permet une mise en forme conditionnelle sur la colonne A.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
 Set c = Sheets("Feuil2").Range("B1:B16").Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
 If Not c Is Nothing Then
    Application.EnableEvents = False
       c.Copy Destination:=Target
    Application.EnableEvents = True
 End If
End If
End Sub

Afin que ladite mise en forme s'applique à plusieurs colonnes, par exemple de A à Z, dois-je reproduire autant de fois que nécessaire ce que j'ai commencé à faire ci-dessous ?

Private Sub Worksheet_Change(ByVal Target As Range)
 Set c = Sheets("Feuil2").Range("B1:B56").Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
If Target.Column = 1 Then
 If Not c Is Nothing Then
    Application.EnableEvents = False
       c.Copy Destination:=Target
    Application.EnableEvents = True
End If
End If

 If Target.Column = 2 Then
 If Not c Is Nothing Then
    Application.EnableEvents = False
       c.Copy Destination:=Target
    Application.EnableEvents = True
End If
End If
 
End Sub

Ou bien y a-t-il une astuce, que je ne parviens pas à trouver 😕, permettant d'éviter la recopie x fois ?

Je vous remercie pour votre aide.

 

[Pierrot93]

Re : Mise en forme conditionnelle poussée

Bonjour à tous,

@00
peut être faire le test ainsi :

If Target.Column < 27 Then

bonne journée
@+

 

[DoubleZero]

Re : Mise en forme conditionnelle poussée

Re-bonjour,

Merci 1000 fois, Pierrot 😀 ! Et bonne journée.