Re: changer l'aspect du pointeur de cellule |
Titre du sujet : Re: changer l'aspect du pointeur de cellule par myDearFriend! le 23/11/2012 00:31:19 Bonsoir ramarc,
Citation : ramarc a écrit : Bonjour, Non, pas d'envoi par mail pour ma part
Si tes cellules cibles contiennent déjà une couleur (non issues d'une MFC), alors tu devrais pouvoir échanger le code VBA proposé précédemment par celui-ci :
DANS LE MODULE DE CODE DE L'OBJET THISWORKBOOK Option Explicit 'myDearFriend! - www.mdf-xlpages.com Dim CibleAdresse As String Dim CibleCoul As Long Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink) CibleCoul = ActiveCell.Interior.ColorIndex CibleAdresse = Target.SubAddress ActiveCell.Interior.ColorIndex = 3 End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If CibleAdresse <> vbNullString Then Evaluate(CibleAdresse).Interior.ColorIndex = CibleCoul CibleAdresse = vbNullString End If End Sub
Cordialement, |
Forums