XL 2016 Copie de check box associée à une MFC

[thomasdu43]

Bonjour,
Je souhaite copier les cellules A1:E1 et les coller en G1:K1.
La cellule A1 contient une MFC fonction des résultats VRAI ou FAUX liés aux coches.
Existe-il une solution pour que la MFC collée (ici G1) fonctionne en fonction des coches sur I1 et K1 sans pour autant être obligé de corriger le nom de la cellule liée à chaque coche (I1 et K1).

Je ne sais pas si c'est très clair. L'idée est surtout d'éviter un travail de modification des cellules liées aux coches dans le cas d'un copie/coller multi lignes.

Merci de votre aide.

 

[job75]

Bonsoir thomasdu43,

Voyez le fichier joint et cette macro placée dans un module standard :

Sub Copier()
Dim F As Worksheet
Set F = Feuil1 'CodeName
Application.ScreenUpdating = False
F.Copy 'nouveau document
[A1].Resize(, 6).Insert xlToRight 'décale de 6 cellules vers la droite
[G1:K1].Copy F.[G1]
ActiveWorkbook.Close False
End Sub

Ne pas exécuter la macro une 2ème fois sans avoir supprimé les 2 cases à cocher.

Bonne nuit.