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

captfreud · 28 Juillet 2022

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.

Bernard_XLD · 31 Juillet 2022

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, @+

VB:

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

fanch55 · 30 Juillet 2022

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 · 31 Juillet 2022

fanch55 à dit:
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 · 31 Juillet 2022

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

VB:

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 · 31 Juillet 2022

Bonjour captfreud, fanch55, le forum

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

Cordialement, @+

captfreud · 31 Juillet 2022

Bernard_XLD à dit:
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 · 31 Juillet 2022

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, @+

VB:

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 · 31 Juillet 2022

Bernard_XLD à dit:
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, @+

VB:

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 !

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

captfreud

XLDnaute Nouveau

Pièces jointes

Bernard_XLD

fanch55

XLDnaute Barbatruc

Microsoft 365 - Cellule tactile

captfreud

XLDnaute Nouveau

Microsoft 365 - Cellule tactile

captfreud

XLDnaute Nouveau

Bernard_XLD

XLDnaute Barbatruc

captfreud

XLDnaute Nouveau

Bernard_XLD

XLDnaute Barbatruc

captfreud

XLDnaute Nouveau

Discussions similaires