XL 2019 surligner automatiquement la ligne d'une cellule active

[Naniomasu]

Bonjour à tous,

j'ai un fichier Excel qui contient 14 tableaux de suivi de stock j'aimerais lorsque je cliquer sur une cellule la ligne de cette dernière ce sur ligne automatiquement.
Mes tableaux se nomme respectivement mai, juin, juillet, août, septembre, octobre, novembre, décembre, janvier, février, mars, avril. J'ai déjà consulté les articles du forum sur ce même sujet mais je n'ai pas trouvé de réponse.

par avance je vous par avance je vous remercie en espérant avoir été le plus clair possible.
Cordialement,

 

[Victor21]

Re, Naniomasu.

[...]J'ai déjà consulté les articles du forum sur ce même sujet mais je n'ai pas trouvé de réponse.
[...]

Mal cherché, peut-être. Dans le module de la feuille concernée :

Option Explicit

Private lngAvant As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If lngAvant <> 0 Then
        If Target.Row <> lngAvant Then
            Range("a" & lngAvant).EntireRow.Style = "normal"
        End If
    End If
    lngAvant = Target.Row
    Target.EntireRow.Interior.ColorIndex = 3    'rouge
    Target.EntireRow.Font.ColorIndex = 2         'blanc
    Target.EntireRow.Font.Bold = True
End Sub

 

[Naniomasu]

re victor21,

merci pour le code, seulement quand je sélectionne une ligne il détruit les bordures de mon tableau et j'aimerais appliquer ce code seulement au tableau et non pas à la feuille. Est-ce que cela est possible ?

Cordialement,

 

[Victor21]

Re, Naniomasu.

Je ne suis pas un spécialiste du VBA, loin s'en faut. Je n'ai fait que copier/coller un code existant.
Et je serais bien incapable de l'adapter à votre tableau, même si vous aviez eu la bonne idée de le partager aux fins de tests.
Mais d'autres passeront peut-être...

 

[Naniomasu]

Re Victor21,

ok merci, grâce a ce code j'ai déjà un début de piste, merci pour le temps que vous m'avez accordé,

cordialement,

 

[Dranreb]

Bonsoir.
Une autre idée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Names.Add "LSel", Target.Row
End Sub

Et dans le tableau, une mise en forme conditionnelle avec pour formule :

=LIGNE()=LSel

 

[Naniomasu]

Bonjour Dranreb,

je n'est pas compris ce que je dois faire, je suis totalement novice dans ce domaine...

 

[Dranreb]

Ben vous mettez la procédure dans le module de l'objet Worksheet qui représente la feuille concernée, comme celle de Victor21 !
Vous aurez alors un nom LSel valant le numéro de ligne de la plage sélectionnée, que vous pourrez utiliser dans la formule d'une mise en forme conditionnelle pour surligner cette ligne.

 

[Naniomasu]

Je n'ai toujours pas compris cependant, j'ai trouver la bonne formule, elle respecte ma mise en forme :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 3

End Sub

Voila merci pour m'avoir accorder de votre temps, je vais pouvoir aller dormir en paix maintenant, Bonne nuit et a très bientôt !

 

[job75]

Bonsoir Naniomasu, Patrick, Bernard,

Placez cette macro dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Targt As Range)
Dim LO As ListObject, r As Range
For Each LO In ListObjects
    LO.DataBodyRange.Interior.ColorIndex = xlNone
    LO.DataBodyRange.Font.ColorIndex = xlAutomatic
    Set r = Intersect(ActiveCell, LO.DataBodyRange)
    If Not r Is Nothing Then
        Set r = Intersect(r.EntireRow, LO.DataBodyRange)
        r.Interior.ColorIndex = 3 'rouge
        r.Font.ColorIndex = 2 'blanc
    End If
Next
End Sub

Edit : bien sûr comme indiqué dans la macro les tableaux doivent être des tableaux structurés Excel (ListObject).

Bonne nuit.

 

[Naniomasu]

Bonjour job75,

Merci, ton code est impeccable ! Merci pour le temps que tu ma accorder.

Cordialement,