Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Selection dans listbox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion stepsbysteps
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

stepsbysteps

Guest
Bonjour,

J'aimerai savoir dans une listbox comment savoir avec la souris sur quel élèment il a été cliqué.
Code: 
Private Sub UserForm_Initialize()
    Dim i As Byte, j As Byte
    
    'Définit le nombre de colonnes dans la ListBox
    ListBox1.ColumnCount = 7
    
    '---
    'Définit la largeur des colonnes d'une ListBox:
    'Par défaut, la largeur des colonnes est de 72 points
    '(72 points = 1 pouce)
    ListBox1.ColumnWidths = "50;80;50;60;50;70;50"
        '---
        'Il est aussi possible de définir la dimension des colonnes en centimètres
        'ListBox1.ColumnWidths = "2 cm; 1,5 cm ......"
        '---
    '---
    
    For i = 1 To 20
        'Ajoute une ligne et insère une donnée dans la colonne de gauche
        ListBox1.AddItem "Ligne" & i
        
        'Ajoute des données dans les colonnes de droite
        For j = 1 To 7
        ListBox1.List(ListBox1.ListCount - 1, j) = i & j
        Next j
        
    Next i
End Sub

Par exemple si l'utilisateur clique sur Ligne 3, je veux récupérer ligne 3 comme argument pour une autre fonction
Merci d'avance
 

Pièces jointes

Trier par date Trier par votes
Re : Selection dans listbox

Bonjour Stepsbysteps,
Pour trouver la ligne sélectionnée dans une listBox, tu peux utiliser la propriété : ListBox1.ListIndex.
Pour renvoyer ensuite ligne1 si la ligne 1 est renvoyée, (C'est à dire la valeur: "ligne sélectionnée" & "1er colonne" ) tu places:
ListBox1.List(ListBox1.ListIndex, 0) dans l'évènement Click de ta ListBox
Voir P.J
Bonne journée !
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Selection dans listbox

Bonjour le fil, bonjour le forum,

Une petite précision para rapport à la réponse de Vdavid...
La liste indéxée des données d'une Listbox va 0 à (nombre de données -1). Donc une listbox de 10 éléments ira de 0 à 9. Si tu veux récupérer la numéro de ligne d'un élément sélectionné, il te faut utiliser la propriété ListIndex + (numéro de la première ligne de ton tableau).
En effet, si ton tableau (sans aucune ligne vide au milieu) commence à la ligne 5 par exemple et que tu coches le 3ème élément de ce tableau (propiété ListIndex = 2), tu auras ligne = ListIndex + 5 (donc = 7).
En pièce jointe un petit exemple pour clarifier tout ça...
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Selection dans listbox

Bonjour, j'ai un problème que je ne comprends pas dans mes listbox, peut être un problème de taille ou quoi.
je vous laisse regarder

C'est assez bizarre

Merci
Code: 
    UserForm1.ListBox1.ColumnCount = 12
    UserForm1.ListBox1.ColumnWidths = "70;120;70;100;70;70;70;70;70;70;70;70"
    
    UserForm1.ListBox1.AddItem "SIREN"
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 1) = "A"
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 2) = "B"
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 3) = "C"
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 4) = "D"
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 5) = "E"
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 6) = "F"
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 7) = "G"
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 8) = "H"
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 9) = "I"
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 10) = "J"
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 11) = "K"

Le code beugue pour
Code: 
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 10) = "J"
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 11) = "K
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

F
  • Question Question
Autres Listbox-transfère la recherche dans une ListBox vers une feuille de calcul
2
Réponses
18
Affichages
378
dysorthographie
N
  • Question Question
Listbox click
Réponses
10
Affichages
630
ChTi160
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
627
lynyrd
B
  • Question Question
Autres Problème d'adaptation du contenu d'une listbox
Réponses
7
Affichages
528
jurassic pork
J
  • Résolu(e)
XL 2019 Interdire les doublons dans ListBox
Réponses
3
Affichages
232
JLR67
J
J
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
496
TooFatBoy
J
  • Question Question
Microsoft 365 Userform comboboxes indexés
Réponses
8
Affichages
355
jp26200
J
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
1 K
Mody200
M
M
  • Question Question
XL 2010 Remise et ajout de quantité
Réponses
10
Affichages
972
Dranreb
S
  • Résolu(e)
XL 2016 problème de filtre dans listbox
2 3 4
Réponses
51
Affichages
4 K
saidoush
S
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
830
TooFatBoy
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
769
KRUG WOO
K
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
702
Piment
P
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
4 K
Usine à gaz
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
688
kiki29
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
451
Electron24
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
  • Résolu(e)
Microsoft 365 Problème de formatage de dates au format EUR
Réponses
2
Affichages
395
R1-
B
  • Question Question
Microsoft 365 Macro pour création fichier csv
Réponses
8
Affichages
743
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…