[XL-2007] Changement de couleur de cellule [Résolu]

[apdf1]

Bonjour,

Voila je suis confronté a un problème que je ne sais vraiment pas comment faire.

J'ai dans la colonne "F4:F50" une liste de nom et dans les colonnes "K4:Y50" j'ai des cases pour des notations. J'aimerais que lorsque je me rends sur une des cellules "K4:Y50" que la cellule correspondante dans la colonne" F" devienne fond rouge.

Ex: si je click sur "M20" la cellule "F20" devient fond rouge

grand merci à tout ceux qui pourront m'aider...

Cordialement
Max

[rvtoulon]

Bonjour,
voici un code qui utilise l'événement selection change de la feuille. Donc à mettre dans le code de la feuille concernée.

Tu ne précises pas si lorsque tu changes de cellule celle qui a été colorié en rouge doit rester rouge ou non ?
Dans l'éventualité ou elle ne doit pas rester rouge voici le code que je te propose:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public lastcell As Range
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim plage As Range
 
With ActiveSheet
 
Set plage = .Range("K4:Y50")
 
If Not lastcell Is Nothing Then lastcell.Interior.ColorIndex = 0
 
If Not (Intersect(Target, plage) Is Nothing) Then .Cells(Target.Row, 1).Interior.ColorIndex = 3
 
Set lastcell = .Cells(Target.Row, 6)
 
End With
End Sub

Tiens nous au courant.

[apdf1]

Bonjour,

Pour commencer un grand merci du temps et la rapidité que tu ma consacrer.
C'est pratiquement la recherche mais juste un petit plus si je peut me permettre.

J'ai modifier la ligne ci-dessous j'ai mis (Target.Row, 6) à la place du (Target.Row, 1).

Code :

If Not (Intersect(Target, plage) Is Nothing) Then .Cells(Target.Row,1).Interior.ColorIndex = 3

Pour qu'elle puisse affiché dans la colonne "F" la pas de problème…

Dans ma colonne "F" elle était fond noir police blanche et quand je click dans une cellule "K4:Y50" il me viens la cellule blanche et la police blanche, par contre si je met le fond blanc et la police noir aucun problème ma question peut on modifier ceci? Mettre le fond noir police blanche !

D'avance un grand merci et une bonne journée.

@+
Max

[rvtoulon]

Désolé j'avais oublié de modifier la colonne.

pour le problème de couleur essaye en remplaçant:

Code :

If Not lastcell Is Nothing Then lastcell.Interior.ColorIndex = 0

0=blanc ou pas de fond je ne sais plus
par:

Code :

If Not lastcell Is Nothing Then lastcell.Interior.ColorIndex = 1

1=noir

EDIT:
Attention il faut aussi modifier le code car sinon tu aurais les autres cellule de la colonne F qui ne sont pas dans la plage qui vont aussi etre colorées en noir:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public lastcell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim plage As Range
With ActiveSheet
Set plage = .Range("K4:Y50")
If Not (Intersect(Target, plage) Is Nothing) Then
If Not lastcell Is Nothing Then lastcell.Interior.ColorIndex = 1
.Cells(Target.Row, 6).Interior.ColorIndex = 3
Set lastcell = .Cells(Target.Row, 6)
End If
 
End With
 
End Sub

[apdf1]

Re,

Oui la il y a bien la colonne noir police blanche,
mais le problème est que la colonne noir commence a la ligne "1" et moi entre la ligne 1 et 4 j'ai des entêtes d'une autre couleur, sa fait qu'il me met la colonne en noir, c'est pas évident cette histoire

@+
Max

[rvtoulon]

J'ai réédité mon post précédent jette y un oeil

[apdf1]

Re,

Un seul mot Nickel..! je te remercie infiniment

Bonne jounée

Max