Microsoft 365 Surbrillance en fonction de cellules précises

[sharton]

Bonjour,

je suis vraiment débutante en VBA. Voila, je désire mettre la cellule active en une couleur différente et la remettre à sa couleur initiale.
Par défaut, je n'ai pas de problème à remettre à la couleur par défaut d'Excel.

Là où cela bloque c'est que j'ai des cellules fusionnées qui sont de couleur jaune soit 6. C'est quand j'ai essayé de faire un IF que ça ne fonctionne plus. Voici ma macro et je n'arrive pas à comprendre ce qui me bloque.

Merci beaucoup d'avance

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
'mettre en surbrillance la cellule active

Static xLastRng As Range
On Error Resume Next


If Intersect(Target, Range("D45:F47")) Then
Target.Interior.ColorIndex = 33
xLastRng.Interior.ColorIndex = 6
Set xLastRng = Target


Else

Target.Interior.ColorIndex = 33
xLastRng.Interior.ColorIndex = xlColorIndexNone
Set xLastRng = Target

End If
End Sub

 

[riton00]

Bonsoir,

Voir cet exemple

Pour un fonctionnement normale activer les macros

Slts

 

[sharton]

Bonjour,

la macro me donne le même problème, c'est à dire que la cellule qui a un fond de couleur x, quand je la sélectionne, le fond reste jaune et ne me déplaçant la couleur devient blanc. Mais je veux qu'elle redevienne la couleur x.

Merci beaucoup pour ton aide.

 

[riton00]

Bonsoir,

Quelques exemples de Jacques Boisgontier, tu trouveras peut-être ton bonheur puisque j'ai du mal à comprendre ta demande

Slts