macro ligne et colone couleur sur une zone

[maximus57_291]

Bonjour,

j'ai un fichier contenant une macro qui permet de colorer la ligne et la colone de la cellule sélectionnée sur toute la feuille.

je voudrai appliquer cette macro mais que sur une zone déterminée, par exemple de A10 à IV500

Ci joint le fichier contenant cette macro

Merci d'avance

 

[SergiO]

Re : macro ligne et colone couleur sur une zone

Bonjour maximus57_291,

Voici le code modifié:

Private Sub Worksheet_SelectionChange(ByVal Target As range)
Cells.Interior.ColorIndex = xlNone
If Not Intersect(Target, range("A10:IV500")) Is Nothing Then
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
.EntireColumn.Interior.ColorIndex = 36
End With
End If
End Sub

@+

 

[SergiO]

Re : macro ligne et colone couleur sur une zone

Bonjour maximus57_291,

Voici le code modifié:

Private Sub Worksheet_SelectionChange(ByVal Target As range)
Cells.Interior.ColorIndex = xlNone
If Not Intersect(Target, range("A10:IV500")) Is Nothing Then
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
.EntireColumn.Interior.ColorIndex = 36
End With
End If
End Sub

@+

 

[fanfan38]

Re : macro ligne et colone couleur sur une zone

Salut Maximus et Sergio
en debut de macro je mettrai:
If Target.Row < 10 Or Target.Row > 500 Then Exit Sub

A+ François

 

[Compte Supprimé 979]

Re : macro ligne et colone couleur sur une zone

Bonjour à tous,

Etrange le nombre de réponses ne s'incrémente pas sur ce post

David, si tu es par ici ...

 

[mécano41]

Re : macro ligne et colone couleur sur une zone

Bonjour,

Pour le faire seulement dans une plage déterminée (et sans effacer les couleurs des cellules hors plage), tu peux faire selon fichier joint. La plage du tableau doit être nommée (voir fichier).

Cordialement

 

[maximus57_291]

Re : macro ligne et colone couleur sur une zone

sympa pour le fichier

encore merci

 

[maximus57_291]

Re : macro ligne et colone couleur sur une zone

merci pour le code

mais en fait,
ce n'est pas ce que je voulais, je me suis mal expliqué.

je voudrai que la colone et la ligne de la cellule active ne soient colorées que dans cette zone

merci quand meme pour ta reponse

a bientot

 

[mécano41]

Re : macro ligne et colone couleur sur une zone

Bonjour,
Dans ce cas, le code était seulement ce qui suit, semblable à ce qui t'a été donné par ailleurs mais en nommant la plage (pour ne rien avoir à modifier dans le code si ajout/suppr. lignes et/ou colonnes)

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim PlgAtrait As Range

Const CouleurLig = 35 ' vert clair
Const CouleurCol = 36 ' jaune clair

Set PlgAtrait = Range("PlageAtraiter")
ActiveSheet.Cells.Interior.ColorIndex = xlNone
If Not Intersect(Target, PlgAtrait) Is Nothing Then
    Target.EntireColumn.Interior.ColorIndex = CouleurCol
    Target.EntireRow.Interior.ColorIndex = CouleurLig
End If
End Sub

Attention à un point : dans tous les cas cas, ce code interdit tout copier/coller dans la feuille (ou bien il faut prévoir une action qui inhibe cette procédure avant de faire l'opération)

Cordialement

 

[maximus57_291]

Re : macro ligne et colone couleur sur une zone

Bonjour,
Dans ce cas, le code était seulement ce qui suit, semblable à ce qui t'a été donné par ailleurs mais en nommant la plage (pour ne rien avoir à modifier dans le code si ajout/suppr. lignes et/ou colonnes)

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim PlgAtrait As Range

Const CouleurLig = 35 ' vert clair
Const CouleurCol = 36 ' jaune clair

Set PlgAtrait = Range("PlageAtraiter")
ActiveSheet.Cells.Interior.ColorIndex = xlNone
If Not Intersect(Target, PlgAtrait) Is Nothing Then
    Target.EntireColumn.Interior.ColorIndex = CouleurCol
    Target.EntireRow.Interior.ColorIndex = CouleurLig
End If
End Sub

Attention à un point : dans tous les cas cas, ce code interdit tout copier/coller dans la feuille (ou bien il faut prévoir une action qui inhibe cette procédure avant de faire l'opération)

Cordialement

encore merci mecano41