Inkedit

Résolu/Fermé

JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023 - 14 oct. 2021 à 03:28
JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023 - 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

Réponse 1 / 1

JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023
14 oct. 2021 à 03:36

Voici un lien pour avoir acces au fichier
https://drive.google.com/file/d/1ABCmk1vzdOqXmjlnLpK5wX2mPvSBPWYT/view?usp=sharing

yg_be Messages postés 23426 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 janvier 2025 1 557
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")

JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023 > yg_be Messages postés 23426 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 janvier 2025
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