Bouton tout sélectionner check box

Bonjour !

J'ai quasiment terminer mon fichier mais j'ai encore un dernier problème disons pour que ce soit proche de la perfection ahah.

J'ai créer le bouton pour tout sélectionner qui fonctionne. Pour que ce soit encore mieux je voudrais qu'il ne sélectionne que les lignent qui sont entièrement complétées.

Bonne journée

Salut,

Voici une proposition à insérer dans la feuille "Formulaire à remplir" à la place de l'existant

Private Sub CommandButton2_Click()
Dim Obj As OLEObject
Dim NbCellRemplies%, i%, NumLigne%
    For Each Obj In ActiveSheet.OLEObjects
        If TypeOf Obj.Object Is MSForms.CheckBox Then
            NbCellRemplies = 0
            NumLigne = Right(Obj.Name, Len(Obj.Name) - 8) + 4
            For i = 2 To 7
                If Cells(NumLigne, i) <> "" Then NbCellRemplies = NbCellRemplies + 1
            Next i
            If NbCellRemplies = 6 Then Obj.Object.Value = True
        End If
    Next Obj
End Sub

Jers

Bonjour toutes et tous, merci Jers19

un code pour les réinitialisations de toutes les checkbox (merci à Readi)

toujours sur la Feuil1

Private Sub CommandButton1_Click()
' https://forum.excel-pratique.com/viewtopic.php?t=11948 merci à Readi
      Dim oObjet As Object

  If MsgBox("Confirmez-vous la suppression des données ?", vbYesNo, "Demande de confirmation de suppression") = vbYes Then
    Range("zone_effacement").ClearContents

    ' Boucle sur tous les objects
    For Each oObjet In Me.OLEObjects
        ' TextBox
        If TypeOf oObjet.Object Is msforms.TextBox Then
            oObjet.Object.Text = ""
        ' CheckBox
        ElseIf TypeOf oObjet.Object Is msforms.CheckBox Then
            oObjet.Object.Value = False
        End If
    Next oObjet
  End If

End Sub

crdlt,

André

Rechercher des sujets similaires à "bouton tout selectionner check box"