Bonjour,
J'ai un userform simple avec une listebox.
Je souhaite que lorsque je double-clique sur un élément de la listebox cela
m'envoie l'élément de la liste dans la cellule B1
Merci
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
Rai
Paul wrote:
Bonjour, J'ai un userform simple avec une listebox. Je souhaite que lorsque je double-clique sur un élément de la listebox cela m'envoie l'élément de la liste dans la cellule B1 Merci
Bonjour,
Avec un clic simple, cela peut se faire automatiquement. Il suffit de définir la proprité ControSource de ta userform = "B1" soit en passant par la fenêtre propriétés de ton Editeur, soit en inscrivant cela dans ton code : ListBox1.ControSource="B1"
Ensuite, si tu veux que ta Userform se ferme lors du double-clic (en ayant affecté le choix à la cellule B1), Insère le code suivant : Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) UserForm1.Hide End Sub
Bien entendu, veille renomme UserForm1 et ListBox1 dans le code en fonction des noms que tu leur as attribué.
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
Paul wrote:
Bonjour,
J'ai un userform simple avec une listebox.
Je souhaite que lorsque je double-clique sur un élément de la
listebox cela m'envoie l'élément de la liste dans la cellule B1
Merci
Bonjour,
Avec un clic simple, cela peut se faire automatiquement.
Il suffit de définir la proprité ControSource de ta userform = "B1"
soit en passant par la fenêtre propriétés de ton Editeur,
soit en inscrivant cela dans ton code : ListBox1.ControSource="B1"
Ensuite, si tu veux que ta Userform se ferme lors du double-clic (en ayant affecté le choix à la cellule B1),
Insère le code suivant :
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm1.Hide
End Sub
Bien entendu, veille renomme UserForm1 et ListBox1 dans le code en fonction des noms que tu leur as attribué.
--
Cordialement,
Rai
Remplacer point par la ponctuation appropriée pour répondre...
Bonjour, J'ai un userform simple avec une listebox. Je souhaite que lorsque je double-clique sur un élément de la listebox cela m'envoie l'élément de la liste dans la cellule B1 Merci
Bonjour,
Avec un clic simple, cela peut se faire automatiquement. Il suffit de définir la proprité ControSource de ta userform = "B1" soit en passant par la fenêtre propriétés de ton Editeur, soit en inscrivant cela dans ton code : ListBox1.ControSource="B1"
Ensuite, si tu veux que ta Userform se ferme lors du double-clic (en ayant affecté le choix à la cellule B1), Insère le code suivant : Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) UserForm1.Hide End Sub
Bien entendu, veille renomme UserForm1 et ListBox1 dans le code en fonction des noms que tu leur as attribué.
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
Pascal Engelmajer
Salut, avec la propriété MultiSelect à 0 B1 sur la feuille active sinon Sheets("bonneFeuille").[B1].Value au lieu de [B1] Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) [B1].Value = Me.ListBox1.Value End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel http://www.ilyapa.net/baseExcel "Paul" a écrit dans le message de news:
Bonjour, J'ai un userform simple avec une listebox. Je souhaite que lorsque je double-clique sur un élément de la listebox cela
m'envoie l'élément de la liste dans la cellule B1 Merci
Salut,
avec la propriété MultiSelect à 0
B1 sur la feuille active sinon Sheets("bonneFeuille").[B1].Value au lieu de
[B1]
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
[B1].Value = Me.ListBox1.Value
End Sub
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Paul" <Paul@Tatayou.fr> a écrit dans le message de news:
OJfKKt9PEHA.3220@TK2MSFTNGP09.phx.gbl...
Bonjour,
J'ai un userform simple avec une listebox.
Je souhaite que lorsque je double-clique sur un élément de la listebox
cela
m'envoie l'élément de la liste dans la cellule B1
Merci
Salut, avec la propriété MultiSelect à 0 B1 sur la feuille active sinon Sheets("bonneFeuille").[B1].Value au lieu de [B1] Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) [B1].Value = Me.ListBox1.Value End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel http://www.ilyapa.net/baseExcel "Paul" a écrit dans le message de news:
Bonjour, J'ai un userform simple avec une listebox. Je souhaite que lorsque je double-clique sur un élément de la listebox cela
m'envoie l'élément de la liste dans la cellule B1 Merci
Paul
Merci beaucoup Pascal Paul
"Pascal Engelmajer" a écrit dans le message de news:%
Salut, avec la propriété MultiSelect à 0 B1 sur la feuille active sinon Sheets("bonneFeuille").[B1].Value au lieu de
[B1] Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) [B1].Value = Me.ListBox1.Value End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel http://www.ilyapa.net/baseExcel "Paul" a écrit dans le message de news:
Bonjour, J'ai un userform simple avec une listebox. Je souhaite que lorsque je double-clique sur un élément de la listebox cela
m'envoie l'élément de la liste dans la cellule B1 Merci
Merci beaucoup Pascal
Paul
"Pascal Engelmajer" <pascal.engelmajer@ilyapa_spam.net> a écrit dans le
message de news:%23eheWz9PEHA.832@TK2MSFTNGP09.phx.gbl...
Salut,
avec la propriété MultiSelect à 0
B1 sur la feuille active sinon Sheets("bonneFeuille").[B1].Value au lieu
de
[B1]
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
[B1].Value = Me.ListBox1.Value
End Sub
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Paul" <Paul@Tatayou.fr> a écrit dans le message de news:
OJfKKt9PEHA.3220@TK2MSFTNGP09.phx.gbl...
Bonjour,
J'ai un userform simple avec une listebox.
Je souhaite que lorsque je double-clique sur un élément de la listebox
cela
m'envoie l'élément de la liste dans la cellule B1
Merci
"Pascal Engelmajer" a écrit dans le message de news:%
Salut, avec la propriété MultiSelect à 0 B1 sur la feuille active sinon Sheets("bonneFeuille").[B1].Value au lieu de
[B1] Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) [B1].Value = Me.ListBox1.Value End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel http://www.ilyapa.net/baseExcel "Paul" a écrit dans le message de news:
Bonjour, J'ai un userform simple avec une listebox. Je souhaite que lorsque je double-clique sur un élément de la listebox cela
m'envoie l'élément de la liste dans la cellule B1 Merci
Paul
Merci beaucoup Rai Paul
"Rai" a écrit dans le message de news:c8n5di$e5$ Paul wrote:
Bonjour, J'ai un userform simple avec une listebox. Je souhaite que lorsque je double-clique sur un élément de la listebox cela m'envoie l'élément de la liste dans la cellule B1 Merci
Bonjour,
Avec un clic simple, cela peut se faire automatiquement. Il suffit de définir la proprité ControSource de ta userform = "B1" soit en passant par la fenêtre propriétés de ton Editeur, soit en inscrivant cela dans ton code : ListBox1.ControSource="B1"
Ensuite, si tu veux que ta Userform se ferme lors du double-clic (en ayant affecté le choix à la cellule B1), Insère le code suivant : Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) UserForm1.Hide End Sub
Bien entendu, veille renomme UserForm1 et ListBox1 dans le code en fonction des noms que tu leur as attribué.
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
Merci beaucoup Rai
Paul
"Rai" <raimondpointschmidt@berlin.de> a écrit dans le message de
news:c8n5di$e5$1@news-reader4.wanadoo.fr...
Paul wrote:
Bonjour,
J'ai un userform simple avec une listebox.
Je souhaite que lorsque je double-clique sur un élément de la
listebox cela m'envoie l'élément de la liste dans la cellule B1
Merci
Bonjour,
Avec un clic simple, cela peut se faire automatiquement.
Il suffit de définir la proprité ControSource de ta userform = "B1"
soit en passant par la fenêtre propriétés de ton Editeur,
soit en inscrivant cela dans ton code : ListBox1.ControSource="B1"
Ensuite, si tu veux que ta Userform se ferme lors du double-clic (en ayant
affecté le choix à la cellule B1),
Insère le code suivant :
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm1.Hide
End Sub
Bien entendu, veille renomme UserForm1 et ListBox1 dans le code en fonction
des noms que tu leur as attribué.
--
Cordialement,
Rai
Remplacer point par la ponctuation appropriée pour répondre...
"Rai" a écrit dans le message de news:c8n5di$e5$ Paul wrote:
Bonjour, J'ai un userform simple avec une listebox. Je souhaite que lorsque je double-clique sur un élément de la listebox cela m'envoie l'élément de la liste dans la cellule B1 Merci
Bonjour,
Avec un clic simple, cela peut se faire automatiquement. Il suffit de définir la proprité ControSource de ta userform = "B1" soit en passant par la fenêtre propriétés de ton Editeur, soit en inscrivant cela dans ton code : ListBox1.ControSource="B1"
Ensuite, si tu veux que ta Userform se ferme lors du double-clic (en ayant affecté le choix à la cellule B1), Insère le code suivant : Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) UserForm1.Hide End Sub
Bien entendu, veille renomme UserForm1 et ListBox1 dans le code en fonction des noms que tu leur as attribué.
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
Paul
Petite dernière question. Comment faire si je veux envoyer le résulta de mon choix dans la cellule active, en l'occurrence à la place de B1 Paul
"Pascal Engelmajer" a écrit dans le message de news:%
Salut, avec la propriété MultiSelect à 0 B1 sur la feuille active sinon Sheets("bonneFeuille").[B1].Value au lieu de
[B1] Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) [B1].Value = Me.ListBox1.Value End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel http://www.ilyapa.net/baseExcel "Paul" a écrit dans le message de news:
Bonjour, J'ai un userform simple avec une listebox. Je souhaite que lorsque je double-clique sur un élément de la listebox cela
m'envoie l'élément de la liste dans la cellule B1 Merci
Petite dernière question.
Comment faire si je veux envoyer le résulta de mon choix dans la cellule
active, en l'occurrence à la place de B1
Paul
"Pascal Engelmajer" <pascal.engelmajer@ilyapa_spam.net> a écrit dans le
message de news:%23eheWz9PEHA.832@TK2MSFTNGP09.phx.gbl...
Salut,
avec la propriété MultiSelect à 0
B1 sur la feuille active sinon Sheets("bonneFeuille").[B1].Value au lieu
de
[B1]
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
[B1].Value = Me.ListBox1.Value
End Sub
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Paul" <Paul@Tatayou.fr> a écrit dans le message de news:
OJfKKt9PEHA.3220@TK2MSFTNGP09.phx.gbl...
Bonjour,
J'ai un userform simple avec une listebox.
Je souhaite que lorsque je double-clique sur un élément de la listebox
cela
m'envoie l'élément de la liste dans la cellule B1
Merci
Petite dernière question. Comment faire si je veux envoyer le résulta de mon choix dans la cellule active, en l'occurrence à la place de B1 Paul
"Pascal Engelmajer" a écrit dans le message de news:%
Salut, avec la propriété MultiSelect à 0 B1 sur la feuille active sinon Sheets("bonneFeuille").[B1].Value au lieu de
[B1] Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) [B1].Value = Me.ListBox1.Value End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel http://www.ilyapa.net/baseExcel "Paul" a écrit dans le message de news:
Bonjour, J'ai un userform simple avec une listebox. Je souhaite que lorsque je double-clique sur un élément de la listebox cela
m'envoie l'élément de la liste dans la cellule B1 Merci
Rai
Paul wrote:
Petite dernière question. Comment faire si je veux envoyer le résulta de mon choix dans la cellule active, en l'occurrence à la place de B1 Paul
Tu remplaces [B1].value=Me.ListBox1.Value par ActiveCell.Value=Me.ListBox1.Value
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
Paul wrote:
Petite dernière question.
Comment faire si je veux envoyer le résulta de mon choix dans la
cellule active, en l'occurrence à la place de B1
Paul
Tu remplaces
[B1].value=Me.ListBox1.Value
par
ActiveCell.Value=Me.ListBox1.Value
--
Cordialement,
Rai
Remplacer point par la ponctuation appropriée pour répondre...
