Formule

Bonjour pijaku

Vous avez raison je me suis trompé je voulais dire que lorsque je clic sur une cellule de la ligne "3" dans les colonnes "B3:J3" la cellule A3 devienne rouge

Excuse moi

@+

Max

Je recommence alors :
1- "B3:J3" peux représenter la ligne 3 OK.
2- Il s'agit d'une macro. êtes vous ok avec ça?
3- Uniquement pour la ligne 3 ou pour d'autres lignes également? si oui lesquelles???

Re,

Oui tout a fait d'accord, les lignes concernées sont "4 à 50" des colonne K à Y

Je vous remercie d'avance

Max

Alors :
- vous vous placez sur la feuille concernée,
- Clic droit sur l'onglet de cette feuille,
- Visualiser le code,
- Copiez collez ce code dans la fenêtre VBE qui vient de s'ouvrir :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'On sort de la procédure si la cellule sélectionnée, dans l'ordre :
'- sa colonne est inf à K : Target.Column < 11 OU
'- sa colonne est sup à Y : Target.Column > 25 OU
'- on a sélectionnée plusieurs cellules : Target.Count > 1 OU
'- sa ligne est inf à 4 : Target.Row < 4
'- sa ligne est sup à 50 : Target.Row > 50
'- alors on sort de la procédure : Then Exit Sub
If Target.Column < 11 Or Target.Column > 25 Or Target.Count > 1 Or Target.Row < 4 Or Target.Row > 50 Then Exit Sub
'sinon, si tous ces cas sont respectés, ça veux dire que nous avons cliqué
'entre K4 et Y50, sur 1 seule cellule, alors
'on efface toutes les couleurs de la colonne A :
    'pour supprimer cette option, vous pouvez simplement placer
    'une apostrophe (') en début de la ligne de code suivante :
Columns(1).Cells.Interior.ColorIndex = xlNone
'on colorie la cellule A de la ligne en cours
Cells(Target.Row, 1).Interior.ColorIndex = 3
End Sub

- fermez la fenêtre VBE et testez.......

re,

J'ai bien les commentaires ou vous dite:

'on efface toutes les couleurs de la colonne A :
'pour supprimer cette option, vous pouvez simplement placer
'une apostrophe (') en début de la ligne de code suivante :
Mais si je mais l'apostrophe toutes les cellules de la colonne "A" se mette en rouge aprés avoir cliquer mais non pas une seul a la fois...

@+

Max

Chez moi ce code fonctionne très bien...
Avec l'apostrophe ça nous donne :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 11 Or Target.Column > 25 Or Target.Count > 1 Or Target.Row < 4 Or Target.Row > 50 Then Exit Sub
Cells(Target.Row, 1).Interior.ColorIndex = 3
End Sub

Re,

Oui chez moi aussi sa marche le seul probléme est que les cellules de la colonne A mis en rouge reste en toutes en rouge, que si on enléve l'apostrophe les cellules de la colonne A mis en rouge re deviennent comme a l'origine quand on selectionne une autre cellule, le seul probleme est que le fond de toute la colonne A devienne toute blanche alor que moi j'ai un dond beige.

@+

Essaye ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Tabl(46) As Long, Ind As Long
If Target.Column < 11 Or Target.Column > 25 Or Target.Count > 1 Or Target.Row < 4 Or Target.Row > 50 Then Exit Sub
For Ind = 0 To 45
    Tabl(Ind) = Cells(Ind + 4, 1).Interior.ColorIndex
Next
For Ind = 0 To 45
    If Ind + 4 = Target.Row Then
        Cells(Ind + 4, 1).Interior.ColorIndex = 3
    Else
        Cells(Ind + 4, 1).Interior.ColorIndex = Tabl(Ind)
    End If
Next
End Sub