Question code vba affectation couleur à cellule en fonction de sa valeur

  • Initiateur de la discussion Initiateur de la discussion opowa
  • 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 !

opowa

XLDnaute Nouveau
Bonsoir à tous,

Je débute en programmation VBA et je me pose une question.
Je souhaiterai affecter une même couleur aux cellules de mon tableau en fonction de la valeur qu'elles possèdent.
Voici mon programme :

Sub Valeur()
Range("A1:M85").Select
For Each Cell In Selection
If Cell.Value = "A" Or Cell.Value = "B"
Cell.Interior.ColorIndex = 6 '
End If
Next
End Sub

J'ai beaucoup de valeurs a affecter à ma condition et je ne souhaite pas répéter "Or Cell.Value=" à chaque fois.
Selon vous, existe t-il un autre moyen?
Je m'excuse par avance si cette question a déjà fait l'objet d'une discussion.

Merci d'avance
 
Re : Question code vba affectation couleur à cellule en fonction de sa valeur

bonjour,
Code:
Sub Valeur()
Dim i, cell As Range
Range("A1:M85").Select
For Each cell In Selection
Select Case cell.Value
Case "A" To "D", "H" To "M": i = 6
Case "E": i = 2
Case "F": i = 15
Case "G": i = 9
Case Else: i = 1
End Select
cell.Interior.ColorIndex = i
Next
End Sub
A+
 
Dernière édition:
Re : Question code vba affectation couleur à cellule en fonction de sa valeur

bonsoir,

Peut-être comme ceci :

Sub Valeur()
Dim mescellules
mescellules = Array("A", "B", "C", "D")
Range("A1:M85").Select
For Each Cell In Selection
For j = 0 To UBound(mescellules)
If Cell.Value = mescellules(j) Then
Cell.Interior.ColorIndex = 6 '
End If
Next j
Next
End Sub

compléter la ligne mescellules des valeurs souhaitées

a+
 
Re : Question code vba affectation couleur à cellule en fonction de sa valeur

Merci beaucoup pour vos rapides réponse!!

bof, CHALET 53 je vais me pencher sur vos programmes qui ont l'air très pratique

Merci encore à tout les 2 pour vos réponses! 😉
 
- 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

Discussions similaires

Réponses
3
Affichages
442
Retour