Bonjour,
J'ai un tableau de 37 colonnes et 725 lignes.
Dans ce tableau, j'ai une plage qui m'intéresse tout particulièrement et que je voudrais faire ressortir en couleur. Il s'agit de AG6 à AL725.
Je souhaiterai que lorsque je clique sur une cellule de cette plage , que les 6 cellules de la même ligne soient colorier afin que cela ressorte bien.
Sinon si c'est pas possible, je peux extraire cette plage dans un nouveau excel vierge mais je veux toujours que lorsque je clique sur une cellule que les les autres cellules de la même ligne soient colorier.
Pour l'instant, je n'arrive pas à colorier uniquement la ligne sur laquelle je clique mais c'est toute la plage qui se colorie.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Range("AL6:AG" & Range("A65536").End(xlUp).Row).Select
With Selection.Interior
.ColorIndex = Switch(.ColorIndex = xlNone, 4, _
.ColorIndex = 4, 3, _
.ColorIndex = 3, 6)
End With
End Sub
Sinon, j'ai essayé aussi avec un autre programme que j'avais d'avant mais ça marche pas non plus et je comprends pas...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 Then Range("A1:F" & [A65000].End(xlUp).Row).Interior.ColorIndex = xlNone
If Target.Row > 1 And Target.Column = 1 And Target.Value <> "" Then
Application.EnableEvents = False
Application.ScreenUpdating = False
Range("A1:F" & [A65000].End(xlUp).Row).Interior.ColorIndex = xlNone
Range("A1:F" & [A65000].End(xlUp).Row).AutoFilter Field:=1, Criteria1:=Target.Value
With [A1].CurrentRegion
.Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 41
End With
Selection.AutoFilter
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
End Sub
MERCI D'AVANCE DE VOTRE AIDE!!!!
J'ai un tableau de 37 colonnes et 725 lignes.
Dans ce tableau, j'ai une plage qui m'intéresse tout particulièrement et que je voudrais faire ressortir en couleur. Il s'agit de AG6 à AL725.
Je souhaiterai que lorsque je clique sur une cellule de cette plage , que les 6 cellules de la même ligne soient colorier afin que cela ressorte bien.
Sinon si c'est pas possible, je peux extraire cette plage dans un nouveau excel vierge mais je veux toujours que lorsque je clique sur une cellule que les les autres cellules de la même ligne soient colorier.
Pour l'instant, je n'arrive pas à colorier uniquement la ligne sur laquelle je clique mais c'est toute la plage qui se colorie.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Range("AL6:AG" & Range("A65536").End(xlUp).Row).Select
With Selection.Interior
.ColorIndex = Switch(.ColorIndex = xlNone, 4, _
.ColorIndex = 4, 3, _
.ColorIndex = 3, 6)
End With
End Sub
Sinon, j'ai essayé aussi avec un autre programme que j'avais d'avant mais ça marche pas non plus et je comprends pas...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 Then Range("A1:F" & [A65000].End(xlUp).Row).Interior.ColorIndex = xlNone
If Target.Row > 1 And Target.Column = 1 And Target.Value <> "" Then
Application.EnableEvents = False
Application.ScreenUpdating = False
Range("A1:F" & [A65000].End(xlUp).Row).Interior.ColorIndex = xlNone
Range("A1:F" & [A65000].End(xlUp).Row).AutoFilter Field:=1, Criteria1:=Target.Value
With [A1].CurrentRegion
.Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 41
End With
Selection.AutoFilter
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
End Sub
MERCI D'AVANCE DE VOTRE AIDE!!!!