Evenement double click et récuperation de données
Bonjour !
M'étant trompé de forum sur mon post d'avant, je le re-poste ici, qui me semble être le bon ...
Donc,
Ce dont j'ai besoin, c'est que dans mon 1er userform que j'ai nommé "Stock" j'ai une listbox. sur cette listbox qui est "lstinterventions", j'ai un evenement Dblclick lorsque que double click sur une ligne, qui ouvre un autre userform nommé "ClickInter", qui de la fonctionne correctement.
Code:
1
2
3
| Private Sub lstinterventions_Dblclick(ByVal Cancel As MSForms.ReturnBoolean)
Clickinter.Show vbModeless
End Sub |
Mais ensuite, j'aimerai que lorsque que ce Userform s'ouvre, qu'il récupère mes données de la ligne double clické ... Textbox1 pour la colonne 1, textbox2 pour la colonne 2, textbox3 pour la colonne 4, textbox4 pour la colonne 5, textbox5 pour la colonne 6, et textbox6 pour la colonne 11.
J'ai essayer de faire un bout de code, en vain ... le voici :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Option explicit
Dim bNouveau As Boolean
Dim L as Integer
Private Sub Userform_activate()
bNouveau = False
L = Stock.lstinterventions.Column(11)
With ThisWorkbook.Worksheets("Stock Maintenance")
Clickinter.TextBox1 = .Cells(L, 1)
Clickinter.TextBox2 = .Cells(L, 2)
Clickinter.TextBox3 = .Cells(L, 4)
Clickinter.TextBox4 = .Cells(L, 5)
Clickinter.TextBox5 = .Cells(L, 6)
Clickinter.TextBox6 = .Cells(L, 11)
End With
End Sub |
Merci d'avance,
Valentin .
