La détection des changements de cases à cocher via VBA

Suite à ma question précédente.

Une exigence du client est d'avoir des cases à cocher dans un rapport pour désactiver les lignes d'informations sur une autre feuille. Les lignes sont définies comme des plages nommées, formaté par P_XXXXXX. Le XXXXXX est un identifiant unique qui est aussi un champ sur la ligne, donc je peux facilement générer les noms de plage à la volée.

Le problème que j'ai est:

  • Après avoir cliqué sur les postes et la fermeture de la forme Excel demande si nous voulons sauver. C'est undersirable.

J'ai besoin d'une certaine manière de l'enregistrement d'un événement de changement qui se passe sur mon généré des cases à cocher. Donc, si une ou plusieurs modifications, je peux courir à travers et hide/unhide pertinentes plages.

Mon code pour ajouter les cases à cocher ressemble:

        ' For each row...

        ' check box in column 17(=Q).
        Dim lCenter As Long
        lCenter = rngCurrent.Width / 4 ' not actual centre but close enough
        With ActiveSheet.CheckBoxes.Add(rngCurrent.Left + lCenter, rngCurrent.Top - 2, rngCurrent.Width, rngCurrent.Height)
            .Interior.ColorIndex = xlNone
            .Caption = ""
        End With

Alors, comment faites-vous le lien d'un changement dans une case avec un sub/function?

InformationsquelleAutor graham.reeds | 2009-06-17
  1. 6

    Définir la propriété OnAction Cases en objet le nom d'un sous vous souhaitez exécuter chaque fois que la case est cochée ou décochée.

    Sub MakeCB()

    With ActiveSheet.CheckBoxes.Add(ActiveCell.Left + 0, ActiveCell.Top - 2, ActiveCell.Width, ActiveCell.Height)
        .Interior.ColorIndex = xlNone
        .Caption = ""
        .OnAction = "CheckboxChange"
    End With

End Sub

Sub CheckboxChange()

    MsgBox "change"

End Sub
    • J'ai placé le CheckboxChange() dans le module et la fiche de code-behind, mais les deux me donner le message d'erreur "Impossible d'exécuter la macro 'ent_cc_new_pb.xls!CheckboxChange'. La macro peut ne pas être disponible dans ce classeur ou toutes les macros peut être désactivé. Toutefois, sur l'ouverture du classeur, il me donne l'option pour activer les macros qui je suis d'accord pour. Des idées?
    • Les deux sous-marins ci-dessus serait d'aller dans un module standard. À partir d'excel avec votre classeur active, appuyez sur Alt+F8 pour afficher la boîte de dialogue macro. Changer la "Macro" du menu déroulant de Ce manuel et assurez-vous que CheckboxChange apparaît dans la liste. Si cela ne fonctionne pas, vous pourriez avoir accidentellement écrit la macro dans le mauvais projet.
    InformationsquelleAutor Dick Kusleika
  2. 1

    Je ne pense pas qu'il y a des événements disponibles avec Excel.Contrôle de case à cocher. Essayez d'utiliser le MSForms case à cocher à la place. Vous aurez besoin d'une référence à "Microsoft Forms 2.0 Object Library" - ce n'est pas redistributeable, mais si vous êtes à l'aide de VBA, alors que c'est bien.

    Vous pouvez faire quelque chose comme ça, et gérer l'événement de la manière habituelle:

    ''class level
Private WithEvents m_Checkbox as MSForms.CheckBox

Public Sub MakeCheckbox()
    Set m_Checkbox = Activesheet.OLEObjects.Add("Forms.Checkbox.1")
End Sub

Private Sub m_Checkbox_Click()
    ''Do stuff
End Sub

    Évidemment, vous aurez seulement être capable de gérer un nombre de cases à cocher de cette façon - je recommande la création d'une classe à tenir chaque case.

    InformationsquelleAutor Ant