insertion ligne dans macro

Bonjour,

je cherche à faire en sorte que ma userform soit un peu dynamique.

à l'aide de la commande suivante,

Code:

---

1 2 3 4

j = ActiveWorkbook.VBProject.VBComponents(support.Name).CodeModule.CountOfLines ActiveWorkbook.VBProject.VBComponents(support.Name).CodeModule.InsertLines j + 1, "Sub " & .Name & "_click()" ActiveWorkbook.VBProject.VBComponents(support.Name).CodeModule.InsertLines j + 2, "support." & .Name & ".caption = support." & .Name & ".caption +1" ActiveWorkbook.VBProject.VBComponents(support.Name).CodeModule.InsertLines j + 3, "End Sub"

---

je cherche à faire en sorte que quand je click sur un label crée en dynamique cela met met la valeur +1

en temps normal, ça ne pose pas de souci mais la quand je clique sur le label rien ne se passe.

et donc, ma question est pourquoi?^^

Bonjour ,

En gros dans ton code , tu inserres dans tes modules , la procédure suivante :

Sub .Name_click()
support.Name.caption = support.Name.caption
End Sub

1er point : A mon avis c'est , une procédure .clik qui doit être classée dans les propriétés du control Labelx

2 : 'support ': Dans le code , c'est du texte , c'est pas un objet

Pour une construction dynamique d'un label , tu peux essayer une construction de ce type :

Code:

---

1 2 3 4

M_label1 = ActiveSheet.OLEObjects.Add(ClassType:="Forms.label.1", Left:= 45, Top:=80, Width:= 150, Height:=40).name '( je te laisse ajuster les dimensions) et ensuite faire : ActiveSheet.OLEObjects ( M_label1 ).caption = " Ma valeur titre"

---

salut et merci à toi de passer du temps sur mon probleme.

la fonction que je veux est

Code:

---

1 2 3

Sub label1_click() Me.label1.Caption = Me.label1.Caption + 1 End Sub

---

la difference avec ce que tu as marqué est le +1

ce code fonctionne très bien si je l'assigne à un bouton.

mais quand je cherche à le faire au clique ça ne fonctionne pas

Sais tu me donner une définition de OLOEobjects?

1) label1_click , désigne un object et dans mon exemple M_label1 correspond ( = du texte , méthode .Name ) la Construction "M_label1" & _click ne sera pas conforme.

Sur un label , on ne peut pas implémenter une fonction click.
Ce qu'il faut faire , si tu veux garder l'effet Label Texte , c'est supperposer un bouton derrière le label .

Sur un bouton , on peut implémenter une fonction click et avec une syntaxe permettant la construction dynamique de la manière suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

M_Bouton1 = ActiveSheet.Buttons.Add(Left:= 40, Top := 80), Width:=Width_B, Height:=Height_B).name   ActiveSheet.Buttons(M_Bouton1).Text = " ": ActiveSheet.Shapes(M_Bouton1).OnAction = "nom_macro"   'Dans les modules , n'a pas besoin de rajouter de ligne, il suffit de placer la procédure   public sub nom_macro   Me.label1.Caption = Me.label1.Caption + 1   end sub

---