Rapport de message :*
 

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,

J'ai encore des soucis pour envoyer des fichiers en piéce jointe

je réessaye, apparemment au boulot il ont du bloquer le passage dans ce sens.

Ya un moyen exceptionellement d'envoyer par MAIL ?


Encore un grand merci.

Cordialement  

Non, pas d'envoi par mail pour ma part Pensif

 

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,