surligner ligne active

[kechor]

bonjour à tous.

je souhaite pour faciliter la lecture, surligner la ligne active sur excel à l'ouverture d'excel qq soit le fichier xls.
j'ai bien trouvé des macros qui correspondaient presque à ma demande, sauf que lorsque je change d'onglet ou de fichier la manip ne fonctionne plus.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 35 'Vert Clair
End With
End Sub

merci de votre aide.

 

[Denis]

Re : surligner ligne active

Bonjour kechor et le forum
Il faut mettre ta macro en macro complémentaire (".xla")
Bon courage et à +
Denis

 

[JNP]

Re : surligner ligne active

Bonjour Kechor ,
Mets dans ThisWorkbook

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 35 'Vert Clair
End With
End Sub

cela s'apliquera à toutes les feuilles ...
Bonne suite

 

[JNP]

Re : surligner ligne active

Re ,

sauf que lorsque je change d'onglet ou de fichier la manip ne fonctionne plus.

ATTENTION, l'appliquer à tous les fichiers sera destructif (perte de toutes les couleurs des cellules), donc je te le déconseille vigoureusement ...
Bonne suite

 

[Pierrot93]

Re : surligner ligne active

Bonjour à tous

une autre approche pour ne pas altérer les classeurs / feuilles :

Rows(ActiveCell.Row).Select

A voir...

bon après midi
@+

 

[Pierrot93]

Re : surligner ligne active

Re,

A voir...

bon, pas top à l'usage mon truc.... désolé...

 

[libellule85]

Re : surligner ligne active

Bonjour kechor, Denis, JNP, Pierrot93,

Je profite de ce fil pour vous demander comment faire pour qu'au lieu de surligner toute la ligne active celà surligne que les trois colonnes (A, B et C) correspondant à la ligne de mon tableau.
D'avance merci pour votre aide

 

[Pierrot93]

Re : surligner ligne active

Re,
@libellule85

Range("A" & ActiveCell.Row).Resize(, 3).Select

 

[Denis]

Re : surligner ligne active

Re le fil
voir ce fil sur microsoft. Le seul pb, les MFC. Pour les mises en formes fixes pas de problème!
Utiliser des bandes de couleur pour identifier la cellule active - Excel - Office.com
Bon courage et à+
Denis

 

[BOISGONTIER]

Re : surligner ligne active

Bonjour,

Voir PJ

JB

 

[kechor]

Re : surligner ligne active

merci à tous pour vos réponses, je vais tester de suite.

à bientôt, et bon réveillon à tous.

 

[libellule85]

Re : surligner ligne active

Re Pierrot93,

Merci beaucoup pour ta réponse

 

[kechor]

Re : surligner ligne active

bonjour jb,

ok pour le script,
-comment supprimer surbrillance colonne
- comment activer cette fonction uniquement selon mes besoins.

merci

 

[JNP]

Re : surligner ligne active

Re ,
Il te suffit de supprimer Union et Column

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Cells.FormatConditions.Delete
    If Target.Count = 1 Then
      Target.EntireRow.FormatConditions.Add Type:=xlExpression, Formula1:="VRAI"
      Target.EntireRow.FormatConditions(1).Interior.ColorIndex = 36
      Target.FormatConditions(1).Font.Bold = True
    End If
End Sub

Par contre, Jacques, si ce n'est plus destructif pour les fonds, ça l'est pour les MFC, non ?
Bonne suite

 

[BOISGONTIER]

Re : surligner ligne active

Voir PJ

JB