Microsoft 365 Signature manuelle sur écran tactile

[Marec]

Bonjour a toutes et à tous,

J'ai parcouru et trouver des exemples de ce qui est faisable et qui correspondrait a ce que je tente de faire
Signer manuellement dans une ou plusieurs cellule d'une grille d'évaluation.
Vais que j'ai vu est très difficile a comprendre à et à adopter de mon côté .
Si une aide pouvait m'etre apportée avec quelques explications ce serait bien venu.
Je joins une grille qui n'est pas finale mais qui et vierge de toutes.
Comment coder pour qu'un usf apparaisse dans les cellules prévues pour une signature et donc signer avec un stilet sur écran tactile.
A noter : beau pour de cellule fusionnees dans le document,ca n'aide peut être pas
Au cas où je suis preneur
D'avance merci

 

[Phil69970]

Bonjour à tous

@Marec

Voir ici ou ici la réponse à ta question 😉

Quelle drôle d'idée d’avoir toutes ces cellules fusionnées et cela te sert à quoi ?

 

[Marec]

Bonjour à tous

@Marec

Voir ici la réponse ou ici à ta question 😉

Quelle drôle d'idée d’avoir toutes ces cellules fusionnées et cela te sert à quoi ?

Merci pour l'intérêt porté à mon problème.
Ce document est existant dans mon job,j'en ai hérité avec plus d'une centaine d'autres grilles.
D'où mon souhait de tenter réduire tout ce papier ,puisqu'il est imprimer jusqu'ici.
Les cellules fusionnées m'ont gênées pour que je puisse mettre une croix par simple appuis sur la cellule.maiq ça fonctionne tout de même en defusionnant
Pas trop envie de refaire toutes ces grilles
Je regarde ta proposition et reviendrai certainement pour quelques explications

Merci en tout cas

 

[Marec]

Bonjour à tous

@Marec

Voir ici ou ici la réponse à ta question 😉

Quelle drôle d'idée d’avoir toutes ces cellules fusionnées et cela te sert à quoi ?

En fait j'avais vu ces différents sujets.
Mais je ne parvient pas à les intégrer

 

[Rheeem]

Regarder dans l'exemple suivant,
Tu n'indiques pas les cellule dans lesquelles la signature sera insérée.
Dans l'exemple faites double-clique sur les cellules vertes pour afficher le dialogue de saisie de la signature.

Espérons que cela fonctionne.

 

[Marec]

Regarder dans l'exemple suivant,
Tu n'indiques pas les cellule dans lesquelles la signature sera insérée.
Dans l'exemple faites double-clique sur les cellules vertes pour afficher le dialogue de saisie de la signature.

Espérons que cela fonctionne.

Bonjour et merci de ma faire profiter pour cette avancée
j'

 

[Marec]

Bonjour et merci de ma faire profiter pour cette avancée
j'

Bonjour et merci de me faire profiter de cette avancée. Les signatures ont a mettre dans les cases "visa". J'ai testé et du fait des cellule fusionnées certainement, la signature se place a gauche. Y t il possibilité de résoudre cela sans modifié toutes les cellule? Le double clic peut il se transformer en simple clic (l'idée est d'utiliser un stilet) En tout cas vous m'avait fait avancer . MERCI

 

[Marec]

Bonjour et merci de me faire profiter de cette avancée. Les signatures ont a mettre dans les cases "visa". J'ai testé et du fait des cellule fusionnées certainement, la signature se place a gauche. Y t il possibilité de résoudre cela sans modifié toutes les cellule? Le double clic peut il se transformer en simple clic (l'idée est d'utiliser un stilet) En tout cas vous m'avait fait avancer . MERCI

Voila,j'ai intégrer la possibilité de croix en mode tactile et la signature en bas dans "visa"
Malgré les cellules fusionnées ça semble plutôt correct
Par contre la signature reste effaçable une fois transférée dans la cellule. Peut on figer cette signature ?
Pourriez vous me mettre la syntaxe du code pour plusieurs cellule a signer ?
Histoire que je puisse me débrouiller par la suite
D'avance merci

 

[Marec]

Voila,j'ai intégrer la possibilité de croix en mode tactile et la signature en bas dans "visa"
Malgré les cellules fusionnées ça semble plutôt correct
Par contre la signature reste effaçable une fois transférée dans la cellule. Peut on figer cette signature ?
Pourriez vous me mettre la syntaxe du code pour plusieurs cellule a signer ?
Histoire que je puisse me débrouiller par la suite
D'avance merci

 

[jcf6464]

Bonjour a vous et le forum,

classeur inaccessible

bon courage jcf

 

[Rheeem]

Il existe trois endroits ou le mot Visa est cité, dans les adresses suivantes AV7, K43, AL43 tu peux supprimer celle qui n'est pas valide
Ajuster le code du l'événement double clics pour n'intercepter que ces adresses:
If (Intersect(Target, Range("AV7, K43, AL43")) Is Nothing) = False Then

Enfin verrouiller la cellule pour empêcher la suppression de la signature , et pour rendre cette opération possible ôter la protection à partir de l'onglet Révision->Ôter la protection de la feuille

 

[Marec]

Il existe trois endroits ou le mot Visa est cité, dans les adresses suivantes AV7, K43, AL43 tu peux supprimer celle qui n'est pas valide
Ajuster le code du l'événement double clics pour n'intercepter que ces adresses:
If (Intersect(Target, Range("AV7, K43, AL43")) Is Nothing) = False Then

Enfin verrouiller la cellule pour empêcher la suppression de la signature , et pour rendre cette opération possible ôter la protection à partir de l'onglet Révision->Ôter la protection de la feuille

Bonjour Rheeem:
Quelques essais et ajustement de la grille d'évaluation.
D'autres modifications arriveront par la suite.
Ca fonctionne plutôt bien..Merci pour l'accompagnement en tout cas .
Petite question subsidiaire : que faut il faire pour que la signature ne se place pas trop à gauche de la cellule.
J'ai déplacer les zone de signature et j'ai le résultat a gauche de la cellule
Fusionnees défusionnees ça ne semble pas changer .
Cordialement

 

[Rheeem]

ce qui pose problème c'est la taille de l'image qui déborde dans la majorité ds cas alors une mise en elle est nécessaire
le positionnement de l'image peut être ajuster par les propriétés Left et Top dans ces lignes:

          pic.Left = .Left + 10
          pic.Top = .Top + 5
         ' pic.Width = .Width  à supprimer
         ' pic.Height = .Height à supprimer

..

 

[Marec]

ce qui pose problème c'est la taille de l'image qui déborde dans la majorité ds cas alors une mise en elle est nécessaire
le positionnement de l'image peut être ajuster par les propriétés Left et Top dans ces lignes:

          pic.Left = .Left + 10
          pic.Top = .Top + 5
         ' pic.Width = .Width  à supprimer
         ' pic.Height = .Height à supprimer

Mais si tu souhaites de la signature soit centrée automatiquement dans la case, placer ce code dans BValider_Click

Private Sub BValider_Click()
Dim PicName As String
ActiveSheet.Unprotect
    PicName = "Sign " & Dest.Address(0, 0)
    On Error Resume Next
    ActiveSheet.Shapes(PicName).Delete
    On Error GoTo 0
    If InkPic.Ink.Strokes.Count > 0 Then
        InkPic.Ink.ClipboardCopy
        On Error GoTo nErr:
        Worksheets("Feuil3").PasteSpecial Format:="Image"
        With Selection.ShapeRange
          Const Marge = 4
          Dim t As Single, H, W
          .Name = PicName
          H = Dest.Height - Marge * 2
          W = Dest.Width - Marge * 2
          t = Application.Min(W / .Width, H / .Height)
          If t < 1 Then
            .Width = .Width * t
          End If
          .Left = Dest.Left + Marge + (W - .Width) / 2 ' centrée horiz
          .Top = Dest.Top + Marge + (H - .Height) / 2 ' centrée vert
        End With
nErr:
    End If
ActiveSheet.Protect
If Err.Number <> 0 Then
  MsgBox Err.Description, vbExclamation
End If
End Sub

 

[Marec]

Bonjour Rheeem:

J'ai opté pour le code
rapidité efficacité, sans ton intervention ....je pense que je serai encore loin de finaliser ce document

Grand merci a toi