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 élément d'une listbox

Récup élément d'une listbox

8 réponses
Avatar
Michel MTO
Bonjour à toutes et à tous,

Quelle instruction dois je utiliser pour inviter l'utilisateur à faire un
choix dans une liste de valeur, puis récupérer ce choix dans une variable.

Merci pour votre aide

Michel MTO
Signaler un problème avec ce contenu

8 réponses

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
MichDenis
Bonjour Michel,

Tu dois boucler sur chacun des items du listbox.
le code ressemble à ceci :

With Me.ListBox1
For A = 0 To .ListCount
If .Selected(.ListIndex) = True Then
MsgBox .List(.ListIndex)
Exit Sub
End If
Next
End With




"Michel MTO" a écrit dans le message de groupe de discussion :
4a2ceafe$0$292$
Bonjour à toutes et à tous,

Quelle instruction dois je utiliser pour inviter l'utilisateur à faire un
choix dans une liste de valeur, puis récupérer ce choix dans une variable.

Merci pour votre aide

Michel MTO
Avatar
MichDenis
Attention, tu dois remplacer dans la procédure "Exit Sub"
par "exit for" si la procédure continue après la récupération
de la sélection de l'usager dans une variable.




"MichDenis" a écrit dans le message de groupe de discussion :
#
Bonjour Michel,

Tu dois boucler sur chacun des items du listbox.
le code ressemble à ceci :

With Me.ListBox1
For A = 0 To .ListCount
If .Selected(.ListIndex) = True Then
MsgBox .List(.ListIndex)
Exit Sub
End If
Next
End With




"Michel MTO" a écrit dans le message de groupe de discussion :
4a2ceafe$0$292$
Bonjour à toutes et à tous,

Quelle instruction dois je utiliser pour inviter l'utilisateur à faire un
choix dans une liste de valeur, puis récupérer ce choix dans une variable.

Merci pour votre aide

Michel MTO
Avatar
Michel MTO
Ok Merci, je vais essayer,
Mais je ne comprend pas
Le Me dans with Me.ListBox1

Michel MTO

"MichDenis" a écrit dans le message de
news:OjUJV$
Attention, tu dois remplacer dans la procédure "Exit Sub"
par "exit for" si la procédure continue après la récupération
de la sélection de l'usager dans une variable.




"MichDenis" a écrit dans le message de groupe de


discussion :
#
Bonjour Michel,

Tu dois boucler sur chacun des items du listbox.
le code ressemble à ceci :

With Me.ListBox1
For A = 0 To .ListCount
If .Selected(.ListIndex) = True Then
MsgBox .List(.ListIndex)
Exit Sub
End If
Next
End With




"Michel MTO" a écrit dans le message de groupe


de discussion :
4a2ceafe$0$292$
Bonjour à toutes et à tous,

Quelle instruction dois je utiliser pour inviter l'utilisateur à faire un
choix dans une liste de valeur, puis récupérer ce choix dans une variable.

Merci pour votre aide

Michel MTO



Avatar
Daniel.C
Bonsoir.
Ta listbox étant censée se trouver dans une userform, "me" remplace le
nom de cette dernière.
Cordialement.
Daniel

Ok Merci, je vais essayer,
Mais je ne comprend pas
Le Me dans with Me.ListBox1

Michel MTO

"MichDenis" a écrit dans le message de
news:OjUJV$
Attention, tu dois remplacer dans la procédure "Exit Sub"
par "exit for" si la procédure continue après la récupération
de la sélection de l'usager dans une variable.




"MichDenis" a écrit dans le message de groupe de
discussion : #
Bonjour Michel,

Tu dois boucler sur chacun des items du listbox.
le code ressemble à ceci :

With Me.ListBox1
For A = 0 To .ListCount
If .Selected(.ListIndex) = True Then
MsgBox .List(.ListIndex)
Exit Sub
End If
Next
End With




"Michel MTO" a écrit dans le message de groupe de
discussion : 4a2ceafe$0$292$
Bonjour à toutes et à tous,

Quelle instruction dois je utiliser pour inviter l'utilisateur à faire un
choix dans une liste de valeur, puis récupérer ce choix dans une variable.

Merci pour votre aide

Michel MTO




Avatar
Daniel.C
PS. Si tu ne dois récupérer qu'une seule valeur, tu peu mettre dans le
code de ton userform :

Private Sub ListBox1_Click()
Variable = Me.ListBox1.Value
End Sub

Daniel

Bonsoir.
Ta listbox étant censée se trouver dans une userform, "me" remplace le nom de
cette dernière.
Cordialement.
Daniel

Ok Merci, je vais essayer,
Mais je ne comprend pas
Le Me dans with Me.ListBox1

Michel MTO

"MichDenis" a écrit dans le message de
news:OjUJV$
Attention, tu dois remplacer dans la procédure "Exit Sub"
par "exit for" si la procédure continue après la récupération
de la sélection de l'usager dans une variable.




"MichDenis" a écrit dans le message de groupe de
discussion : #
Bonjour Michel,

Tu dois boucler sur chacun des items du listbox.
le code ressemble à ceci :

With Me.ListBox1
For A = 0 To .ListCount
If .Selected(.ListIndex) = True Then
MsgBox .List(.ListIndex)
Exit Sub
End If
Next
End With




"Michel MTO" a écrit dans le message de groupe
de discussion : 4a2ceafe$0$292$
Bonjour à toutes et à tous,

Quelle instruction dois je utiliser pour inviter l'utilisateur à faire un
choix dans une liste de valeur, puis récupérer ce choix dans une variable.

Merci pour votre aide

Michel MTO






Avatar
Michel MTO
J'ai intégrer le code dans ma procèdure et voilà l'erreur qui est affichée
(j'ai utilisé exit for puisque ma procèdure continue):

Erreur d'exécution = '-2147024809 (80070057) : Impossible de lire la
propriété Selected. Argument non valide.
sur cette instruction
If .Selected(.ListIndex) = True Then

j'ai remplacer
If .Selected(.ListIndex) = True Then
MsgBox .List(.ListIndex)
par
If .Selected(A) = True Then
MsgBox .List(A)

Là aucune erreur n'est retournée, par contre je ne comprends pas, à quel
moment l'utilisateur clic et la variable est stockée, pour pouvoir être
utilsée plus loin dans la procédure

Michel MTO


"MichDenis" a écrit dans le message de
news:OjUJV$
Attention, tu dois remplacer dans la procédure "Exit Sub"
par "exit for" si la procédure continue après la récupération
de la sélection de l'usager dans une variable.




"MichDenis" a écrit dans le message de groupe de


discussion :
#
Bonjour Michel,

Tu dois boucler sur chacun des items du listbox.
le code ressemble à ceci :

With Me.ListBox1
For A = 0 To .ListCount
If .Selected(.ListIndex) = True Then
MsgBox .List(.ListIndex)
Exit Sub
End If
Next
End With




"Michel MTO" a écrit dans le message de groupe


de discussion :
4a2ceafe$0$292$
Bonjour à toutes et à tous,

Quelle instruction dois je utiliser pour inviter l'utilisateur à faire un
choix dans une liste de valeur, puis récupérer ce choix dans une variable.

Merci pour votre aide

Michel MTO



Avatar
MichDenis
Voici un fichier exemple sur le sujet :

http://cjoint.com/?gjmANxCg1g



"Michel MTO" a écrit dans le message de groupe de discussion :
4a2e0b2c$0$291$
J'ai intégrer le code dans ma procèdure et voilà l'erreur qui est affichée
(j'ai utilisé exit for puisque ma procèdure continue):

Erreur d'exécution = '-2147024809 (80070057) : Impossible de lire la
propriété Selected. Argument non valide.
sur cette instruction
If .Selected(.ListIndex) = True Then

j'ai remplacer
If .Selected(.ListIndex) = True Then
MsgBox .List(.ListIndex)
par
If .Selected(A) = True Then
MsgBox .List(A)

Là aucune erreur n'est retournée, par contre je ne comprends pas, à quel
moment l'utilisateur clic et la variable est stockée, pour pouvoir être
utilsée plus loin dans la procédure

Michel MTO


"MichDenis" a écrit dans le message de
news:OjUJV$
Attention, tu dois remplacer dans la procédure "Exit Sub"
par "exit for" si la procédure continue après la récupération
de la sélection de l'usager dans une variable.




"MichDenis" a écrit dans le message de groupe de


discussion :
#
Bonjour Michel,

Tu dois boucler sur chacun des items du listbox.
le code ressemble à ceci :

With Me.ListBox1
For A = 0 To .ListCount
If .Selected(.ListIndex) = True Then
MsgBox .List(.ListIndex)
Exit Sub
End If
Next
End With




"Michel MTO" a écrit dans le message de groupe


de discussion :
4a2ceafe$0$292$
Bonjour à toutes et à tous,

Quelle instruction dois je utiliser pour inviter l'utilisateur à faire un
choix dans une liste de valeur, puis récupérer ce choix dans une variable.

Merci pour votre aide

Michel MTO



Avatar
Michel MTO
MichDenis,
Merci beaucoup, cà fonctionne à merveille

Michel MTO

"MichDenis" a écrit dans le message de
news:
Voici un fichier exemple sur le sujet :

http://cjoint.com/?gjmANxCg1g



"Michel MTO" a écrit dans le message de groupe


de discussion :
4a2e0b2c$0$291$
J'ai intégrer le code dans ma procèdure et voilà l'erreur qui est affichée
(j'ai utilisé exit for puisque ma procèdure continue):

Erreur d'exécution = '-2147024809 (80070057) : Impossible de lire la
propriété Selected. Argument non valide.
sur cette instruction
If .Selected(.ListIndex) = True Then

j'ai remplacer
If .Selected(.ListIndex) = True Then
MsgBox .List(.ListIndex)
par
If .Selected(A) = True Then
MsgBox .List(A)

Là aucune erreur n'est retournée, par contre je ne comprends pas, à quel
moment l'utilisateur clic et la variable est stockée, pour pouvoir être
utilsée plus loin dans la procédure

Michel MTO


"MichDenis" a écrit dans le message de
news:OjUJV$
> Attention, tu dois remplacer dans la procédure "Exit Sub"
> par "exit for" si la procédure continue après la récupération
> de la sélection de l'usager dans une variable.
>
>
>
>
> "MichDenis" a écrit dans le message de groupe de
discussion :
> #
> Bonjour Michel,
>
> Tu dois boucler sur chacun des items du listbox.
> le code ressemble à ceci :
>
> With Me.ListBox1
> For A = 0 To .ListCount
> If .Selected(.ListIndex) = True Then
> MsgBox .List(.ListIndex)
> Exit Sub
> End If
> Next
> End With
>
>
>
>
> "Michel MTO" a écrit dans le message de groupe
de discussion :
> 4a2ceafe$0$292$
> Bonjour à toutes et à tous,
>
> Quelle instruction dois je utiliser pour inviter l'utilisateur à faire


un
> choix dans une liste de valeur, puis récupérer ce choix dans une


variable.
>
> Merci pour votre aide
>
> Michel MTO
>