COPIER COLLER une ListBox

[Alexy]

Bonjour la communauté

j'aurais besoin de votre aide pour mettre en place un moyen de copier la référence d'une listeBox trouver grâce a ma barre de recherche et ainsi la coller sur d'autre plateforme ( Word , internet,....)


je vous laisse le document pour que vous voyez mon point de vue

Bonne Journée

 

[job75]

Bonjour Alexy,

Il suffit de compléter le code pour placer le texte sélectionné dans le presse-papiers :

Private Sub ListBox1_Click()
'activer la reference Microsoft Forms 2.0 Object Library
Dim x As New DataObject
x.SetText ListBox1
x.PutInClipboard
End Sub

Ensuite touches Ctrl+V pour coller où l'on veut.

A+

 

[Alexy]

Bonjour Alexy,

Il suffit de compléter le code pour placer le texte sélectionné dans le presse-papiers :

Private Sub ListBox1_Click()
'activer la reference Microsoft Forms 2.0 Object Library
Dim x As New DataObject
x.SetText ListBox1
x.PutInClipboard
End Sub

Ensuite touches Ctrl+V pour coller où l'on veut.

A+

Bonjour job75

merci de m'avoir aider a trouver un code pour copier le texte

et j'ai aussi une autre question ( c'est une exigence de mon tuteur)

Serais t-il capable de copier que les 3 premières lettres par exemple et pas toute la ligne ? [ex: dans la listeBox --> 315 MSZ ; je veux copier seulement le 315 et pas le MSZ ]

Si ne trouver pas , ce n'ai pas grave . En tout cas merci pour votre aide et Bonne Journée.

 

[job75]

Bah il est vraiment élémentaire d'utiliser dans ce cas Left(ListBox1, 3)

 

[Alexy]

Bah il est vraiment élémentaire d'utiliser dans ce cas Left(ListBox1, 3)

Merci ça marche nickel ; vous m'avez beaucoup aider aujourd’hui

 

[Alexy]

Bah il est vraiment élémentaire d'utiliser dans ce cas Left(ListBox1, 3)

J'ai un soucis avec le code.

il marche au début mais au bout d'un certain temps , il me met des caractères --> ￿￿ qui ne corresponde pas a ce que je veux copier

les anciennes versions excel n'ont pas ce soucis mais ma version 2016 a ce soucis !!!

Aurais-tu une solutions ? car je galére a trouver

 

[job75]

Non je n'ai pas de solution.

 

[job75]

J'ai trouvé ce lien :

https://answers.microsoft.com/fr-fr...cel-2016/c68e1d6e-aa03-4de2-ac2a-9664d97500d9

 

[Alexy]

J'ai trouvé ce lien :

https://answers.microsoft.com/fr-fr...cel-2016/c68e1d6e-aa03-4de2-ac2a-9664d97500d9

c'est bon j'ai trouver

la solution c’était de mettre le fichier en excel 2003 , les caracteres qui sont present sont un bug de excel 2016

bonne journee