code

salut
comme ceci peut etre

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
ActiveCell.EntireRow.Interior.ColorIndex = 6
ActiveCell.EntireColumn.Interior.ColorIndex = 6
End Sub


JC

Bonjour Jean luc

Salut dg62
tu peux balayer et ppliquer une couleur sur toute la colonne comme sur la ligne avec ActiveCell.EntireColumn.Interior.ColorIndex = 14

Sub Color()
ActiveCell.EntireRow.Interior.ColorIndex = 6
ActiveCell.EntireColumn.Interior.ColorIndex = 14
End Sub

Attention:
la ligne de code Cells.Interior.ColorIndex = 0 que tu as mis signifie que toutes les cellules de la feuille active seront en couleur transparente ou blanche(index=0). Par conséquent toute ta feuille ne semble pas être coloriée.
Salut

Bonjour et merci pour la reponse
super bonne soirée

Re : code

Bonsoir à tous
Je viens de découvrir vos beaux travaux, moi novice je me suis permis d’essayer de modifier vos codes est ça pante, normal il y avait pas ( TPCPC ) donc je vous confie ma bêtise afin que vous la corriger

Code d’origine de DG62 qui permet de sélectionner une ligne et la colonne d’une cellule active

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
ActiveCell.EntireRow.Interior.ColorIndex = 6
ActiveCell.EntireColumn.Interior.ColorIndex = 14
End Sub

Le code légèrement modifié par moi

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
ActiveCell.EntireRow.Borders.ColorIndex = 6
ActiveCell.EntireColumn.Borders.ColorIndex = 14
End Sub


Et c’est là que ça plante, les bordures se font bien, mais reste après désélection de la cellule
Milles pardons un inculte d’Excel a encore besoin de vous, je vous remercie de m’aider

La Vouivre

Re : code

Bonsoir, essaie :