XL 2013 [Résolu] Mise en forme du tableau compliqué

sixair à dit:

bonjour,
avec gestion des événements
un petit brouillon

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("D3: N13")) Is Nothing Then Exit Sub

    'pour decolorer si sorti de la selection
    For Each c In Range("D3: N13")
        If c = "" And c.Interior.Color <> RGB(191, 191, 191) Then c.Interior.Color = RGB(255, 255, 255)
    Next c

    If Selection.Cells.Interior.Color <> RGB(191, 191, 191) Then
        Selection.Cells.Interior.Color = RGB(255, 255, 0)
        Cells(Selection.Column - 1, Selection.Row + 1).Interior.Color = RGB(255, 255, 0)
    End If
End Sub

Cliquez pour agrandir...

avec gestion des événements
un petit brouillon

Cliquez pour agrandir...