Bonjour à tous
je suis actuellement en stage de fin d'études et je sollicite votre aide afin de terminer une macro que j'ai à réaliser sous VBA avec Excel.
Je vous expose mon problème:
je dois créer dynamiquement des boutons dans une feuille Excel: des combobox et des check box.
Mon problème vient du nom que j'attribue dynamiquement aux boutons:
voici un bout de code:
Dim Chekbox As OLEObject
Dim ComboBox As OLEObject
Dim Check As CheckBox
Dim Combo As ComboBox
For i = 1 To nb_ligne
Set Target = ActiveSheet.Range("C" & 10 + i)
Set Chekbox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
Set Check = Chekbox.Object
Check.name = "CheckBox" & i
Set ComboBox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
Set Combo = ComboBox.Object
Combo.name = "ComboBox" & i
next i
le problème est que l'objet Check de type Checkbox n'est pas reconnu qd on fait Set Check = Chekbox.Object alors que ça marche très bien pour les combobox
J'ai une erreur de type incompatibilité de type et je ne peux pas avoir accès aux propriétes de l'objet checkbox dont le nom a changer.
Avant j'avais juste:
Set Chekbox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
With Checkbox
.name="xxxxx"
.object.value=true
.......
EndWith
le problème est que .name ne fait pas référence a l'objet checkbox(j'ai essayé.object.name mais ca ne marche pas
et donc lorsque je génère les boutons parfois les boutons n'ont pas le nom souhaité. il arrive même que deux checkbox aiant le même nom et donc ça plante.
Si quelqu'un peut m'aider je le remercie d'avance.
Bonne journée
Rémi
je suis actuellement en stage de fin d'études et je sollicite votre aide afin de terminer une macro que j'ai à réaliser sous VBA avec Excel.
Je vous expose mon problème:
je dois créer dynamiquement des boutons dans une feuille Excel: des combobox et des check box.
Mon problème vient du nom que j'attribue dynamiquement aux boutons:
voici un bout de code:
Dim Chekbox As OLEObject
Dim ComboBox As OLEObject
Dim Check As CheckBox
Dim Combo As ComboBox
For i = 1 To nb_ligne
Set Target = ActiveSheet.Range("C" & 10 + i)
Set Chekbox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
Set Check = Chekbox.Object
Check.name = "CheckBox" & i
Set ComboBox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
Set Combo = ComboBox.Object
Combo.name = "ComboBox" & i
next i
le problème est que l'objet Check de type Checkbox n'est pas reconnu qd on fait Set Check = Chekbox.Object alors que ça marche très bien pour les combobox
J'ai une erreur de type incompatibilité de type et je ne peux pas avoir accès aux propriétes de l'objet checkbox dont le nom a changer.
Avant j'avais juste:
Set Chekbox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
With Checkbox
.name="xxxxx"
.object.value=true
.......
EndWith
le problème est que .name ne fait pas référence a l'objet checkbox(j'ai essayé.object.name mais ca ne marche pas
et donc lorsque je génère les boutons parfois les boutons n'ont pas le nom souhaité. il arrive même que deux checkbox aiant le même nom et donc ça plante.
Si quelqu'un peut m'aider je le remercie d'avance.
Bonne journée
Rémi