Colorer/décolorer au clic sur une zone de feuille excel et non pas une feuille complè

[tweety57]

Bonjour à toutes et à tous,

Je souhaite colorer et décolorer au clic une partie d'une feuille excel.

J'ai réussi à faire la macro VBA de coloration/décoloration mais je n'arrive pas à l'appliquer à une plage de cellule uniquement (lignes 107 à 129 et colonnes C à AF).

Quelqu'un pourrait-il m'aider?

Voici ma macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Interior.ColorIndex = 15 Then
Selection.Interior.ColorIndex = xlNone
Else
Selection.Interior.ColorIndex = 15
End If
End Sub


Merci de vos réponses.

 

[ERIC S]

Re : Colorer/décolorer au clic sur une zone de feuille excel et non pas une feuille c

Bonjour

peut-être (non testé) avec en début de macro

if intersect(target, range("C107:AF129")) is nothing then exit sub

si ton clic est hors zone, on sort de la macro

 

[francedemo]

Re : Colorer/décolorer au clic sur une zone de feuille excel et non pas une feuille c

bonjour,
à tester:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
dim C
    for each C in range("C107:AF129")
If C.Interior.ColorIndex = 15 Then
C.Interior.ColorIndex = xlNone
Else
C.Interior.ColorIndex = 15
End If
next C
End Sub

ou alors:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
dim C
    for each C in range("C107:AF129")
  C.Interior.ColorIndex = iif(C.Interior.ColorIndex =15,xlNone,15)
next C
End Sub

à+

 

[tweety57]

Re : Colorer/décolorer au clic sur une zone de feuille excel et non pas une feuille c

@ ERIC S : Merci ça fonctionne du tonnerre!
@ francedemo : la macro fonctionne mais me colorie toutes les cellules de la zone alors que je dois pouvoir les cliquer les unes indépendamment des autres, mais merci quand même d'avoir pris le temps de me répondre.

 

[francedemo]

Re : Colorer/décolorer au clic sur une zone de feuille excel et non pas une feuille c

donc :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if intersect(target, range("C107:AF129")) is nothing then exit sub
target.Interior.ColorIndex = iif(target.Interior.ColorIndex =15,xlNone,15)
End Sub