changer la couleur des lignes selectionnées pour rendre la saisie plus visible

[pascal21]

bonjour le forum
je suis à la recherche du moyen qui permet de rendre la ligne sur laquelle on travaille, un peu plus visible
je m'explique:
losque je selectionne une cellule, disons c5,d5 e5 ou f5 etc.... , j'aimerais que la ligne 5 change de couleur de la colonne b à la colonne m
est-ce possible ?
merci

 

[Brigitte]

Re : changer la couleur des lignes selectionnées pour rendre la saisie plus visible

Bonsoir,

Ce titre (comme quoi les bons titres font les bonnes réponses ou les bonnes recherches) me titillait, il me semblait bien avoir vu cela qq part.

Alors comme il me semblait que c'était Dan un de nos xldiens trop rare ici, spécialiste entre autres du tcd et des mac, je me permets de vous mettre ici le lien qu'il vient de me donner à nouveau, c'était super bien fait son truc :

VeriTi V 3, le site des amis d'Excel et OOo - Cel / Col / Lig - Dans un tableau, appliquer une couleur à une ligne

Il l'a posté chez Veriti. Mais entre amis, on partage... Si pascal pouvait y trouver aussi des idées.

Bonne soirée. Et bravo Dan, je me souviens que c'était super.

Edit : boum avec Dan... super il est venu poster, merci Dan

 

[pascal21]

Re : changer la couleur des lignes selectionnées pour rendre la saisie plus visible

bonsoir à tous
cbea merci pour cette réponse rapide, trop rapide même puisque que entre temps j'avais apporté une petite modif sur les plages de cellules
de B à D et de F à K
autrement ça fonctionne bien
je regarde si je peux rectifier moi même

 

[cbea]

Re : changer la couleur des lignes selectionnées pour rendre la saisie plus visible

ah oui, c'est mieux comme cela :

Private Sub Worksheet_Activate()
    Cells.Interior.ColorIndex = 10
    For i = 1 To 1
        Range("B" & i & ":D" & i).Interior.ColorIndex = xlNone
        Range("F" & i & ":K" & i).Interior.ColorIndex = xlNone
    Next i
    
    If ActiveCell.Row < 1 Then Exit Sub
    ligne = ActiveCell.Row
    Range("B" & ligne & ":D" & ligne).Interior.ColorIndex = xlNone
    Range("F" & ligne & ":K" & ligne).Interior.ColorIndex = xlNone
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ligne > 0 Then
        Range("B" & ligne & ":D" & ligne).Interior.ColorIndex = 16
        Range("F" & ligne & ":K" & ligne).Interior.ColorIndex = 16
    End If
    If ActiveCell.Row < 1 Then ligne = 0: Exit Sub
    ligne = ActiveCell.Row
    Range("B" & ligne & ":D" & ligne).Interior.ColorIndex = xlNone
    Range("F" & ligne & ":K" & ligne).Interior.ColorIndex = xlNone
End Sub

 

[Brigitte]

Re : changer la couleur des lignes selectionnées pour rendre la saisie plus visible

Pascal, as tu vu aussi le truc de Dan ? c'est assez fabuleux...

Bonne soirée.

 

[pascal21]

Re : changer la couleur des lignes selectionnées pour rendre la saisie plus visible

bonsoir brigitte
non je ne suis pas encore aller voir mais j'y vais
merci cbea pour la rectification
ce que j'essayais de mon coté ne fonctionnait pas
je viens de m'apercevoir que j'ai toujours un problème car j'ai des cellules protégées qui empèchent le fonctionnement de la macro (d'où la rectification demandées plus haut sur la colonne E)
j'ai aussi une protection sur la colonne B et là je ne vois pas comment faire
je ne veux pas supprimer cette protection

edit problème détourné, j'ai écarté la colonne B de la selection

 

[pascal21]

Re : changer la couleur des lignes selectionnées pour rendre la saisie plus visible

je viens de jeter un oeil sur la macro de Dan
effectivement c'est un bel outil
et parametrable facilement en nommant les plages
faudra que j'essaie sur un de mes classeurs