XL 2019 Supprimer le fond d'une checkBox

leopr

XLDnaute Nouveau
Bonjour,
J'ai un code VBA qui génère une centaine de checkbox, mais celles ci ont un fond blanc et un nom "CheckBox n°i" que j'aimerai enlever, c'est à dire les rendre transparentes et sans nom. Mais je n'arrive pas a compléter mon code pour qu'il s'en charge automatiquement, sauriez vous m'aider ? Voilà mon code, ainsi qu'une photo de ce qu'il donne :

Sub CheckBoxBDDDFor()
Dim ligne As Integer
Dim Chekbox As OLEObject
Dim Target As Range
ligne = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row - 112
Dim n As Integer
Dim CB As OLEObject
While n < 110
If Sheets("DetailsProjets").Cells(ligne, 9).Value = "Faux" Then

Set Target = Sheets("DetailsProjets").Cells(ligne, 9)
Set Chekbox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
With Chekbox
.LinkedCell = "DetailsProjets!I" & ligne
.Object.Value = False





End With
End If
 

Pièces jointes

  • Capture d’écran 2021-06-28 110703.png
    Capture d’écran 2021-06-28 110703.png
    22.1 KB · Affichages: 33

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Vous pouvez toujours essayer :
VB:
.Interior.ColorIndex = xlColorIndexNone
Ou plutôt
VB:
.Object.BackStyle = fmBackStyleTransparent
Mais à partir d'une image, difficile de faire mieux pour vous.

Cordialement
 

Discussions similaires

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla