Code checkbox à vérifier

Excel
2

Bonjour Rubis,
Rien à dire de spécial, c’est du bon boulot
J’ai rajouté un ELSE pour ôter le « X » si le checkbox n’est pas coché
et une autre version pour indo pour la colonne de date

Private Sub CommandButton1_Click() 'valider

  Dim col As Integer, lig1 As Integer, Ind As Integer
  If Me.TextBox1.Value = "" Then MsgBox ("Vous n'avez pas saisie la date"): Me.TextBox1.SetFocus: Exit Sub
  Application.ScreenUpdating = False
  With Sheets("Feuil3")
    col = Day(CDate(Me.TextBox1.Value)) + 4
    lig1 = 7
      For Ind = 1 To 11
        If Me.Controls("CheckBox" & Ind).Value = True Then
          .Cells(lig1 + Ind, col).Value = "x"
        Else
          .Cells(lig1 + Ind, col).Value = ""
        End If
      Next Ind
   End With
  Application.ScreenUpdating = True
  Unload Me
End Sub
1 « J'aime »