Astuces Excel
  1. Astuces Excel
  3. Excel 2003, ajoutant du contenu avec des cases à cocher
Intereting Posts
Email Macro fonctionne en 2010 mais pas 2013? Lire d'excel dans GridView – Champs blancs en raison du type de données Tableau pivot des filters multiples EXCEL avec changement de données Lecture avec xlrd en python génération rapide Excel Copiez le tableau à partir de la page Web et collez dans Excel en utilisant le formulaire de destination de correspondance via vba Création d'un exemple d'automation MFC (pour accéder à Excel en utilisant l'automation OLE). Impossible de comstackr utiliser plusieurs valeurs dans une seule cellule pour effectuer vlookup dans VBA Copier Coller des files CSV sur un classur xlsm Comment masquer les tables de données source dans Power Pivot Comparez les valeurs sélectionnées de deux Powerpivot Slicers Excel 2013 dans VBA Prendre des valeurs de la colonne 1, mettre des feuilles de travail séparées Excel-Hyperlien avec une fonction de search Tri de la feuille excel dans l'ordre inverse sur la base du time créé / inverser la feuille Excel Excel – Si le tableau A1: A100 contient une valeur de A101: A200, puis supprimez la ligne

Excel 2003, ajoutant du contenu avec des cases à cocher

Je propose une gamme avec des lignes utilisant VBA, chaque ligne aura sa propre checkbox.

Jusqu'à présent, le code ressemble à ceci: 

Dim objColumnHeadings As Range, objDBsheet As Worksheet Dim lngRow As Long, objCell As Range Dim objCheckbox As Object Set objDBsheet = getDBsheet() Set objColumnHeadings = objDBsheet.Range("ColumnHeadings") objColumnHeadings.ClearContents lngRow = 1 For Each varExisting In objColumns objColumnHeadings.Cells(lngRow, 1).Value = varExisting Set objCell = objColumnHeadings.Cells(lngRow, 2) Set objCheckbox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1" _ , Left:=412.8 _ , Top:=objCell.Top _ , Height:=10 _ , Width:=9.6) objCheckbox.Name = "cb" & lngRow objCheckbox.Appearance.Caption = "" objCheckbox.Appearance.BackColor = &H808080 objCheckbox.Appearance.BackStyle = 0 lngRow = lngRow + 1 If lngRow > 1 Then Exit For End If Next

La définition du nom de la checkbox fonctionne, mais la définition des autres propriétés ne provoque pas une erreur d'exécution: '438', Objet ne supporte pas cette propriété ou cette méthode.

Lorsque je regarde les propriétés des cases nouvellement ajoutées, le nom est défini correctement, mais Legend, BackColor et BackStyle ne sont pas définis.

Comment configurer ces parameters par programme?

Utilisez MSForms.CheckBox , et l' Object Set in it, c'est plus facile. Utilisez le code d'exemple suivant. 

 Sub test() Dim objCheckbox As MSForms.CheckBox Set objCheckbox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1" _ , Left:=10.8 _ , Top:=10 _ , Height:=25 _ , Width:=200).Object objCheckbox.Name = "Dummy_Test" objCheckbox.Caption = "Test" objCheckbox.BackColor = vbRed objCheckbox.BackStyle = 0 End Sub