Astuces Excel
  1. Astuces Excel
  3. Excel VBA – position de la checkbox dans la cellule
Intereting Posts
Pourquoi le contrôle ne va pas à l'intérieur de if (), la condition est-elle toujours satisfaite? Codage de caractères dans Microsoft Office (par défaut de GB2312 en chinois spécifiquement) Création d'une copy de la feuille de calcul en boucle classique Asp sortingant des valeurs alphanumériques à partir d'Excel à l'aide d'un ordre par VBA Looping à travers plusieurs feuilles de travail comment mettre en surbrillance ligne et colonne dans Excel J'ai essayé d'exécuter le test t dans Excel à l'aide de VBA, en rencontrant une erreur "objects requirejs" Obtenir une erreur en essayant d'importer des résultats de requête depuis VS 2013 vers Microsoft Excel 2013 Erreur Excel VLookup #NV Excel Sumproduct avec exigences et list indéterminée (colonne entière) Excel à ElasticSearch API Demandes Combinaison de données à partir de deux arrays dans Excel 2010 Valeur de capture du groupe de buttons radio Convertir des colonnes en lignes groupées par jour Excel VBA: remplissage automatique d'une feuille avec datatables d'autres feuilles en tant que valeurs en sélectionnant dans une list déroulante

Excel VBA – position de la checkbox dans la cellule

Je ne peux pas positionner ma checkbox sur le côté droit de la cellule.

Macro ajoute un button à une cellule spécifique dans le coin supérieur gauche, mais quand je veux append la checkbox à la même cellule, elle ne va pas sur le côté droit, comment puis-je faire cela? Apparemment, le numéro 50 de la ligne Set chkbx sert à régler la position. Mais ma checkbox ne se dirige vers la gauche que lorsque je la change au numéro négatif. Mais il ne va pas vers la droite. Comment puis-je le faire ? 

Set t = ActiveSheet.Range(Cells(10, NewColumn), Cells(10, NewColumn)) Set btn = ActiveSheet.Buttons.Add(t.Left, t.Top, 0, 0) With btn .OnAction = "Button_clicked" .Caption = "X" .Width = 15 .Height = 12 .Name = "Delete_button_" & x End With

/ ICI EST LE BOITE DE VÉRIFICATION QUE JE VEUX AVOIR DANS LE COIN SUPÉRIEUR DROIT / 

 Set chkbx = ActiveSheet.CheckBoxes.Add(t.Left, t.Top, 50, 0) With chkbx .Name = "CheckBox_" & x .Caption = "" End With

entrez la description de l'image ici

essayer 

 Set chkbx = ActiveSheet.CheckBoxes.Add(t.Left, t.Top, 0, 0) With chkbx .Name = "CheckBox_" & x .Caption = "" .Left = t.Left + t.Width - .Width End With