Créer une checkbox en vba

B

Bacchuus

Guest
Bonjour à tous,
j'ai quelques soucis avec mon fichier Excel.Le but du code est de générer des checkbox dans des cellules de ma feuille.Problème : comment créer ces checkbox et est-il possible de les placer dans une cellule précise?
J'espere avoir été assez clair pour que quelqu'un daigne me répondre.
Merci d'avance.
Ciao
 
M

michel

Guest
bonjour Bacchuus

l'exemple créée un CheckBox dans la celule D5


Sub CreationCheckBox()
Dim Obj As OLEObject
Dim L As Double, T As Double, W As Double, H As Double

L = Range("D5").Left
T = Range("D5").Top
W = Range("D5").Width
H = Range("D5").Height

Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=L, Top:=T, Width:=W, Height:=H)
Obj.Name = "Check1"
End Sub


bonne soiree
MichelXld
 
@

@+Thierry

Guest
Bonjour Michel, Bacchuus, le Forum

J'ai aussi trouvé la question interressante, mais j'en ai fait une démo avec une construction en masse de CheckBoxes !!!!

Je ne suis pas loin de ton approche Michel...

Voici donc "TheCheckBoxBuilder" !!!

Bonne Fin de Journée
@+Thierry
 

Pièces jointes

  • OLEObjects_Builder.zip
    10.2 KB · Affichages: 772
@

@+Thierry

Guest
C'est Re-moi

Très interressant ta méthode Michel pour récupérer le Top et Left ainsi que la taille de la cellule pour la CheckBox... Donc du coup j'ai fait une Version II...

Bonne Soirée
@+Thierry
 

Pièces jointes

  • OLEObjects_Builder-V02.zip
    12.7 KB · Affichages: 811
C

Celeda

Guest
Bonjour,

ah ben non si vous vous y mettez now, à deux sur les checkboxes .........

on va faire sauter le forum!!!lol!!!!!!!


le moteur de David va pas suivre!!!

merci les boys !!!



l'été va être chaud sur XLD!!!on va tout enlever!!! lol!!!je le sens!!!!!




Celeda
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 926
Membres
101 842
dernier inscrit
seb0390