Colorer ligne d'une cellule active avec une MFC

Remi2236 Messages postés 89 Statut Membre -  
Mike-31 Messages postés 19571 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

Mike-31 Messages postés 19571 Date d'inscription   Statut Contributeur Dernière intervention   5 138
 
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
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
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
Mike-31 Messages postés 19571 Date d'inscription   Statut Contributeur Dernière intervention   5 138
 
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
Mike-31 Messages postés 19571 Date d'inscription   Statut Contributeur Dernière intervention   5 138
 
Re,

encore une fois impossible, regarde le fichier joint
https://www.cjoint.com/c/FCjmYSlVYEj
0