BonjourBonjour tout le monde,
Quelqu'un serait-il comment faire pour pouvoir copier coller le texte d'une listbox (formulaire) vers une cellule excel?
Merci d'avance
Philippe
Private Sub lot_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim NumCopie As String
' Nécessite la Référence à la Bibliothèque MicroSoft Forms 2.0 Object Library
If KeyAscii = 3 Then
NumCopie = lot.List(lot.ListIndex)
With New DataObject
.SetText NumCopie
.PutInClipboard
End With
End If
End Sub