Se connecter avec
S'enregistrer | Connectez-vous

Macro Excel mise en couleurs cellules identifiées

Dernière réponse : dans Programmation

Bonjour !

Je voudrais faire appel aux spécialistes de macro en excel.
En effet, j'aimerais pouvoir controler des tableaux de chiffres entiers et leur affecter une couleur automatiquement s'ils ont présents dans la feuille.
Par exemple, définir sur la feuille que toutes les nombres 24 doivent s'afficher en rouge, les nombres 17,15,16,28 doivent s'afficher en bleu soit en changeant la couleur de la police ou le fond de cellule.
Il est évident que la liste de nombre est differente chaque jour et les numéros sélectionnés également.

Merci par avance...
Lassé par la pub ? Créez un compte

Un exemple.

Sub insertLigne()
'
'Macro enregistrée le 05/02/2010 par TURPIN CAILLE
'
Sheets("LISTING").Select
Rows("2:2").Insert Shift:=xlDown
Range("A3:L3").Copy
Range("A2").PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
Range("A2").Select
Range("h2:h10000").Select
Range("h2").Activate
Dim lacellule As Range
For Each lacellule In Selection
couleurderemplissage = lacellule
Next lacellule
Range("h2").Select
Range("h2").Activate
Sheets("CONTROLE").Select
End Sub
Property Let couleurderemplissage(lacellule As Range)
Dim indexcouleur As Integer
Select Case lacellule.Value
Case "10"
indexcouleur = 7
Case "17"
indexcouleur = 50
Case "11"
indexcouleur = 6
Case "12"
indexcouleur = 5
Case "7"
indexcouleur = 10
Case "9"
indexcouleur = 48
Case "5"
indexcouleur = 44
Case "6"
indexcouleur = 39
Case "8"
indexcouleur = 3
Case "18"
indexcouleur = 47
Case "19"
indexcouleur = 54
Case "20"
indexcouleur = 42
Case Else
indexcouleur = xlColorIndexNone
End Select
lacellule.Interior.ColorIndex = indexcouleur
End Property
Lassé par la pub ? Créez un compte