[Résolu]Suivre la ligne par une couleur

[Thibault98]

Bonsoir,

J'ai trouvé ce code sur ce forum il y a quelque temps, j'aurais voulu l'adapter pour mon application.

Ma feuille est protégée donc il faut la déprotégée puis la reprotégée en fin de déroulement du code, de plus je voudrai si c'est possible que se soit toutes les colonnes de la feuille et non une zone définie.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("B4:L12")) Is Nothing And Target.Count = 1 Then
Range("A4:L" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Interior.Color = RGB(200, 100, 150)
End If

Pour moi un exemple est mieux pour apprendre, si vous pouvez m'expliquer le principe de ce code....

Merci d'avance.

Thibault.

 

[Thibault98]

Re : Suivre la ligne par une couleur

Pour la protection j'ai peut-être trouvé, il reste l'extension à toutes la feuille à trouver.

Le code modifié:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Unprotect Password:=""
If Not Intersect(Target, Range("B4:L12")) Is Nothing And Target.Count = 1 Then
Range("A4:L" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Interior.Color = RGB(140, 220, 300)
Protect Password:=""
End If

 

[DoubleZero]

Re : Suivre la ligne par une couleur

Bonjour, Thibault98, le Forum,

...Pour la protection j'ai peut-être trouvé, il reste l'extension à toutes la feuille à trouver...

Une suggestion en pièce jointe (cf. le code présent dans "Thisworkbook").

A bientôt 🙂

 

[Thibault98]

Re : Suivre la ligne par une couleur

Merci beaucoup, si tu fais référence à une feuille donnée comment tu fais ?

Par exemple feuil1 à partir de B7.

Bon dimanche.

Thibault.

 

[DoubleZero]

Re : Suivre la ligne par une couleur

Re-bonjour,

Peut-être comme dans le fichier joint.

A bientôt 🙂

 

[Thibault98]

Re : Suivre la ligne par une couleur

Encore merci, si on ajoute sur la ligne horizontale une police en gras : par exemple "calibri 11 en gras.
C'est possible ?

Merci d'avance.

Thibault.

 

[DoubleZero]

Re : Suivre la ligne par une couleur

Re-bonjour,

Voir le fichier joint.

A bientôt 🙂

 

[Thibault98]

Re : Suivre la ligne par une couleur

Merci beaucoup,

Bon dimanche

Génial.