Bouton tout sélectionner check box Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
S
SachaLeChat9
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 6 février 2018
Version d'Excel : 2010

Message par SachaLeChat9 » 8 février 2018, 10:41

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. :lol:

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 :)
Matériel chimie 2 copie.xlsm
(92.99 Kio) Téléchargé 33 fois
Avatar du membre
Jers19
Membre fidèle
Membre fidèle
Messages : 305
Appréciations reçues : 27
Inscrit le : 14 septembre 2017
Version d'Excel : 2010

Message par Jers19 » 8 février 2018, 20:46

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
1 membre du forum aime ce message.
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'771
Appréciations reçues : 120
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 8 février 2018, 21:11

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é
Matériel chimie 2 copie_v1__test001.xlsm
(95.44 Kio) Téléchargé 29 fois
1 membre du forum aime ce message.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message