Aide code vba qui colorent les cellules selectionnes

[THIERRY35]

Bonjour,
le code suivant fonctionne parfaitement pour colorier les cellules sélectionnées , mais lorsque je le modifie pour
[d9:M99] la couleur "reste" sur les cellules des colonnes A et B.
Quelle autre modif faut il apporter au code pour que ca fonctionne ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[A9:M99].Interior.ColorIndex = xlNone

If Not Intersect([A9:M99], Target) Is Nothing Then
Range(Cells(Target.Row, 1), _
Cells(Target.Row, _
[A8:M99].Columns.Count)).Interior.ColorIndex = 37
End If

Modèle ci-joint,

Merci de votre aide

 

[Modeste]

Re : Aide code vba qui colorent les cellules selectionnes

Bonsoir THIERRY35,

Pas certain de bien comprendre ta demande, mais dans ce bout d'instruction

Range(Cells(Target.Row, 1), Cells(Target.Row, [A8:M99].Columns.Count))...

tu ne vois pas ce qui pourrait faire référence à la colonne A (qui est aussi, accessoirement la première) ... le tout, j'insiste, si j'ai bien compris!?

 

[phlaurent55]

Re : Aide code vba qui colorent les cellules selectionnes

Bonjour Thierry, salut compatriote

Bonjour
le code suivant fonctionne parfaitement pour colorier les cellules sélectionnées

je pense que la question est mal posée, le code ne colorie pas les cellules sélectionnées mais il colorie la ligne (une partie de la ligne) dans laquelle on a sélectionné une cellule


puisque dans le fichier joint, il y a un exemple qui fonctionne et l'autre pas,
il suffit de récupérer le code qui fonctionne et le mettre dans l'autre feuille (si j'ai bien compris la demande)

ou alors mettre ceci dans le code ThisWorkBook, il fonctionnera alors pour toutes les feuilles du classeur

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
[A9:M99].Interior.ColorIndex = xlNone
If Not Intersect([A9:M99], Target) Is Nothing Then
Range(Cells(Target.Row, 1), Cells(Target.Row, [A9:M99].Columns.Count)).Interior.ColorIndex = 37
End If
End Sub

à+
Philippe