Formule couleur RVB mise en forme conditionnelle

2

Bonjour à tous,

Je cherche une formule de mise en forme conditionnelle qui permette d'appliquer directement une couleur personnalisée dont les valeurs RVB sont des variables présentes dans la feuille.

http://www.cjoint.com/c/GKmsYr0rcnt

eric moerenhout Posté le 12 novembre 2017, 20:06
par eric moerenhout
Répondre
2

Bonjour,

Je ne connais pas de fonction permettant de faire ce que tu demandes.

Par contre, à l'aide du VBA, nous pouvons le faire.

Je te joins en annexe ton classeur aménagé.

Si tu regardes dans le VBA Module 1 tu verra le programme à lancer manuellement

Si tu vas dans THISWORBOOK tu verra le même petit programme MAIS qui se lance automatiquement dès que tu fais une modification dans la Feuille

Ton classeur est réglé en automatique : si tu changes les numéros, les couleurs se transformeront.

http://www.cjoint.com/c/GKnrzBFcXGJ

J'espère que cela correspond à tes attentes.

J'ai mis quelques notes dans le programme pour dire où il faut changer pour adapter à un autre tableau

Si pas clair revient vers moi avec tes questions.

A+

Chris

PS si tu veux adapter à un autre tableau, il vaut mieux commencer par le programme manuel et ne le rendre automatique que si la mise au point est terminée

CHRIS Posté le 13 novembre 2017, 18:28
par CHRIS
  • J'ai poussé sur la mauvaise flèche , mon vote était bien-sur 10 plus+++ – eric moerenhout 21 novembre 2017, 14:12
2

Bonsoir Chris,

Merci pour ta réponse j'essaye tout de suite,

Bàt

Eric

eric moerenhout Posté le 14 novembre 2017, 19:41
par eric moerenhout
-2

Bonjour,

Je ne touchais à rien de VBA, du coup depuis  je me suis plongé dans le cours de Open Classrooms qui traite du sujet.

J'ai essayé la formule mais cela ne fonctionne pas....

Je continue à apprendre et à essayer.

Question : avec .Cells(1,  i)...la colonne ne se trouve-t-elle pas avant le rang?

Eric

eric moerenhout Posté le 21 novembre 2017, 14:21
par eric moerenhout
0

Bonjour Eric,

Quand tu dis que la formule ne fonctionne pas, tu veux parler de tes essais ou de ma proposition ?

Dois-je faire quelque chose ?

En ce qui concerne l'instruction Cells(ligne,colonne) sa syntaxe est TOUJOURS ligne et puis colonne.  Une syntaxe ne varie jamais sinon ce serait du n'importe quoi.

L'intérêt d'utiliser Cells est de pouvoir rendre volatile d'adresse de la cellule à traiter.  Ainsi dans l'exemple que tu donnes, la cellule sera toujours dans la ligne 1 mais ira dans la colonne contenue dans "i" qui est généralement utilisé comme la variable qui évolue dans un For Next.

Je te fais remarquer que dans le tableur que je t'ai envoyé, c'est exactement l'inverse que je fais : mes "cells" font varier la ligne et figent les colonnes (exemple : Cells(i,1))

A bientôt

Chris

CHRIS Posté le 22 novembre 2017, 10:35
par CHRIS
0

Encore moi : peux tu rectifier la cote que tu as donnée dans ma réponse : c'est gênant d'avoir un négatif.  Il suffit d'appuyer sur la bonne flèche et tu reviendras à 0

Merci d'avance

Chris

CHRIS Posté le 22 novembre 2017, 10:37
par CHRIS
0

Bonjour Chris,

Quand j'appuie sur la flèche verte un message me dit "vous avez déjà accordé un vote négatif ..." et il n'accepte pas ma correction . Je ne sais pas comment rectifier mon erreur.

Désolé

Eric

eric moerenhout Posté le 22 novembre 2017, 16:56
par eric moerenhout
0

En ce qui concerne la formule je parle de mes essais, ceci est probablement dû à mes débuts dans VBA. Je persévère.

Merci en tout cas.

Eric

eric moerenhout Posté le 22 novembre 2017, 17:02
par eric moerenhout
2

Essaies en poussant sur la flèche rouge : cela devrait remettre à 0

Si non : oublies - ce n'est pas bien grave

A la prochaine

Chris

CHRIS Posté le 23 novembre 2017, 00:48
par CHRIS
0

C' est fait ...merci

eric moerenhout Posté le 23 novembre 2017, 20:13
par eric moerenhout
1

Bonjour Chris,

c'est encore moi.

J'essaie toujours de faire fonctionner ton programme mais en vain.

Dans le fichier que tu m'as adressé j'ai beau essayer de changer les valeurs des cellules il ne se passe rien.

J'ai  essayé de reproduire ton script sur un autre document, toujours rien et le même message: Erreur d'exécution "424" objet requis. Je te joins un document dans lequel j'ai crée une macro, histoire de jeter un coup d'oeil dans VBA, mais là je me rends compte de mon ignorance.

En attendant je retourne à mes "openclassrooms".   

Eric

 http://www.cjoint.com/c/GKxtIxwTl4t

eric moerenhout Posté le 23 novembre 2017, 20:54
par eric moerenhout
2

Bonsoir,

Voilà ton fichier adapté :

http://www.cjoint.com/c/GKybf7xNFao

Pour que cela fonctionne en automatique comme je l'ai expliqué précédemment, il faut installer le VBA ci-dessous dans THSIWORBOOK et, naturellement, adapté les paramètres à TON tableau.

Tes colonnes à tester ne sont plus en A B et C comme le tableau que je t'ai envoyé mais bien en C (3) ; D (4) et E (5) et la zone à colorier va de la colonne 1 (A) à la colonne 10 (J)

Il fallait aussi adapter le for next qui parcoure le nombre de ligne à traiter puisque mon tableau allait jusqu'à la ligne 14 et maintenant dans ton tableau, tu vas jusqu'à la ligne 101

Voici le VBA :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim RGBValue

With Worksheets("Feuil1") 'nom feuille à adapter

For i = 2 To 101 'nombre de ligne à adapter

RGBValue = RGB(Cells(i, 3), Cells(i, 4), Cells(i, 5))

Range(Cells(i, 1), Cells(i, 10)).Interior.Color = RGBValue

Next i

End With

End Sub

Chez moi le tableau réagit bien au numéro indiqué dans les colonnes C D et E

J'espère qu'il en sera de même chez toi.

Je te laisse gérer tes expériences en VBA (je n'y ai pas touchées)

Bon courage

Chris


CHRIS Posté le 24 novembre 2017, 02:16
par CHRIS
1

Bonjour Chris,

Formidable ça fonctionne, ça va me faire gagner beaucoup de temps dans mon travail de peinture dans lequel je lie art et mathématiques et dans lequel excel à un rôle essentiel.

Merci mille fois pour ton aide, ta patience et tes capacités 

Eric

PS J'aurai certainement encore besoin d'aide.

eric moerenhout Posté le 24 novembre 2017, 16:33
par eric moerenhout
0

Content que nous y sommes arrivés.

Bonne continuation et à ta disposition en cas de besoin.

Chris

CHRIS Posté le 24 novembre 2017, 17:12
par CHRIS

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :