annee 2017

EXCEL ANNEE 2017

L'heure est venue de vous presenter

Une excel et bonne annee 2017 !

De la part de toute l equipe de VeriTi

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement
Articles >Cel / Col / Lig > Dans un tableau, appliquer une couleur à une ligne

Dans un tableau, appliquer une couleur à une ligne

Publié par veriland le 07-Aug-2013 13:50 (1090 lectures)

Dans un tableau, appliquer une couleur à une ligne lors de la sélection d'une cellule 

ligne


code à coller dans un module de feuille :

module


Option Explicit

'"Tablo" est la plage à définir (menu/insertion/nom/définir) et dans laquelle l'événement se produira.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Macro par Dan - Belgique pour VERITI - le 07/02/06
'Correction d'un Beug de ligne le 12/11/06
'Macro couleur sur ligne sélectionnée
Dim Lig 
As Range
Dim Col As Variant
Application.ScreenUpdating = False
'On enlève les couleurs dans la plage "Tablo"
Range("Tablo").Interior.ColorIndex = -4142
'Définition de "Col" -> on cherche le nombre de colonnes dans la plage "Tablo"
Col = Range("Tablo").Columns.Count
'Définition de "Lig" -> ligne sélectionnée
Set Lig = Range(Cells(Target.Row, 1), Cells(Target.Row, Col))
'si clic sur une colonne empêcher la première ligne de prendre la couleur
If Application.Intersect(ActiveCell, Range("Tablo")) Is Nothing Then End
'on traite uniquement la zone "Tablo"
If Not Application.Intersect(Target, Range("Tablo")) Is Nothing Then
Lig.Interior.ColorIndex = 8
End If
Application.ScreenUpdating = True
End Sub



Naviguer à travers les articles
Lettre colonne Article suivant
Note 0.00/5
Note: 0.0/5 (0 votes)
Les votes sont désactivés !
Les commentaires appartiennent à leurs auteurs. Nous ne sommes pas responsables de leur contenu.
Auteur Commentaire en débat

Astuces
Sélection d'articles par Catégorie
Userform
Feuille
Cel / Col / Lig
Souris
Impression
Images
Commentaires
Evènements
Fichier
Trucs et astuces
Divers
FAQ Acyd
carte des membres

Carte des membres

Menu Principal
Haut de page des téléchargements
Copyright 2013 Powered by XOOPS © 2001-2013