Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

UserForm1.Controls.Add("Forms.Label.1", titre, True)

12 réponses
Avatar
isabelle
salutatous,

je reçoit le message "Erreur d'exécution 13 : Incompatibilité de type
sur la ligne: Set lbl = UserForm1.Controls.Add("Forms.Label.1", titre,
True)
si je mets la section de création du label en commentaire
la création des combobox s'exécute normalement,
mais je n'arrive pas à voir la différence qu'il peut y avoir entre les
deux créations de controls

merci de m'éclairer à ce sujet, http://cjoint.com/?kitSzLqVnx

isabelle


Private Sub UserForm_Activate()
Dim x As Integer, i As Integer
x = 10
For i = 1 To Sheets("Feuil1").Range("IV1").End(xlToLeft).Column
titre = Sheets("Feuil1").Cells(1, i)

Dim lbl As Label
Set lbl = UserForm1.Controls.Add("Forms.Label.1", titre, True)
With lbl
.Top = x
.Left = 10
.Height = 15
.Width = 40
End With

Dim cbb As ComboBox
Set cbb = UserForm1.Controls.Add("Forms.ComboBox.1", "cmbBox", True)
With cbb
.Top = x
.Left = 70
.Height = 15
.Width = 120
ht = .Height
End With
x = x + ht + 5
Next
End Sub

2 réponses

1 2
Avatar
michdenis
Exécute en mode pas à pas le code dans le module classe suite
à une sélection dans un des combobox... tu vas voir la différence
entre mon approche et la tienne...

C'est quand même bien, tu as réussi en t'en sortir !
;-)

Salutations.




"isabelle" a écrit dans le message de groupe de discussion :
##
un gros merci Denis, grâce à ton 1er exemple j'ai pu arriver à mes fin,
voici le résultat : http://cjoint.com/?kjsbzSPOLK

isabelle




michdenis a écrit :
Bonjour Isabelle,

Si tu n'as pas déjà terminé, ceci pourrait t'aider :

http://cjoint.com/?kjcsHKOamp




"isabelle" a écrit dans le message de groupe de discussion :

merci Denis,

ton exemple fonctionne bien,
ce que j'essaie de faire est de mettre tout les combobox à la même
ListIndex lorsqu'il y en a un qui change

isabelle

michdenis a écrit :

Un petit exemple simple : http://cjoint.com/?kixGJgqQtu

| si si, il y a le contrôle "étiquette"

ça c'est indéniable ... je l'ai vu !!!

Tu as découvert un BUG, chanceuse !
;-)









Avatar
isabelle
salut Denis,

michdenis a écrit :
Exécute en mode pas à pas le code dans le module classe suite
à une sélection dans un des combobox... tu vas voir la différence
entre mon approche et la tienne...




pour sur, je télécharge ton fichier maintenant mais je vais mit mettre
dès lundi, j'aime bien quand le code est optimiser,
encore un gros merci,
bisou*
isabelle
1 2