SalutBonjour à tous,
Je ne sais si c'est possible mais je pose tout de même la question Est-il possible d'attribuer à un lien hypertexte la possibilité d'action une macro ?
Merci à tous.
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
MsgBox Target.Address & vbCrLf & Target.SubAddress
End Sub
Par contre tu peux utiliser la macro à lancement automatique "Worksheet_SelectionChange" pour que si tu cliques sur une cellule, une macro soit exécutée.
ActiveCell.FormulaR1C1 = _
"=IF(AND((RC7<R1C[1])=TRUE,(R1C<=RC8)=TRUE,RC9=""oui""),0.5,(RC7<R1C[1])*(R1C<=RC8)*NB.JOURS.OUVRES(IF(MONTH(RC7)=MONTH(R1C),RC7,R1C),IF(MONTH(RC8)=MONTH(R1C),RC8,(R1C[1]-1))))"
SalutRe,
Après plusieurs tentatives je n'arrive pas à réaliser la macro avec Worksheet_SelectionChange comme l'indique Gorfael. Quelqu'un peut'il m'aider ?