Discussion :

[Mapokko]

on ma donné la macro suivante ,mais il y a un problème c'est que la couleur du fond des cellules s'efface .comment faire pour garder les couleurs ?

Code :

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

1
2
3
4
5
6
7
Dim Cel As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Cel Is Nothing) Then Cel.Interior.ColorIndex = xlNone
Set Cel = Range(Cells(Target.Row, "A"), Target)
Set Cel = Union(Cel, Range(Cells(1, Target.Column), Target))
Cel.Interior.ColorIndex = 6
End Sub

MERCI

[cb_60]

Bonsoir
De cette façon peut être:

Code :

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

1
2
3
4
5
Dim Cel As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Cel = Target
Cel.Interior.ColorIndex = 6
End Sub

[Mapokko]

Bonsoir
De cette façon peut être:

Code :

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

1
2
3
4
5
Dim Cel As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Cel = Target
Cel.Interior.ColorIndex = 6
End Sub

Désolé sa pas bien marché

[cb_60]

Bonjour
Et cela si j'ai compris???

[Mapokko]

Bonjour
Et cela si j'ai compris???

BRAVO. MERCI BEAUCOUP .