XL 2016 probleme de vba

chris58490 · 28 Avril 2020

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 · 28 Avril 2020

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.

VB:

    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é.

XL 2016 probleme de vba

chris58490

XLDnaute Nouveau

Pièces jointes

Dudu2

XLDnaute Barbatruc

Discussions similaires