A voir également:
- Récupérer valeur listbox vba
- Récupérer valeur sélectionnée listbox vba - Meilleures réponses
- Recuperer valeur listbox - Meilleures réponses
- Récupérer des valeurs d'une listBox sous excel ✓ - Forum - Visual Basic
- Récupérer valeur Listbox ✓ - Forum - VB.NET
- Comment recuperé une valeur choisie dans une listbox - Forum - Visual Basic
- Recupere la valeur d'une combobox - Forum - Visual Basic
- Récupérer valeur combobox vba ✓ - Forum - Visual Basic
4 réponses
jpleroisse
- Messages postés
- 1788
- Date d'inscription
- mardi 7 novembre 2000
- Statut
- Membre
- Dernière intervention
- 11 mars 2006
Bonsoir,
Tu places deux ListBox et un CommandButton sur ta Form.
Private Sub Form_Load()
' Déclare la variable.
Dim I
' Remplit la zone de liste à l'aide des noms des
' polices d'écran.
For I = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(I)
Next I
End Sub
Private Sub Command1_Click()
' Déclare la variable.
Dim I
' Efface tous les éléments contenus dans la liste.
List2.Clear
' Si un élément est sélectionné, l'ajoute à List2.
For I = 0 To List1.ListCount - 1
If List1.Selected(I) Then
List2.AddItem List1.List(I)
End If
Next I
End Sub
jpleroisse
Tu places deux ListBox et un CommandButton sur ta Form.
Private Sub Form_Load()
' Déclare la variable.
Dim I
' Remplit la zone de liste à l'aide des noms des
' polices d'écran.
For I = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(I)
Next I
End Sub
Private Sub Command1_Click()
' Déclare la variable.
Dim I
' Efface tous les éléments contenus dans la liste.
List2.Clear
' Si un élément est sélectionné, l'ajoute à List2.
For I = 0 To List1.ListCount - 1
If List1.Selected(I) Then
List2.AddItem List1.List(I)
End If
Next I
End Sub
jpleroisse
Charles Racaud
- Messages postés
- 3172
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
Bonjour,
Il faut boucler sur tous les éléments et regarder si il est sélectionné.
ChRB
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
Il faut boucler sur tous les éléments et regarder si il est sélectionné.
ChRB
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
oui j'ai fait cette condition.
Je vien de trouver la propriété adéquate c'est list(entier)
listbox.list(3) renvoi le 3eme element de la listbox. Par contre avec
listbox.text ca renvoi le dernier element selectionné meme si tu en as
2-3-4.. selectionné.
Voila Merci à vous de votre reponse
Je vien de trouver la propriété adéquate c'est list(entier)
listbox.list(3) renvoi le 3eme element de la listbox. Par contre avec
listbox.text ca renvoi le dernier element selectionné meme si tu en as
2-3-4.. selectionné.
Voila Merci à vous de votre reponse
Salut,
Petite précision
La propriété List est un tableau donc tu peux l'utiliser en tant que tel
Teste ce bout de code pour t'en rendre compte
Il te faut une zone de liste et un bouton sur ta feuille
Private Sub CommandButton1_Click()
Dim i As Integer: Dim Tvar
For i = 1 To 10
ListBox1.AddItem "liste :" & i
Next
MsgBox "la liste est chargée"
Tvar = ListBox1.List
MsgBox "le tableau est chargé"
[C1:C10] = Tvar
End Sub
Cordialement, Jean-Paul
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé
Petite précision
La propriété List est un tableau donc tu peux l'utiliser en tant que tel
Teste ce bout de code pour t'en rendre compte
Il te faut une zone de liste et un bouton sur ta feuille
Private Sub CommandButton1_Click()
Dim i As Integer: Dim Tvar
For i = 1 To 10
ListBox1.AddItem "liste :" & i
Next
MsgBox "la liste est chargée"
Tvar = ListBox1.List
MsgBox "le tableau est chargé"
[C1:C10] = Tvar
End Sub
Cordialement, Jean-Paul
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé