XL 2013 Case à cocher avec report de donnés + image

[Kayser]

Bonjour

Est t'il possible de mettre vie a ce tableur en pièce jointe (exemple facultatif)
La description est jointe dans le fichier PDF

J'avoue sécher dans les macros ou VBA

Merci par avance

 

[sylvanu]

Bonjour Kayser,
Un essai en PJ avec :

Sub ClicBouton()
    ' L'image porte le même numéro que le bouton correspondant.
    N = Right(Application.Caller, 2)                ' N° du bouton d'appel
    Ligne = 2 * N + 4                               ' Calcul de la ligne nom prénom
    ActiveSheet.Shapes("Image" & N).Copy            ' Copie de la signature
    Nom = Cells(Ligne, "C")                         ' Nom
    Prenom = Cells(Ligne, "E")                      ' Prénom
    With Sheets("MIRE")
        .Select
        For Each Sh In .Shapes                      ' Effacement toutes images sauf Logo
            If Sh.Name <> "Logo" Then Sh.Delete
        Next Sh
        .Paste Destination:=Sheets("MIRE").[G46]    ' Copie signature
        With .Shapes("Image" & N)
            .Width = 165                            ' Ajustement largeur
            .Left = [G46].Left + 20                 ' Centrage dans cellule
            .Top = .Top + 25
        End With
        .[H14] = Nom: .[S14] = Prenom               ' Insertion nom et prénom
        .[H21].Select
    End With
End Sub

 

[Kayser]

Bonjour Kayser,
Un essai en PJ avec :

Sub ClicBouton()
    ' L'image porte le même numéro que le bouton correspondant.
    N = Right(Application.Caller, 2)                ' N° du bouton d'appel
    Ligne = 2 * N + 4                               ' Calcul de la ligne nom prénom
    ActiveSheet.Shapes("Image" & N).Copy            ' Copie de la signature
    Nom = Cells(Ligne, "C")                         ' Nom
    Prenom = Cells(Ligne, "E")                      ' Prénom
    With Sheets("MIRE")
        .Select
        For Each Sh In .Shapes                      ' Effacement toutes images sauf Logo
            If Sh.Name <> "Logo" Then Sh.Delete
        Next Sh
        .Paste Destination:=Sheets("MIRE").[G46]    ' Copie signature
        With .Shapes("Image" & N)
            .Width = 165                            ' Ajustement largeur
            .Left = [G46].Left + 20                 ' Centrage dans cellule
            .Top = .Top + 25
        End With
        .[H14] = Nom: .[S14] = Prenom               ' Insertion nom et prénom
        .[H21].Select
    End With
End Sub

C'est Excellent bravo a toi sylvanu merci encore

 

[Kayser]

C'est Excellent bravo a toi sylvanu merci encore

Seul hic! la cellule" motif "qui ne se greffe pas sur la feuille mire aux emplacements voulus mais top quand même

 

[sylvanu]

la cellule" motif "qui ne se greffe pas sur la feuille mire aux emplacements voulus

Est à dire ?
Que la signature n'est pas centrée sur la cellule G46 ?

 

[Kayser]

le process est qu'une fois le nom choisi un faut faire un choix sur l'une des cellules MOTIF
les données se reporteront sur MIRE a la bonne description

 

[sylvanu]

Sérieux ? répondez au moins aux questions

la cellule" motif "qui ne se greffe pas sur la feuille mire aux emplacements voulus

Où mettre le motif dans Mire ?
Par quel miracle je peux corréler CP CPA CET PIEC EVE avec la liste dans mire ?