Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 signatures en fonctions mot de passe

  • Initiateur de la discussion Initiateur de la discussion gilles37
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gilles37

XLDnaute Occasionnel
Bonjour à tous, le forum.

Est-il possible d'apposer une signature sur un documents excel en automatique en fonction d'un mot de passe tapé.
Disons que nous avons 10 personnes, une des 10 personnes doit remplir en fonction de leur présence un document excel qu 'ils enregistrent en pdf et je souhaiterai qu'il tape un code dans une cellule (exB8) qui ferait apparait leur signature (.jpg).
Est ce réalisable?

Merci
 
Bonjour Staple1600

Tu es reactif
Ci joint fichier
Mot de passe a taper dans cellule A4 par ex:
Image signature dans cellule A6 par ex:
Les datas seront stockés dans un second onglet que l on peut appeler "donnees comportant colonne A nom prénom et en colonne B les signatures correspondantes
Merci
 

Pièces jointes

Re

En partant du principe que les images sont sur la feuille données et que les images sont nommées comme le nom de la personne
Exemple
Pour pierre l'image sera nommée pierre
(Pour la nommer, on sélectionne l'image et on saisit le nom dans la zone de noms puis ENTER)
Ensuite mettre ce code VBA (dans le code de la feuille POI)
VB:
Private Sub Worksheet_Change(ByVal R As Range)
Dim x As Range
    If R.Address = "$B$8" And R.Count = 1 Then
    Set x = R.Offset(1)
    On Error Resume Next
    ActiveSheet.Shapes("Signature").Delete
    On Error GoTo 0
        If R <> "" Then
        Sheets("données").Shapes(R.Text).Copy
        x.Select
        ActiveSheet.Paste
        With Selection
        .Name = "Signature"
        .ShapeRange.Left = x.Left: .ShapeRange.Top = x.Top
        End With
        R.Select
        End If
    End If
End Sub
NB: Code emprunté à JB, j'ai juste fait quelques adaptations;

PS: Test OK sur ce PC (XL 2003)
 
Bonjour le forum

La signature n apparaît pas et un message d erreur apparaît quand la feuille est protégée. Tout fonctionne bien quand j ôte la protection. Ma feuille doit etre protegee afin de proteger les formules. Je ne sais comment faire.
Une idée ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…