Colorer ligne d'une cellule active avec une MFC

Remi2236 Messages postés 89 Statut Membre -  
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai fais un tableau sous excel 2010. J'ai fais une MFC pour qu'il y ait une ligne sur deux qui soit grisée.
J'aimerais faire sur VBA une macro pour que lorsque je clique sur une cellule, la ligne qui comporte cette cellule soit colorée entre telle et telle colonne.

Merci d'avance !

3 réponses

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Bonjour,

    je n'ai pas tout compris, mais colle ce code dans les propriétés de la feuille concernée (ce code traite la plage A4:O28, à adapter)

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
    If Not Intersect([A4:O28], Target) Is Nothing And .Count = 1 Then
    [A4:O28].Interior.ColorIndex = xlNone
    Range(Cells(.Row, 1), Cells(.Row, 14)).Interior.ColorIndex = 36
    End If
    End With
    End Sub

    0
    1. Remi2236 Messages postés 89 Statut Membre 1
       
      Bonjour et merci de répondre ;) Il me marque erreur de compilation : End If sans bloc If
      0
    2. Remi2236 Messages postés 89 Statut Membre 1
       
      Non j'ai beau refaire, il me marque la même chose en colorant private sub worksheet_selectionchange (byval target as range) en jaune et end if en bleu
      0
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    impossible, contrôle le code, tu dois avoir un If et pour sortir un End if
    comme dans mon code, ou tu as ajouté un If
    A+
    Mike-31

    Une période d'échec est un moment rêvé pour semer les graines du savoir.
    0