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.
Posté le 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
Posté le -
J'ai poussé sur la mauvaise flèche , mon vote était bien-sur 10 plus+++ – eric moerenhout 21 novembre 2017, 14:12
Bonsoir Chris,
Merci pour ta réponse j'essaye tout de suite,
Bàt
Eric
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
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
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
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
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
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
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
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
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.
Content que nous y sommes arrivés.
Bonne continuation et à ta disposition en cas de besoin.
Chris