colorer une cellule avec une macro

[Pascal]

Bonjour le forum,
j'ai tout exoliquer dans l'exemple .
Merci et @+ [file name=exemple_20060123092005.zip size=2392]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20060123092005.zip[/file]

 

[Dan]

Bonjour,

Tu peux faire plus simple et sans macro.

1. dans ton fichier clique sur la cellule D3
2. Vas dans menu / excel / mise en forme conditi
3. Choisis 'la formule est' dans la rubrique de gauche
4. A droite colle cette formule -> =C3='OK'
5. Clique sur 'Format' et choisis ta couleur puis OK
6. Recopie ta cellule D3 vers le bas (jusque D7 dans ton exemple)

NB : Revérifie que la cellule D3 comporte bien la formule telle que je te l'ai donnée et adapte s'il le faut.

 

[Bricofire]

Bonjour Pascal, Dan

Des fois Pascal que tu veuilles faire compliqué , ou bien que ta question ne soit que la partie emmergente de ce que te cherches... Une soluce avec macro.
A mettre dans la feuille1, voir fichier
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cell As Range

If Not Intersect(Target.Columns, Columns('C')) Is Nothing Then
'Test : si la négation de l'intersection de la colonne de la cellulle selectionnée avec _
la colonne C est rien (donc négation de : (on n'a pas cliqué dans une case qui nous intéresse..)= on a cliqué où on veut réagir)(permet d'utiliser Intersect dans un cadre booléen) alors ....
For Each Cell In Range(Range('C65536').End(xlUp), Range('C3'))
If Cell = 'OK' Then
Cell.Interior.ColorIndex = 3
Else
Cell.Interior.ColorIndex = 2
End If
Next Cell

End If
End Sub

Edition : Euh, remplace le 2 dans : Cell.Interior.ColorIndex = 2 par = xlNone ! c'est beaucoup mieux !

Bonne journée,

Brico [file name=RepPascal.zip size=8278]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RepPascal.zip[/file]

Message édité par: bricofire, à: 23/01/2006 10:17

 

[Pascal]

bonjour Dan, le forum

Dans ce cas je ne peux plus au bout de la 2eme actualisation faire la différence entre ce qui a étais validé avant et apres. donc je risque de retraiter des prix que j'ai deja traité a la première actualisation.
C pour ca que je préfère la notion de bouton.

Merci.

 

[Bricofire]

Bonjour toue le monde,

J'ai l'impression pascal, que ma macro va te poser le même pb que la soluce de Dan, il suffit sion de passer le code de l'évènementiel change à celui clic d'un bouton. Je t'envoie ça, précises + sinon si besoin
A+
Brico

 

[Bricofire]

Re tout le monde,

Une apprche par 'acné software'

Private Sub CommandButton1_Click()
Dim Cell As Range
For Each Cell In Range(Range('C65536').End(xlUp), Range('C3'))
If Cell = 'OK' Then
Cell.Interior.ColorIndex = 3
Else
Cell.Interior.ColorIndex = xlNone
End If
Next Cell

End Sub
Attention à la Casse !! C'est OK, pas ok

Si tu scannes ta colonne manuellement pour ne mettre que des Ok ou NON, tu gagnerais peut-être à faire tes entrées via une validation de données, tu gagnerais du temps et éviterait surtout des fautes de frappe, quoique avec les listes auto de Excel ??
Bonne journée,
Brico [file name=RepPascal_20060123103350.zip size=11417]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RepPascal_20060123103350.zip[/file]

 

[Pascal]

salut Bricofire, le forum,
c'est parfait, merci Bricofire et je serais plus explicite .
Merci a tous.
@+