Bonjour le forum
J'ai trouvé le code de Jacques (que je salue et remercie au passage) " FormIntuitive" très intéressant et j'ai voulu l'adapter à mon fichier mais ...
Sur le fichier joint dans la feuille "Result" un double clic sur une cellule comprise dans la colonne B entre b15 et B52 déclenche l'USF de Jacques
J'aurais aimé qu'en double cliquant sur la ligne de la ListBox1 ou qu'en cliquant sur le CommandButton la ligne sélectionnée vienne s'inscrire sur la feuille "Result" à partir de la cellule active (c'est à dire sur la cellule où on a fait le double clic pour lancer l'USF )
Malheureusement je n'y suis pas arrivé.
Pourriez-vous m'aider
bonjour Tactic
à essayer
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim L As Long, Li As Long
L = ActiveCell.Row
Li = Me.ListBox1.ListIndex
Cells(L, 2) = Me.ListBox1.List(Li, 0)
Cells(L, 3) = Me.ListBox1.List(Li, 1)
Cells(L, 9) = Me.ListBox1.List(Li, 2)
Cells(L, 11) = Me.ListBox1.List(Li, 3)
End Sub
à bientôt