Discussion :

[67jero]

Bonjour à toutes et à tous,

Me revoilà, malheureusement (notamment pour vous) je ne suis toujours pas à l'aise avec les userforms et malgré mes recherches je patauge quelque peu, je me tourne donc vers vous pour mon petit souci, en fait j'ai un userform de consultation au départ et j'aurais souhaité par le rajout du bouton "SELECTION" pouvoir transposer les données affichées dans la listbox vers la feuille excel comme dans l'exemple joint.

D'avance merci de votre aide.

Et très bonne année à vous...

[67jero]

N'ayant plus de pièce jointe à ma discussion, je vais donc essayer d'être explicite à ce stade.

Donc nous allons faire ça à l'aveugle, j'ai un userform avec un menu déroulant contenant des noms lorsque je sélectionne un nom une ligne apparait dans une listbox avec des données correspondants au nom et des données contenues dans une feuille excel, j'aurais souhaité par un bouton pouvoir récupérer ces données en fonction du nom et les coller dans une autre feuille, merci pour votre aide...

[jp014]

Bonsoir

Ci joint la procédure. Attention il ne peut y avoir plus d'une ligne dans la listbox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton2_Click()
 
With Sheets("formulaire opérateur")
i = 0
.Cells(32, 2) = ListBox1.List(i, 0)
.Cells(32, 3) = ListBox1.List(i, 1)
.Cells(32, 4) = ListBox1.List(i, 2)
.Cells(32, 6) = ListBox1.List(i, 3)
.Cells(32, 8) = ListBox1.List(i, 4)
 
 
End With
Unload Me
End Sub

JP

[LeForestier]

Bonjour,
Colle le code que tu à dans la ListBox_Clic ou change qu'ont puissent un peu voir de quoi il s'agit.
A+

[jp014]

Bonsoir LeForestier

J'ai chargé le fichier avant la suppression.
La listbox ne sert qu'à afficher des données d'une ligne sélectionnée à l'aide d'un combobox.

Code pour remplir la listbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For x = 0 To n
If ComboBox1.ListIndex = x Then
  Me.ListBox1.ColumnCount = 7
  Me.ListBox1.RowSource = F2.Name & "!" & F2.Range("A" & x + 2 & ":G" & x + 2).Address
 End If
Next x

JP014

[67jero]

Excusez moi du retard, mais un grand merci à jp014, c'est exactement ce que je cherchais à faire, j'avais presque trouver d'ailleurs, n'est ce pas ? Donc un grand merci.

Pour LeForestier j'avais joint un fichier pour faliciter l'explication et la compréhension mais quelqu'un a préféré le supprimer.

Merci à tous et encore une excellente année à vous tous.