(RESOLU)Changer la taille (height) de USF selon la valeur de Combobox de 1 a 8

[chaelie2015]

Bonjour
dans mon USF (de taille 316) j'ai un ComboBox avec une liste déroulante de 1 a 8.
je souhaite modifier la taille de USF selon la valeur de ComboBox1
c a d
Pour Combobox=1 j’aurai height de USF =106
Pour Combobox=2 j’aurai height de USF =136
Pour Combobox=3 j’aurai height de USF =166
Pour Combobox=4 j’aurai height de USF =196
Pour Combobox=5 j’aurai height de USF =226
Pour Combobox=6 j’aurai height de USF =256
Pour Combobox=7 j’aurai height de USF =286
Pour Combobox=8 j’aurai height de USF =316
Salutations

 

[jpb388]

Re : Changer la taille (height) de USF selon la valeur de Combobox de 1 a 8

Bonjour à tous
tu peux essayer usf.height=choose(combobox.listindex+1,106,136,166,196,226,156,286,316)

 

[chaelie2015]

Re : Changer la taille (height) de USF selon la valeur de Combobox de 1 a 8

Bonjour JP
MERCI pour la réponse rapide
je l'ai testé dans le Combobox1

Private Sub ComboBox1_Change() 'Propriété Style de combobox au lieu de dropDownCombo Mettre dropDownList
usf.Height = Choose(ComboBox.ListIndex + 1, 106, 136, 166, 196, 226, 156, 286, 316)
End Sub

mais ça n'a pas fonctionné??

Edit: Message d'erreur 424 : Objet requis
Salutations

 

[Pierrot93]

Re : Changer la taille (height) de USF selon la valeur de Combobox de 1 a 8

Bonjour,

vérifie le nom de ta combo dans cette instruction...

ComboBox.ListIndex

bonne journée
@+

 

[chaelie2015]

Re : Changer la taille (height) de USF selon la valeur de Combobox de 1 a 8

Re
Mnt ça fonctionne tres bien

Private Sub ComboBox1_Change() 'Propriété Style de combobox au lieu de dropDownCombo Mettre dropDownList
UserForm3.Height = Choose(ComboBox1.ListIndex + 1, 106, 136, 166, 196, 226, 156, 286, 316)
End Sub

 

[chaelie2015]

Re : Changer la taille (height) de USF selon la valeur de Combobox de 1 a 8

Bonjour Pierrot
Sorry je n'ai pas vu ton message..
Merci JB
Merci Pierrot
je souhaite l'afficher au démarrage par Combobox 1?
coment faire pour que mon combobox1 au lancement de USF soit 1,pour avoir la taille de USF 106
Merci par avance
Salutations

 

[Pierrot93]

Re : Changer la taille (height) de USF selon la valeur de Combobox de 1 a 8

Re,

essaye ceci :

ComboBox1.ListIndex = 0

 

[chaelie2015]

Re : Changer la taille (height) de USF selon la valeur de Combobox de 1 a 8

Re
est ce que c'est juste

Private Sub UserForm_Initialize()
UserForm3.Height = Choose(ComboBox1.ListIndex + 1, 106)
End Sub

A+

 

[Pierrot93]

Re : Changer la taille (height) de USF selon la valeur de Combobox de 1 a 8

Re,

ceci devrait aussi le faire ....

UserForm3.Height = 106

 

[chaelie2015]

Re : Changer la taille (height) de USF selon la valeur de Combobox de 1 a 8

Re
merci Pierrot, Merci JP
C'est nickel
Mon souci est résolu
SALUTATION