changement couleur fond cellule avec macro

jpb388

XLDnaute Accro

• 3 Juin 2015

• #2

Re : changement couleur fond cellule avec macro

Bonjour à Tous

Code:

Sub ChgCouleur()
Dim i As Integer
For i = 3 To 11
If Cells(i, 1) < (Cells(i, 3) * 0.1) Then
Cells(i, 3).Interior.Color = 6
End If
Next
End Sub

il vaudrait mieux mettre des chiffres en colonne A

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 3 Juin 2015

• #3

Re : changement couleur fond cellule avec macro

Bonjour

moi couleur de cellule = mise en forme conditionnelle, pas macro
sélectionne toutes les cellules concernées en F
onglet accueil - mise en forme conditionnelle - nouvelle règle -
appliquer une mise en forme aux cellules qui contiennent
valeur inférieure à $C3*10%
format - remplissage (et tu choisis ta couleur de fond)

edit : bonjour Jpb

 

Vote positif 0 Vote négatif

R

raptor65

XLDnaute Nouveau

• 3 Juin 2015

• #4

Re : changement couleur fond cellule avec macro

ça ne fonctionne pas
les fond ne se modifient pas

 

Vote positif 0 Vote négatif

R

raptor65

XLDnaute Nouveau

• 3 Juin 2015

• #5

Re : changement couleur fond cellule avec macro

je voulais réaliser une macro pour changer de méthode

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 3 Juin 2015

• #6

Re : changement couleur fond cellule avec macro

re

modif à chaque changement de contenu en F si une seule cellule sélectionnée

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Target.Count > 1 Then Exit Sub
If Not Target.Column = 6 Then Exit Sub
If Target.Value < Target.Offset(0, -3).Value * 0.1 Then
    Target.Font.ColorIndex = 6
Else
    Target.Font.ColorIndex = none
End If
End Sub

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 3 Juin 2015

• #7

Re : changement couleur fond cellule avec macro

re
Bonjour ERIC S

raptor65 exact je me suis trompé de colonne mais avec ERIC S tu es entre de bonne mains

 

Vote positif 0 Vote négatif