XL 2016 probleme de vba

[chris58490]

Bonjour j'ai un gros soucis car je ne m'y connais pas du tout en VBA...

Sur le fichier joint, je souhaites copier la contenance (uniquement les paralellograme) se trouvant dans la colonne B de la feuille "liste des engagés" et les coller respectivement dans les cases prévues dans la colonne C de la feuille "qualifications 1".

Je souhaite faire de même pour les drapeaux de la colonne E de la feuille "liste des engagés" pour les coller dans la colonne E de la feuille "qualifications 1".

Grand merci pour votre aide

 

[Dudu2]

Bonjour,
Si ces Shapes restent dans la même cellule d'une feuille à une autre tu n'es pas obligé de copier Shape par Shape. Un copier / coller de la colonne suffit en s'assurant qu'il y a la même largeur de colonne.

    ThisWorkbook.Worksheets("Liste des Engagés").Range("B:B").Copy
    ThisWorkbook.Worksheets("Qualifications 1").Range("B:B").PasteSpecial xlPasteColumnWidths
   
    ThisWorkbook.Worksheets("Liste des Engagés").Range("B7:B32").Copy _
        Destination:=ThisWorkbook.Worksheets("Qualifications 1").Range("C6")

Si ce n'est pas le cas, il faut le préciser et expliquer à quoi est liée la Shape (Driver # ?) et si le Driver # bouge d'une feuille à l'autre le problème devient plus compliqué.