Discussion :

[Vivi07]

Bonjour,

Discussion précédente
Sur le forum j'ai trouvé une moitié de solution pour colorier la ligne de la cellule active. Cependant, elle efface toutes mes mises en formes tableaux sauf les mises en forme conditionnelle.
Comment faire pour qu'elle ne mange pas la mise en forme des mes tableaux:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Rows.Interior.ColorIndex = xlNone
  Target.EntireRow.Interior.ColorIndex = 17
End Sub

Merci

[Igloobel]

Bonjour,

Peux-tu faire une copie écran (comme tu as fais sur le fil précedent ) de ce qui t'arrive pour illustrer ta demande

A bientôt

[BENNASR]

Bonjour
Aussi j'ai pas bien compris la demande mais si tu veux colorer la ligne active d'un tableau peut être comme suit :
NB : ici le tableau contient 4 colonnes de A à D : à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
L = ActiveCell.Row
Range("A" & L & ":D" & L).Interior.ColorIndex = 17
End Sub

[Menhir]

Comment faire pour qu'elle ne mange pas la mise en forme des mes tableaux:

Bin... ne pas l'appliquer.

Plus sérieusement, il ne peut y avoir qu'une seule couleur de fond dans une cellule.
Tu ne peux pas conserver la couleur d'origine et avoir aussi une seconde couleur (à moins d'utiliser un motif).

Il faudrait donc que tu expliques dans quel cas tu voudrais que la macro ne s'applique pas.

[Vivi07]

Merci à vous deux pour vos réponses.
En fait j'ai fini par trouver. Il faut vraiment passer par "Mettre sous forme de tableau" et non colorier les cellules pour ajouter une mise en forme.
Merci à vous deux.

[anasecu]

Bonjour,

Comment faire pour qu'elle ne mange pas la mise en forme des mes tableaux

Je te propose ceci qui devrait tenir compte de tes mises en forme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Dim a_a As String   ' adresse précédente
Dim a_f As Long     ' format précédent
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub   ' multi-sélection
    If InStr(a_a, "$") > 0 Then         ' sauvegarde ?
        Range(a_a).Interior.Color = IIf(a_f = 16777215, xlNone, a_f) ' restore
    End If
    a_a = Target.Address: a_f = Target.Interior.Color ' sauvegarde
    Target.Interior.Color = 65535       ' marquage cellule en jaune
End Sub

[unparia]

Bonjour à tous

Il me semble bien que ma remarque faite là : https://www.developpez.net/forums/d2...-l-impression/
aurait ici la même justification.

[Vivi07]

Merci anasecu, ça marche nickel.
Je croyais avoir trouvé la solution mais.... déception après enregistrement, il me supprimait la couleur de la ligne des entêtes.
Merci