Discussion :

[iliesss]

Bonjour
je souhaite colorer le début de la ligne jusqu’à la cellule sélectionnée.
au début J'ai utilise ce code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Cells.Interior.ColorIndex = 0
    Range(Selection, Selection.End(xlToLeft)).Interior.ColorIndex = 6
End Sub

Mais le problème si cette ligne contient des valeurs alors la couleur stop dans la première cellule non vide avant ma sélection

Svp est ce qu'il y a une solution pour éviter a jouter plusieurs .End(xlToLeft) dans le code

[BENNASR]

bonjour
essayer avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Cells.Interior.ColorIndex = 0
    Range(ActiveCell, Cells(ActiveCell.Row, 1)).Interior.ColorIndex = 6
End Sub

[iliesss]

Merci beaucoup Mr BENNASR