Option Explicit
Sub test()
Dim s As Shape
For Each s In ActiveSheet.Shapes
s.Left = 10
Next s
End Sub
Sub Macro1()
For Each ch In ActiveSheet.Shapes
If InStr(ch.Name, "Check Box") <> 0 Then
ch.Left = 10
End If
Next
End Sub
Bonjour 306255
Salut ami Pierrot
A tester;
Code:Sub Macro1() For Each ch In ActiveSheet.Shapes If InStr(ch.Name, "Check Box") <> 0 Then ch.Left = 10 End If Next End Sub
Edit : a la bourre moi !!!
Il faut creer un module (Developpeur > Visual basic > insertion > Module)
copier/coller la macro et la lancer