XL 2013 Copie des cellules sous macro

[Ruskof]

Bonjour a tous
je suis bloque sur cette petit macro que je essais adopter a mon fichier ci joint
avez vous une solution ?

 

[Santulud]

Bonjour Ruskof,

je comprend ce que tu cherche a faire, par contre comment choisi tu la personne pour l'attestation ??

 

[Santulud]

Re

désolé j'avais mal vu....

la macro est corrigé

 

[Ruskof]

Bonjour Ruskof,

je comprend ce que tu cherche a faire, par contre comment choisi tu la personne pour l'attestation ??

j'ai 4 case a remplir sur la feuil de l’attestation par contre la base des conducteurs va grandir puis dans le deuxième temps je scanne la feuil signé par conducteur et formateur puis je doit l'attache à la ligne correspondante pour la éditer éventuellement plus tard. j'ai ajouterai l’édition auto une fois les case remplit.
Voila en gros mon petit taf en plus pour 2020
Bonne Année a tous

 

[job75]

Bonsoir Ruskof, Santulud,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row < 5 Or Application.CountA(Cells(Target.Row, 2).Resize(, 5)) = 0 Then Exit Sub
Cancel = True
With Sheets("Attestation Formation")
    .[C30] = Cells(Target.Row, 5).Value 'date
    .[B32:C32] = Cells(Target.Row, 2).Resize(, 2).Value
    .[D33] = Cells(Target.Row, 6)
    .Activate 'facultatif
End With
End Sub

A+

 

[Ruskof]

Merci beaucoup les deux versions fonction parfaitement