Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Couleur en fonction de la valeur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ico
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
I

ico

Guest
Bonsoir

voila j'ai ecris un script qui permet de change la couleur de fond et de la police
en fonction de l'état de la cellule.

Probleme je trouve cette formule un peu lourde voyez vous un moyen de la simplifier sans repeter autant de fois le range

If Range("I" & Target.Cells.Row) = "OK" Then
Range("C" & Target.Cells.Row).Interior.ColorIndex = 50
Range("D" & Target.Cells.Row).Interior.ColorIndex = 50
Range("E" & Target.Cells.Row).Interior.ColorIndex = 50
Range("F" & Target.Cells.Row).Interior.ColorIndex = 50
Range("G" & Target.Cells.Row).Interior.ColorIndex = 50
Range("H" & Target.Cells.Row).Interior.ColorIndex = 50
Range("I" & Target.Cells.Row).Interior.ColorIndex = 50

Range("C" & Target.Cells.Row).Font.ColorIndex = 2
Range("D" & Target.Cells.Row).Font.ColorIndex = 2
Range("E" & Target.Cells.Row).Font.ColorIndex = 2
Range("F" & Target.Cells.Row).Font.ColorIndex = 2
Range("G" & Target.Cells.Row).Font.ColorIndex = 2
Range("H" & Target.Cells.Row).Font.ColorIndex = 2
Range("I" & Target.Cells.Row).Font.ColorIndex = 2
End if


merci d'avance
 
Trier par date Trier par votes
Re : Couleur en fonction de la valeur

Salut Ico,

Tu pourrais raccourcir ton code comme cela
Code: 
If Range("I" & Target.Cells.Row) = "OK" Then
  Cel = Target.Cells.Row
  Range("C" & Cel & :"I" & Cel).Interior.ColorIndex = 50
  Range("C" & Cel & ":I" & Cel).Font.ColorIndex = 2
End if

Voilà 😉
 
Vote positif 0 Vote négatif
Re : Couleur en fonction de la valeur

Bonsoir Ico

essaye peut être comme ceci :

Code: 
With Range("C" & Target.Row & "I" & Target.Row)
.Interior.ColorIndex = 50
.Font.ColorIndex = 2
End With

mais je ne comprends pas trop ton Target.Cells.Row.

bonne soirée
@+

Edition : bonsoir Bruno, plus rapide...
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Couleur en fonction de la valeur

bonjour ico

a tester:

Code: 
If Range("I" & Target.Cells.Row) = "OK" Then
for n=3 to 9
Cells(n,Target.Row).Interior.ColorIndex = 50
Cells(n,Target.Row).Font.ColorIndex = 2
next n
End if

edit

suis en retard moi !!!

salut Bruno
Salut Pierrot
 
Vote positif 0 Vote négatif
Re : Couleur en fonction de la valeur

Merci

A vous je post le script non fini si ca interresse quelqu'un (C'est une todo list)

Private Sub Worksheet_Change(ByVal Target As Range)

'Insertion automatique de la date et ID

If Target.Cells.Column = "4" Then
Range("C" & Target.Cells.Row) = Date
Range("I" & Target.Cells.Row) = "KO"
Compteur = Range("B" & Target.Cells.Row - 1).Value
Range("B" & Target.Cells.Row).Value = Compteur + 1
End If

'Mise en forme en fonction de l'état Côté DEV

'Etat ok
If Range("I" & Target.Cells.Row) = "OK" Then
For n = 3 To 9
Cells(Target.Row, n).Interior.ColorIndex = 14
Cells(Target.Row, n).Font.ColorIndex = 2
Next
End If

'Etat ko
If Range("I" & Target.Cells.Row) = "KO" Then
For n = 3 To 9
Cells(Target.Row, n).Interior.ColorIndex = 15
Cells(Target.Row, n).Font.ColorIndex = 1
Next
End If

'Etat pec
If Range("I" & Target.Cells.Row) = "PEC" Then
For n = 3 To 9
Cells(Target.Row, n).Interior.ColorIndex = 55
Cells(Target.Row, n).Font.ColorIndex = 2
Next
End If

'Etat vide
If Range("I" & Target.Cells.Row) = "" Then
For n = 3 To 9
Cells(Target.Row, n).Interior.ColorIndex = xlNone
Cells(Target.Row, n).Font.ColorIndex = 54
Next
End If





End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
3 K
Rheeem
R
F
  • Question Question
Autres Listbox-transfère la recherche dans une ListBox vers une feuille de calcul
2
Réponses
18
Affichages
528
dysorthographie
  • Question Question
XL 2019 Faire référence au nom de la feuille active ( ActiveSheet )
2
Réponses
15
Affichages
591
Dranreb
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
743
un internaute
U
  • Résolu(e)
XL 2019 Clic droit en F doit afficher la fenêtre de commentaire, prêt à saisir vierge. Qu'est-ce qui cloche ici ? ça copie...
Réponses
1
Affichages
151
anthoYS
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
734
Piment
P
U
  • Résolu(e)
Autres Centrer ou Annuler Centrer
Réponses
12
Affichages
799
un internaute
U
  • Question Question
XL 2021 (RESOLU) XL 2024 LTSC Problèmes de remplissage automatique en colonne
Réponses
6
Affichages
224
kdet
  • Question Question
Microsoft 365 Incompatibilité de type
Réponses
1
Affichages
468
Dranreb
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
585
sylvanu
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
2 K
Webperegrino
W
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
911
TooFatBoy
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
784
lynyrd
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
848
Lu76Fer
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
C
  • Question Question
XL 2019 Tableau Excel
Réponses
4
Affichages
265
Caller
C
  • Suggestion Suggestion
Date et heure fonction férié pour faire suite a la fonction paques avec l'ago de meuss méthode butcher
Réponses
2
Affichages
328
patricktoulon
  • Suggestion Suggestion
Date et heure une fonction donnant la date de paques basé sur l'algo de meuss(MeeusJonebutcher)
Réponses
10
Affichages
959
MichelClaes
M
K
  • Question Question
Microsoft 365 Excel - Répartition Charge de travail (mensuel)
Réponses
10
Affichages
688
Kristelle1555
K
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…