Aligner les cases à cocher

Bonsoir le forum,

Bonne année à toutes et à tous

J'ai un petit fichier basic avec des cases à cocher, comment les aligner toutes d'un coup verticalement?

Merci de votre aide.

Alain.

Bonjour Alain,

voici un exemple,

Sub Aligne_Shapes()
For Each Obj In ActiveSheet.Shapes
 With Obj.TopLeftCell
    col = 1  'alignement sur la colonne A
    rw = .Row
    addr1 = Cells(rw, col).address
 End With

    Obj.Top = Range(addr1).Top
    Obj.Left = Range(addr1).Left
    Obj.Height = Range(addr1).Height
    Obj.Width = Range(addr1).Width
Next
End Sub

Bonjour le forum, i20100,

Merci pour ta réponse i20100 mais il n'y a pas de VBA (Je suis mauvais à ce jeu) c'est juste un fichier basic.

Je le poste histoire de te donner une idée.

Merci de ton aide.

Alain.

re,

à tester,

Sub Aligne_Shapes_2()
For Each obj In ActiveSheet.Shapes
    x = Left(obj.Name, 5)
    If x = "Group" Then
     For Each ob In obj.GroupItems
    '    y = ob.Name
        ob.Left = obj.Left
     Next
    End If
Next
End Sub