Sub Affecte_Images_Macro()
n = ActiveSheet.Pictures.Count
For i = n To 1 Step -1
ActiveSheet.Pictures(i).Select
Selection.OnAction = "Cliquer"
Next
End Sub
Sub Affecte_Images_Macro1()
'n = ActiveSheet.Pictures.Count
'For i = n To 1 Step -1
ActiveSheet.Pictures.OnAction = "Cliquer"
'Selection.OnAction = "Clique"
'Next
End Sub
Sub Affecte_Images_Macro2()
'n = ActiveSheet.Pictures.Count
'For i = n To 1 Step -1
ActiveSheet.Pictures.OnAction = "Clique"
'Selection.OnAction = "Clique"
'Next
End Sub
Sub Cliquer()
NomShape = Application.Caller
'MsgBox ActiveSheet.Shapes(NomShape).TopLeftCell.Address
Adr = ActiveSheet.Shapes(NomShape).TopLeftCell.Address
If Range(Adr).Font.Bold = False Then Range(Adr).Font.Bold = True: Range(Adr).Font.Color = RGB(255, 0, 0): Exit Sub
If Range(Adr).Font.Bold = True Then Range(Adr).Font.Bold = False: Range(Adr).Font.Color = RGB(0, 0, 0)
End Sub
Sub Clique()
MsgBox "OK"
End Sub