code

[Jean-Luc]

Bonjour
voici un code pour une ligne en couleur
Peux t'on le faire pour la colonne et la ligne
Merci de votre aide.




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

 

[JC de Lorient]

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

 

[dg62]

Bonjour Jean luc

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

 

[Blunet]

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

 

[Jean-Luc]

Bonjour et merci pour la reponse
super bonne soirée

 

[La Vouivre]

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

 

[Cousinhub]

Re : code

Bonsoir, essaie :

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