Colorer ligne d'une cellule active avec une MFC

Fermé

Remi2236 Messages postés 86 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 22 mai 2024 - 9 mars 2016 à 09:21
Mike-31 Messages postés 18350 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 28 novembre 2024 - 9 mars 2016 à 13:50

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 !

A voir également:

Colorer ligne d'une cellule active avec une MFC
Aller à la ligne dans une cellule excel - Guide
Excel colorer une cellule si - Guide
Partager photos en ligne - Guide
Verrouiller une cellule excel - Guide
Site de vente en ligne particulier - Guide

3 réponses

Réponse 1 / 3

Mike-31 Messages postés 18350 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 28 novembre 2024 5 106
9 mars 2016 à 09:44

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

Remi2236 Messages postés 86 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 22 mai 2024 1
9 mars 2016 à 11:53

Bonjour et merci de répondre ;) Il me marque erreur de compilation : End If sans bloc If

Remi2236 Messages postés 86 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 22 mai 2024 1
9 mars 2016 à 13:32

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

Réponse 2 / 3

Mike-31 Messages postés 18350 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 28 novembre 2024 5 106
Modifié par Mike-31 le 9/03/2016 à 13:09

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.

Réponse 3 / 3

Mike-31 Messages postés 18350 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 28 novembre 2024 5 106
9 mars 2016 à 13:50

Re,

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

Discussions similaires

Excel : colorer une cellule sous condition d'une autre ?

Que veut dire "correspondant occupé" lors d'un appel ?

Formule Excel : "SI" une cellule contient un mot, alors ?