linkcell

[f69815]

nbligne = Range('B2').End(xlDown).Row
h = 12.75
h1 = 2.5
For i = 1 To nbligne - 1
h1 = h1 + h
ActiveSheet.OLEObjects.Add(ClassType:='Forms.CheckBox.1', Link:=True, _
DisplayAsIcon:=False, Left:=491.25, Top:=h1, Width:=10, Height:= _
10).Select
Next i
bonsoir,
voici mes pb

je voudrais attribuer la propriété linkcell a mes checkbox par macro.

et à l'ouverture effacer toutes mes checkbox, car le nb de ligne n'est pas tjs le même, d'ou la variable nbligne.

j'avance petit à petit dans la conception de ma feuille et je pense que je vous solliciterai de nouveau....

merci

 

[MichelXld]

bonjour

ci joint 2 methodes pour créer un checkbox dans la feuille et lui attribuer la proprieté LinkedCell ( à la cellule B2 )


Sub Test1()
Dim X As Byte

ActiveSheet.OLEObjects.Add ClassType:='Forms.CheckBox.1', Link:=True, _
DisplayAsIcon:=False, Left:=491.25, Top:=50, Width:=10, Height:=10

X = ActiveSheet.OLEObjects.Count
ActiveSheet.OLEObjects(X).LinkedCell = 'B2'
End Sub



Sub Test2()
Dim Obj As OLEObject

Set Obj = ActiveSheet.OLEObjects.Add(ClassType:='Forms.CheckBox.1', Link:=True, _
DisplayAsIcon:=False, Left:=491.25, Top:=50, Width:=10, Height:=10)

Obj.LinkedCell = 'B2'

End Sub


et cet exemple supprime les CheckBoxs dans la feuille


Sub suppresionCheckBoxsFeuille()
Dim Obj As OLEObject

For Each Obj In ActiveSheet.OLEObjects
If TypeOf Obj.Object Is MSForms.CheckBox Then Obj.Delete
Next
End Sub



bon week end
MichelXld

Message édité par: MichelXld, à: 11/06/2005 13:05

 

[f69815]

merci,

tout fonctionne parfaitement bien

à bientôt pour d'autres questions 🙂

 

[f69815]

me revoila, bonsoir,

suite à la réponse de MichelXld, que je remercie de nouveau,

il y a un petit hic : les case sont cochées grisée, comment faire pour que la propriété Value prenne la valeur False.

merci

 

[MichelXld]

bonjour

je ne comprend pas ta question

puisque tu lies ta CheckBox à la cellule B2 :

si la cellue B2 contient 'True' ( ou 1) la CheckBox est cochée
si la cellue B2 contient 'False' ( ou 0 ) la CheckBox est cochée
si la cellue B2 est vide la CheckBox est grisée


tu peux tester cette adaptation mais je ne suis pas sur que cela corresponde à ta demande

Sub Test2()
Dim Obj As OLEObject

Set Obj = ActiveSheet.OLEObjects.Add(ClassType:='Forms.CheckBox.1', Link:=True, _
DisplayAsIcon:=False, Left:=491.25, Top:=50, Width:=10, Height:=10)

Obj.LinkedCell = 'B2'
Obj.Object.Value = False
End Sub


sinon , peux tu repréciser ta demande ?


bon dimanche
MichelXld

 

[f69815]

bonsoir,
ta réponse me convient parfaitement et fonctionne à merveille.

je continue à progresser, c'est mon premier code, je regarde les autres post et si je n'y arrive pas je demande.

salutations