Re : colorier cellule active
ben c'était pour les 2 à la base, mais la première page ca pose problème et ce n'est pas si grave donc je ne l'ai fait que pour la 2eme
j'ai trouvé une macro pour colorer la ligne complète, c'est encore plus visible:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set champ = [A1:M2000]
col1 = champ.Column
col2 = champ.Column + champ.Columns.Count - 1
On Error Resume Next
If [mémoAdresse1] <> "" Then
For i = col1 To col2
x = "mémoAdresse" & i
a = Evaluate([x])
x = "mémoCouleur" & i
b = Evaluate([x])
Range(a).Interior.ColorIndex = b
Next i
End If
ActiveWorkbook.Names.Add Name:="mémoAdresse1", RefersToR1C1:=""
If Not Intersect(champ, Target) Is Nothing And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémoLigne", RefersToR1C1:="=" & Chr(34) & Target.Row & Chr(34)
For i = col1 To col2
ActiveWorkbook.Names.Add Name:="mémoAdresse" & i, RefersToR1C1:= _
"=" & Chr(34) & Cells(Target.Row, i).Address & Chr(34)
ActiveWorkbook.Names.Add Name:="mémoCouleur" & i, RefersToR1C1:= _
"=" & Cells(Target.Row, i).Interior.ColorIndex
Cells(Target.Row, i).Interior.ColorIndex = 6
Next i
End If
End Sub