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
lSteph
Bonjour, en supposant, qu'il n'y a pas eu à trier ou filtrer pour l'alimentation de la liste ou simplement qu'elle est alimentée par RowSource exemple une list1 dont les valeurs se situent en A2:A10
Private Sub ListBox1_Change()
[D3] = Cells(ListBox1.ListIndex + 2, 2) End Sub
'lSteph
"Pierre.M" a écrit dans le message de news: 44f01f2a$0$27388$
Bonjour a tous,
j'aurais besoin d'un petit complement de reponse (Merci a ceux qui m'ont deja depanne...).
Sur une feuille j'ai des noms en colonne A et des prenoms en colonne B. La colonne A sert a remplir le listbox d'un userform.
En selectionnant un nom dans ce listbox, comment renvoyer le prenom correspondant dans une cellule?
Merci beaucoup pour vos conseils.
Pierre.M
Bonjour,
en supposant, qu'il n'y a pas eu à trier ou filtrer pour l'alimentation de
la liste
ou simplement qu'elle est alimentée par RowSource
exemple une list1 dont les valeurs se situent en A2:A10
Private Sub ListBox1_Change()
[D3] = Cells(ListBox1.ListIndex + 2, 2)
End Sub
'lSteph
"Pierre.M" <prenom.mulot@wanadoo.fr> a écrit dans le message de news:
44f01f2a$0$27388$ba4acef3@news.orange.fr...
Bonjour a tous,
j'aurais besoin d'un petit complement de reponse (Merci a ceux qui m'ont
deja depanne...).
Sur une feuille j'ai des noms en colonne A et des prenoms en colonne B. La
colonne A sert a remplir le listbox d'un userform.
En selectionnant un nom dans ce listbox, comment renvoyer le prenom
correspondant dans une cellule?
Bonjour, en supposant, qu'il n'y a pas eu à trier ou filtrer pour l'alimentation de la liste ou simplement qu'elle est alimentée par RowSource exemple une list1 dont les valeurs se situent en A2:A10
Private Sub ListBox1_Change()
[D3] = Cells(ListBox1.ListIndex + 2, 2) End Sub
'lSteph
"Pierre.M" a écrit dans le message de news: 44f01f2a$0$27388$
Bonjour a tous,
j'aurais besoin d'un petit complement de reponse (Merci a ceux qui m'ont deja depanne...).
Sur une feuille j'ai des noms en colonne A et des prenoms en colonne B. La colonne A sert a remplir le listbox d'un userform.
En selectionnant un nom dans ce listbox, comment renvoyer le prenom correspondant dans une cellule?
Merci beaucoup pour vos conseils.
Pierre.M
JB
Bonjour,
Si la ListBox nommé Choix a 2 colonnes (Nom, Prénom)
Private Sub UserForm_Initialize() Me.Choix.ColumnCount = 2 Me.Choix.ColumnWidths = "40,70" Me.Choix.RowSource = "A2:B" & [B65000].End(xlUp).Row End Sub
Column(n) permet de récupérer la neme colonne (la première colonne est 0)
Private Sub Choix_Change() [CelluleRecup]= Me.Choix.Column(1) End Sub
JB
Bonjour a tous,
j'aurais besoin d'un petit complement de reponse (Merci a ceux qui m'ont deja depanne...).
Sur une feuille j'ai des noms en colonne A et des prenoms en colonne B. La colonne A sert a remplir le listbox d'un userform.
En selectionnant un nom dans ce listbox, comment renvoyer le prenom correspondant dans une cellule?
Merci beaucoup pour vos conseils.
Pierre.M
Bonjour,
Si la ListBox nommé Choix a 2 colonnes (Nom, Prénom)
Private Sub UserForm_Initialize()
Me.Choix.ColumnCount = 2
Me.Choix.ColumnWidths = "40,70"
Me.Choix.RowSource = "A2:B" & [B65000].End(xlUp).Row
End Sub
Column(n) permet de récupérer la neme colonne (la première colonne
est 0)
Private Sub Choix_Change()
[CelluleRecup]= Me.Choix.Column(1)
End Sub
JB
Bonjour a tous,
j'aurais besoin d'un petit complement de reponse (Merci a ceux qui
m'ont deja depanne...).
Sur une feuille j'ai des noms en colonne A et des prenoms en colonne B.
La colonne A sert a remplir le listbox d'un userform.
En selectionnant un nom dans ce listbox, comment renvoyer le prenom
correspondant dans une cellule?
..autre possibilité (là peu importe si la liste est triée)
Private Sub ListBox1_Change() [d3] = [b2:b10].Cells(Application.WorksheetFunction _ .Match(ListBox1, _ Worksheets(1).Range("A2:A10"), 0)) End Sub
"Pierre.M" a écrit dans le message de news: 44f01f2a$0$27388$
Bonjour a tous,
j'aurais besoin d'un petit complement de reponse (Merci a ceux qui m'ont deja depanne...).
Sur une feuille j'ai des noms en colonne A et des prenoms en colonne B. La colonne A sert a remplir le listbox d'un userform.
En selectionnant un nom dans ce listbox, comment renvoyer le prenom correspondant dans une cellule?
Merci beaucoup pour vos conseils.
Pierre.M
Pierre.M
Merci beaucoup pour ton aide. Ma listbox n'a en fait qu'une seule colonne (noms) et n'est alimentee que par la colonne A. J'ai souvent du mal a etre suffisamment clair et comprehensible...
Pierre.M
On 2006-08-26 16:35:51 +0200, "JB" said:
Bonjour,
Si la ListBox nommé Choix a 2 colonnes (Nom, Prénom)
Private Sub UserForm_Initialize() Me.Choix.ColumnCount = 2 Me.Choix.ColumnWidths = "40,70" Me.Choix.RowSource = "A2:B" & [B65000].End(xlUp).Row End Sub
Column(n) permet de récupérer la neme colonne (la première colonne est 0)
Private Sub Choix_Change() [CelluleRecup]= Me.Choix.Column(1) End Sub
JB
Bonjour a tous,
j'aurais besoin d'un petit complement de reponse (Merci a ceux qui m'ont deja depanne...).
Sur une feuille j'ai des noms en colonne A et des prenoms en colonne B. La colonne A sert a remplir le listbox d'un userform.
En selectionnant un nom dans ce listbox, comment renvoyer le prenom correspondant dans une cellule?
Merci beaucoup pour vos conseils.
Pierre.M
Merci beaucoup pour ton aide. Ma listbox n'a en fait qu'une seule
colonne (noms) et n'est alimentee que par la colonne A. J'ai souvent du
mal a etre suffisamment clair et comprehensible...
Pierre.M
On 2006-08-26 16:35:51 +0200, "JB" <boisgontier@hotmail.com> said:
Bonjour,
Si la ListBox nommé Choix a 2 colonnes (Nom, Prénom)
Private Sub UserForm_Initialize()
Me.Choix.ColumnCount = 2
Me.Choix.ColumnWidths = "40,70"
Me.Choix.RowSource = "A2:B" & [B65000].End(xlUp).Row
End Sub
Column(n) permet de récupérer la neme colonne (la première colonne
est 0)
Private Sub Choix_Change()
[CelluleRecup]= Me.Choix.Column(1)
End Sub
JB
Bonjour a tous,
j'aurais besoin d'un petit complement de reponse (Merci a ceux qui
m'ont deja depanne...).
Sur une feuille j'ai des noms en colonne A et des prenoms en colonne B.
La colonne A sert a remplir le listbox d'un userform.
En selectionnant un nom dans ce listbox, comment renvoyer le prenom
correspondant dans une cellule?
Merci beaucoup pour ton aide. Ma listbox n'a en fait qu'une seule colonne (noms) et n'est alimentee que par la colonne A. J'ai souvent du mal a etre suffisamment clair et comprehensible...
Pierre.M
On 2006-08-26 16:35:51 +0200, "JB" said:
Bonjour,
Si la ListBox nommé Choix a 2 colonnes (Nom, Prénom)
Private Sub UserForm_Initialize() Me.Choix.ColumnCount = 2 Me.Choix.ColumnWidths = "40,70" Me.Choix.RowSource = "A2:B" & [B65000].End(xlUp).Row End Sub
Column(n) permet de récupérer la neme colonne (la première colonne est 0)
Private Sub Choix_Change() [CelluleRecup]= Me.Choix.Column(1) End Sub
JB
Bonjour a tous,
j'aurais besoin d'un petit complement de reponse (Merci a ceux qui m'ont deja depanne...).
Sur une feuille j'ai des noms en colonne A et des prenoms en colonne B. La colonne A sert a remplir le listbox d'un userform.
En selectionnant un nom dans ce listbox, comment renvoyer le prenom correspondant dans une cellule?
Merci beaucoup pour vos conseils.
Pierre.M
Pierre.M
Merci a toi aussi iSteph. Je vais tester ca ce WE.
Pierre.M
On 2006-08-26 16:55:11 +0200, "lSteph" said:
..autre possibilité (là peu importe si la liste est triée)
Private Sub ListBox1_Change() [d3] = [b2:b10].Cells(Application.WorksheetFunction _ .Match(ListBox1, _ Worksheets(1).Range("A2:A10"), 0)) End Sub
"Pierre.M" a écrit dans le message de news: 44f01f2a$0$27388$
Bonjour a tous,
j'aurais besoin d'un petit complement de reponse (Merci a ceux qui m'ont deja depanne...).
Sur une feuille j'ai des noms en colonne A et des prenoms en colonne B. La colonne A sert a remplir le listbox d'un userform.
En selectionnant un nom dans ce listbox, comment renvoyer le prenom correspondant dans une cellule?
Merci beaucoup pour vos conseils.
Pierre.M
Merci a toi aussi iSteph. Je vais tester ca ce WE.
Pierre.M
On 2006-08-26 16:55:11 +0200, "lSteph" <lecocosteph@frite.fr> said:
..autre possibilité (là peu importe si la liste est triée)
Private Sub ListBox1_Change()
[d3] = [b2:b10].Cells(Application.WorksheetFunction _
.Match(ListBox1, _
Worksheets(1).Range("A2:A10"), 0))
End Sub
"Pierre.M" <prenom.mulot@wanadoo.fr> a écrit dans le message de news:
44f01f2a$0$27388$ba4acef3@news.orange.fr...
Bonjour a tous,
j'aurais besoin d'un petit complement de reponse (Merci a ceux qui
m'ont deja depanne...).
Sur une feuille j'ai des noms en colonne A et des prenoms en colonne B.
La colonne A sert a remplir le listbox d'un userform.
En selectionnant un nom dans ce listbox, comment renvoyer le prenom
correspondant dans une cellule?
