Copier des données d'une ListeBox VBA

Bonjour,

J'ai une listeBox dans une feuille qui prend des données.

Je ne passe pas par un USERFORM.

Mais je ne peut copier les données.

Mon fichier est protégé contre la sauvegarde.

Voici le code qui rempli la listeBox

Sub TextBox2_Change()
 Dim Search As Range, Ligne As Byte
  ListBox6.Clear:
  If TextBox2 = "" Then Exit Sub
  With Worksheets("Caisse-Borne")
    For Ligne = 2 To 210
      'If .Cells(Ligne, 9) Like TextBox1 & "*" Then
      If .Cells(Ligne, 9) Like TextBox2 Then
        ListBox6.AddItem .Cells(Ligne, 8)
       'ListBox6.List(ListBox6.ListCount - 1, 1) = Ligne
        OffAction = False
      End If
    Next Ligne
  End With
End Sub

Le code pour copier

Public Function fSendTextToClipboard(strToSend As String) As Boolean   ' APPEL DE LA FONCTION PRESSE PAPIER
    Dim dObj As Object
    Set dObj = New DataObject
    With dObj
        .SetText strToSend
        .PutInClipboard
    End With
    Set dObj = Nothing
End Function

' Le bouton Copier
Sub CommandButton2_Click()
fSendTextToClipboard (ListBox6.Text)
End Sub

J 'ai lu les autres demandes, mais je suis un peu perdu.

Merci

Bonjour,

quel est le souci ?

La fonction est elle copiée dans un module standard ?

A+

Bonjour AlgoPlus ,

Quand je clique sur bouton, aucune donnée n'est enregistrée, mais si je fais un clique droit dans un autre fichier , la fonction coller apparait mais ne colle rien.

Je viens de copier la fonction dans le module1 du classeur.

voici le fichier.

Merci

avant de cliquer sur le bouton, est ce qu'une donnée est sélectionnée dans la listbox?

Il faut donc cliquer sur la listbox puis cliquer sur le bouton pour copier

il serait peut être intéressant de déplacer le code du bouton dans l'évènement clic de la listbox:

Une seule action.

J'ai réussi à le faire fonctionner, mais désormais au collage j'obtiens : ￿￿ ???

A+

Bonjour AlgoPlus ,

Effectivement en sélectionnant la listeBox cela copie , et j'obtiens bien les bonnes données.

Je vais essayer en mettant le code du bouton dans le code de la listeBox .

Merci beaucoup

Bonjour,

Franchement je sais pas comment faire pour mettre le code de la listeBox et changer le code du bouton.

Merci.

en faisant double click sur le bouton on arrive dans la feuille de code avec le code du bouton:

Sub CommandButton2_Click()
fSendTextToClipboard (ListBox6.Text)
End Sub

en faisant double click sur la listbox on arrive dans la feuille de code avec le code de la listbox:

Private Sub ListBox6_Click()

End Sub

Déplacer la ligne fSendTextToClipboard (ListBox6.Text) du code du bouton vers le code de la listbox.

Le bouton ne servira plus à rien

Bonjour AlgoPlus ,

C'est super.

Merci beaucoup.