Discussion :

[redstoff]

Bonjour,

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

à l'aide de la commande suivante,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?^^

[CodeFacile]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[redstoff]

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

la fonction que je veux est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[CodeFacile]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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