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

thomasdu43 · 1 Octobre 2020

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 · 1 Octobre 2020

Bonsoir thomasdu43,

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

VB:

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.

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

thomasdu43

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires