Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Récupération de la valeur d'un combobox

Récupération de la valeur d'un combobox

1 réponse
Avatar
Michel
Bonjour,
j'ai dans un combobox des =E9l=E9ments que je souhaite=20
r=E9cup=E9rer afin de faire une proc du genre :

If Cbx_chiffres.List(0, 1) =3D 10 Then
frm_table.Txt_chiffres.Width =3D 96
frm_table.Txt_chiffres.Left =3D 210
End If

Le pb est que je n'arrive pas =E0 r=E9cup=E9rer la valeur afin=20
de lancer la proc.
Je souhaite pouvoir dire : si la valeur de cbx_chiffres=20
est =E9gale =E0 10 alors...

Merci pour votre aide.
Michel

Cbx_chiffres.ColumnCount =3D 2
Cbx_chiffres.ColumnWidths =3D ";0"

Cbx_chiffres.AddItem "Jusqu'=E0 : dix"
Cbx_chiffres.List(0, 1) =3D 10
Cbx_chiffres.AddItem "Jusqu'=E0 : cinquante"
Cbx_chiffres.List(1, 1) =3D 50
Cbx_chiffres.AddItem "Jusqu'=E0 : cent"
Cbx_chiffres.List(2, 1) =3D 100
Cbx_chiffres.AddItem "Jusqu'=E0 : mille"
Cbx_chiffres.List(3, 1) =3D 1000
Cbx_chiffres.AddItem "Jusqu'=E0 : dix milles"
Cbx_chiffres.List(4, 1) =3D 10000
Cbx_chiffres.AddItem "Jusqu'=E0 : un million"
Cbx_chiffres.List(5, 1) =3D 10 ^ 6
Cbx_chiffres.AddItem "Jusqu'=E0 : cent millions"
Cbx_chiffres.List(6, 1) =3D 10 ^ 8
Cbx_chiffres.AddItem "Jusqu'=E0 : un milliard"
Cbx_chiffres.List(7, 1) =3D 10 ^ 9
Cbx_chiffres.AddItem "Jusqu'=E0 : cent milliards"
Cbx_chiffres.List(8, 1) =3D 10 ^ 11
Cbx_chiffres.Text =3D Cbx_chiffres.List(2)
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour Michel,

Private Sub Cbx_chiffres_Change()
Select Case Cbx_chiffres.Value
Case 10
frm_table.Txt_chiffres.Width = 96
frm_table.Txt_chiffres.Left = 210
Case 50
frm_table.Txt_chiffres.Width = 106
frm_table.Txt_chiffres.Left = 220
'etc..
End Select
End Sub

isabelle


Bonjour,
j'ai dans un combobox des éléments que je souhaite
récupérer afin de faire une proc du genre :

If Cbx_chiffres.List(0, 1) = 10 Then
frm_table.Txt_chiffres.Width = 96
frm_table.Txt_chiffres.Left = 210
End If

Le pb est que je n'arrive pas à récupérer la valeur afin
de lancer la proc.
Je souhaite pouvoir dire : si la valeur de cbx_chiffres
est égale à 10 alors...

Merci pour votre aide.
Michel

Cbx_chiffres.ColumnCount = 2
Cbx_chiffres.ColumnWidths = ";0"

Cbx_chiffres.AddItem "Jusqu'à : dix"
Cbx_chiffres.List(0, 1) = 10
Cbx_chiffres.AddItem "Jusqu'à : cinquante"
Cbx_chiffres.List(1, 1) = 50
Cbx_chiffres.AddItem "Jusqu'à : cent"
Cbx_chiffres.List(2, 1) = 100
Cbx_chiffres.AddItem "Jusqu'à : mille"
Cbx_chiffres.List(3, 1) = 1000
Cbx_chiffres.AddItem "Jusqu'à : dix milles"
Cbx_chiffres.List(4, 1) = 10000
Cbx_chiffres.AddItem "Jusqu'à : un million"
Cbx_chiffres.List(5, 1) = 10 ^ 6
Cbx_chiffres.AddItem "Jusqu'à : cent millions"
Cbx_chiffres.List(6, 1) = 10 ^ 8
Cbx_chiffres.AddItem "Jusqu'à : un milliard"
Cbx_chiffres.List(7, 1) = 10 ^ 9
Cbx_chiffres.AddItem "Jusqu'à : cent milliards"
Cbx_chiffres.List(8, 1) = 10 ^ 11
Cbx_chiffres.Text = Cbx_chiffres.List(2)