Userform et sélection

Version imprimable

15/01/2010, 15h41
67jero

Userform et sélection

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...
15/01/2010, 16h48
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...

Bonsoir

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

Code:

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

15/01/2010, 19h21
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+
15/01/2010, 19h40
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:

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
15/01/2010, 20h57
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.

Beh tant mieux si tu a trouver ton bonheur :P
Mais y a quand même...

Code:

1
2
3
4
5
6
7
8
Private Sub CommandButton2_Click()
Dim i As Integer
    With Sheets("formulaire opérateur")
        For i = 0 To 4
            .Cells(32, i + 2) = ListBox1.List(i, 0)
        Next i
    End With
End Sub

A+

15/01/2010, 22h17
67jero

Merci beaucoup LeForestier pour ton intérêt, je garde tout de même ta solution cela, je pense, pourra servir pour un userform à venir....