Couleur ligne active Résolu/Fermé

Question

Bonjour à tous ceux qui me liront.
Voilà mon problème, j’essaie d’utiliser un tuto pour mettre la ligne active en surbrillance dans mon fichier excel. Malheureusement celui-ci est en anglais donc incompréhensif pour moi. Cependant en suivant bien la démo, voici mon résultat qui ne fonctionne pas. Pourquoi, pouvez vous m’aider.
Nom de mon fichier = Liste centre
Nom de la feuille = Fichier_principal
1ère etape : J’ai d’abord nommer mon tableau = ActiveRow avec la référence =1
2ème étape : Dans MFC : sélection de ma feuille Fichier_principal et Formule = LIGNE(A)=ActivreRow puis mon format souhaité
3ème étape en VBA
Module
Option Explicite
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ThisWorkbook.Names("Liste Centre")
        .Name = "ActiveRow"
        .RefersToR1C1 = "=" & ActiveCell.Row
    End With
End Sub

Mais cela coince quelque part, OU ??
Merci à tous et vive CCM
Cdlt

JCB40 · Answer

Bonjour 
Dans cette phrase faute de frappe  ActivreRow au lieu de ActiveRow 

2ème étape : Dans MFC : sélection de ma feuille Fichier_principal et Formule = LIGNE(A)=ActivreRow puis mon 
Crdlt

mchotard · Answer

Effectivement deux fautes, mais ce sont des fautes de frappe dans mon message CCM car en réalité dans mon fichier les mots sont bien écrit dans chacune des étapes. Merci pour ta remarque.

eriiic · Answer

Bonjour,

tant qu'à faire autant tout faire en vba et laisser tomber le nom :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim fc As FormatCondition
    For Each fc In Cells.FormatConditions
        If fc.Formula1 = "=VRAI" Then fc.Delete: Exit For
    Next fc
    With ActiveCell.EntireRow
        .FormatConditions.Add Type:=xlExpression, Formula1:="=VRAI"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        .FormatConditions(1).Interior.Color = 13434879
        .FormatConditions(1).StopIfTrue = False
    End With
End Sub
eric

Edit : pour laisser visibles d'autres MFC présentes :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim fc As FormatCondition
    For Each fc In Cells.FormatConditions
        If fc.Formula1 = "=VRAI" Then fc.Delete: Exit For
    Next fc
    With ActiveCell.EntireRow
        .FormatConditions.Add Type:=xlExpression, Formula1:="=VRAI"
        With .FormatConditions(.FormatConditions.Count)
            .Interior.Color = 13434879
            .StopIfTrue = False
        End With
    End With
End Sub

gyrus · Answer

Bonjour,

Voici un exemple ...
https://www.cjoint.com/c/IHxkZbQcaRj

Cordialement.

mchotard · Answer

merci gyrus pour ta réponse rapide et surtout pour ton exemple qui répond tout à fait à ce que je souhaite. Malheureusement quand je  l'adapte à mon fichier, cela ne fonctionne pas.
Ce que j'ai fait
dans MFC : formule == LIGNE(A1)=ListeCentre (est-ce bien le nom du classeur que je dois indiqué ici) et s’applique à A1: BS245
En effet mon tableau comporte de nombreuses colonnes. J'ai donné le nom de "Principal" à ma base.
Ensuite j'ai copié ta formule VBA dans la feuille dénommée "Fichier_Principal" du classeur "ListeCentre"
Où ai-je commis une erreur. Il faut que je t'indique que mon tableau dénommé  "Principal" possède déjà des MFC pour distinguer les hommes et les femmes. Est-ce gênant.
Merci pour ton retour

eriiic · Answer

Et donc tu ne fais aucun retour dans ce cas. Bizarre... 
Pourtant : https://www.cjoint.com/c/IHxs4ygpOi7
eric

mchotard · Answer

Eriic si tu es toujours présent, j'ai un problème  copier mon fichier qui était sur mon portable, sur mon PC de bureau. Pourquoi, il bug sur : If Fc.Formula1= "VRAI" Then.
J'ai du loupé quelques choses en copiant mon fichier. Pourtant dans MFC j'ai bien rentré la condition VRAI.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim fc As FormatCondition
    For Each fc In Cells.FormatConditions
        If fc.Formula1 = "=VRAI" Then fc.Delete: Exit For
    Next fc
    With ActiveCell.EntireRow
        .FormatConditions.Add Type:=xlExpression, Formula1:="=VRAI"
        With .FormatConditions(.FormatConditions.Count)
            .Interior.Color = 13434879
            .StopIfTrue = False
        End With
    End With
End Sub

Merci et cordialement

Couleur ligne active

7 réponses

Discussions similaires