Simplifier/automatiser écriture Macro

Bonjour à tous,

J'ai une macro qui reproduit la même logique mais que je n'arrive pas à simplifier ni automatiser dans l'écriture

J'ajoute toujours + 15 à la deuxième valeur du Checkboxes.add(11, 386+15,...,...)

Et la linked Cell fait toujours +1 aussi $E$27 + 1

Quelqu'un saurait comment simplifier tout ça?

J'ai 400 cases à faire.

Merci d'avance!

ActiveSheet.CheckBoxes.Add(11, 386, 60, 24).Select
    With Selection
        .Value = xlOff
        .LinkedCell = "$E$27"
        .Display3DShading = False
        .Characters.Text = ""
    ActiveSheet.CheckBoxes.Add(11, 401, 60, 24).Select
    End With
    With Selection
        .Value = xlOff
        .LinkedCell = "$E$28"
        .Display3DShading = False
        .Characters.Text = ""
    ActiveSheet.CheckBoxes.Add(11, 416, 60, 24).Select
    End With
    With Selection
        .Value = xlOff
        .LinkedCell = "$E$29"
        .Display3DShading = False
        .Characters.Text = ""
    End With

Bonjour

A tester

En surligné le nombre que tu veux - 1

Sub truc()
Dim J As Long
Dim Indice As Integer
Indice = 27
  For J = 386 To 386 + (9 * 15) Step 15
    With ActiveSheet.CheckBoxes.Add(11, J, 60, 24)
      .Value = xlOff
      .LinkedCell = "$E$" & Indice
      .Display3DShading = False
      .Characters.Text = ""
    End With
    Indice = Indice + 1
  Next J
End Sub

Ca marche.

C'est parfait !

Merci pour la rapidité de réponse.

A bientôt.