Inkedit

Résolu/Fermé
JSCH19 Messages postés 117 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 21 novembre 2022 - 14 oct. 2021 à 03:28
JSCH19 Messages postés 117 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 21 novembre 2022 - 24 oct. 2021 à 04:38
Bonjour ,
depuis un certain temps j'essaie de copier les données d'une feuille excel dans mon Inkedit mais a chaque fois que je copie une plage de cellules cela apparait dans le Inkedit comme un tableau. Il y a-t-il un moyen de copier un ensemble de cellules et de les coller dans inkedit sans et que celles-ci n'apparaient pas comme un tableau.

1 réponse

JSCH19 Messages postés 117 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 21 novembre 2022
14 oct. 2021 à 03:36
0
yg_be Messages postés 20743 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 30 novembre 2022 1 268
Modifié le 14 oct. 2021 à 08:16
bonjour,
je n'ai pas testé, et j'essaierais de remplacer
Worksheets("Fiche1").Range("A10").Copy

par
SetClipboard Worksheets("Fiche1").Range("A10")
0
JSCH19 Messages postés 117 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 21 novembre 2022 > yg_be Messages postés 20743 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 30 novembre 2022
24 oct. 2021 à 04:38
InkEdit2.text = vbCrLf

PutInClipBoard vbCrLf & ""
Worksheets("Fiche1").Shapes("Monimage").Copy
PasteToControl InkEdit2.hWnd
'Application.CutCopyMode = False

'SetClipboard vbNewLine & " "
'PasteToObj InkEdit2.hWnd

Worksheets("Fiche1").Range("B7:F1048575").CopyPicture
PasteToObj InkEdit2.hWnd
Application.CutCopyMode = False

SetClipboard vbNewLine & " "
PasteToObj InkEdit2.hWnd

Je l'ai trouver la solution,merci yg_be
0