XL 2019 Userform pour signature via ecran tactile et copie dans une cellule

[captfreud]

Bonjour à tous,

Je suis occupé de digitaliser mes fiches de travail.

J'ai créer un classeur avec des userform pour une utilisation avec un pc a écran tactile.

Je bloque au niveau de la signature. Dans un des userforms, j'ai créer un objet ole pour dessiner.
Le hic c'est que je n'arrive pas à ce que au moment de valider, l'image créée se copie dans la cellule "h54"

J'ai déjà parcouru le forum etc et tester des bouts de codes mais je n'y arrive pas .. qu'es ce que j'oublie ?

Merci pour votre aide.

 

[fanch55]

Bonjour,
Ce post devrait pouvoir vous aider :

Microsoft 365 - Cellule tactile

Bonjour tout le monde je suis un débutant sur Excel et j'aimerais savoir si il serait possible dans ma cellule signature de faire un dessin a main levé que ce soit sur pc ou tablette par maccro ou autre si quelqu'un de compétent et capable qu'il me l'explique ou le fasse sa serait super !! Merci...

excel-downloads.com

 

[captfreud]

Bonjour,
Ce post devrait pouvoir vous aider :

Microsoft 365 - Cellule tactile

Bonjour tout le monde je suis un débutant sur Excel et j'aimerais savoir si il serait possible dans ma cellule signature de faire un dessin a main levé que ce soit sur pc ou tablette par maccro ou autre si quelqu'un de compétent et capable qu'il me l'explique ou le fasse sa serait super !! Merci...

excel-downloads.com

Hello, Oui j'ai déjà parcourru ce post et utiliser.

Comme écrit, mon soucis réside dans le fait que je n'arrive pas a adapter le code pour que la signature se copie sur le classeur. rien ne se passe et je ne comprend pas pouquoi rien ne ce passe

merci

 

[captfreud]

Pour éclaircir la discussion:

voici mon code qui récupère les infos du userform et les coller dans la bonne cellule.
sauf que au niveau de la signature, qui est copiée dans le presse-papier, elle ne se copie pas. Sauf si je fais un CTRL+V, là ça fonctionne. l'image de la signature est donc bien copiée dans le presse papier.
je n'arrive juste pas a la récupérer ..

Merci pour l'aide

Public Source As Object

Private Sub UserForm_Initialize()
 
   With Ink_Sig
      .InkEnabled = False
      .Ink.DeleteStrokes
      .InkEnabled = True
   
   End With
End Sub

Private Sub CommandButton1_Click()
    Ink_Sig.Ink.ClipboardCopy
    Range("h54").Value = clipboard
   
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
If oui_1 = True Then
Range("F46") = "Oui"
Else
Range("F46") = "Non"
End If
If oui_2 = True Then
Range("F47") = "Oui"
Else
Range("F47") = "Non"
End If

Range("D49") = remarque_eventuelle.Value
Range("I51") = recu_1.Value

Unload Me



End Sub

 

[Bernard_XLD]

Bonjour captfreud, fanch55, le forum

@captfreud allez voir cette discussion.
https://excel-downloads.com/threads...e-inkpicture-dans-cellule-fusionnee.20058070/

Cordialement, @+

 

[captfreud]

Bonjour captfreud, fanch55, le forum

@captfreud allez voir cette discussion.
https://excel-downloads.com/threads...e-inkpicture-dans-cellule-fusionnee.20058070/

Cordialement, @+

Hello, j'ai déjà parcourru ce post mais il ne s'adapte pas à mon cas.

Ici mon seul problème est de récupérer ce qui il y a dans le cilpboard et le mettre dans la cellule h54.
C'est tout, le reste fontionne. Il me manque juste la bonne ligne de code pour récupérer l'image du clipboard !

Merci

 

[Bernard_XLD]

Re,

je n'ai pas essayé votre fichier, pas d'explication pour l'utilisation, des controles activeX que je n'active jamais, vous devriez faire un fichier light avec le seul problème évoqué.
sans cela, sans test, cette modification devrait fonctionner.

Cordialement, @+

Private Sub CommandButton1_Click()
    Ink_Sig.Ink.ClipboardCopy , ICF_Bitmap
    Range("h54").PasteSpecial
If oui_1 = True Then
Range("F46") = "Oui"
Else
Range("F46") = "Non"
End If
If oui_2 = True Then
Range("F47") = "Oui"
Else
Range("F47") = "Non"
End If

Range("D49") = remarque_eventuelle.Value
Range("I51") = recu_1.Value

Unload Me



End Sub

 

[captfreud]

Re,

je n'ai pas essayé votre fichier, pas d'explication pour l'utilisation, des controles activeX que je n'active jamais, vous devriez faire un fichier light avec le seul problème évoqué.
sans cela, sans test, cette modification devrait fonctionner.

Cordialement, @+

Private Sub CommandButton1_Click()
    Ink_Sig.Ink.ClipboardCopy , ICF_Bitmap
    Range("h54").PasteSpecial
If oui_1 = True Then
Range("F46") = "Oui"
Else
Range("F46") = "Non"
End If
If oui_2 = True Then
Range("F47") = "Oui"
Else
Range("F47") = "Non"
End If

Range("D49") = remarque_eventuelle.Value
Range("I51") = recu_1.Value

Unload Me



End Sub

Magnifique Bernard ! C'est exactement là qu'étais mon problème.
La solution était juste devant mes yeux !

MERCI beaucoup !