Bonjour a tous

voila en gros mon souci, dans un Workbook_SheetActivate, je viens mettre de la couleur ds certaines celulle par la fct ActiveSheet...(un systeme de raffraichissement).

le souci: si je selectionne une celulle d'une autre feuille, que je copie cette celulle,quand je vais sur une autre feuille, automatiquement , du faite de la fct activeSheet.range dans ma procedure Workbook_SheetActivate, ca remet le presse papier a zero, donc ne peut plus faire un Paste.

Y a t'il une solution pour garder une celulle copier et garder ma fonction telle qu'elle...
ou bien
comment je peux savoir si une zone de celulle est selectionner et en copie, la feuille ou se trouve cette zone ainsi que le range selectionner (en mode; les petits points qui tourne autour de la zone selectionner)?

merci par avance


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.Range("G4:g22").Font.ColorIndex = xlAutomatic
End Sub