Copier une plage de données dans un onglet visible

Le 18/04/2022 à 16:59

Bonjour le forum,

J'ai écrit ce code pour copier des cellules d'un onglets, dans différents onglets correspondants à des sorties :

    Range("EC181:EF200").Copy Worksheets("ARCACHON").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("BISCARROSSE D.E.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("BISCARROSSE S.G.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("BORDEAUX LAC ETANGS D.E.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("BORDEAUX LAC ETANGS S.G.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("BORDEAUX LAC JALLE D.E.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("BORDEAUX LAC JALLE S.G.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("CAMEYRAC D.E.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("CAMEYRAC S.G.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("CASSY LANTON D.E.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("CASSY LANTON S.G.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("CASTELJALOUX D.E.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("CASTELJALOUX S.G.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("GUJAN MESTRAS S.G.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("GUJAN MESTRAS D.E.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("LACANAU").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("LACANAU COUPE DES MANAGERS").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("LACANAU LE MEJANNAIS D.E.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("LACANAU LE MEJANNAIS S.G.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("LANGON D.E.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("LANGON S.G.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("LE PIAN MEDOC CHATEAUX D.E.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("LE PIAN MEDOC CHATEAUX S.G.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("LE PIAN MEDOC VIGNES D.E.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("LE PIAN MEDOC VIGNES S.G.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("MARGAUX D.E.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("MARGAUX S.G.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("MONT DE MARSAN D.E.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("MONT DE MARSAN S.G.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("PESSAC D.E.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("PESSAC S.G.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("SAINT EMILION D.E.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("SAINT EMILION S.G.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("TEYNAC").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("VILLENAVE D'ORNON D.E.").Range("AS2")
    Range("EC181:EF200").Copy Worksheets("VILLENAVE D'ORNON S.G.").Range("AS2")

N'étant pas très calé en VBA, je voudrais savoir s'il est possible de simplifier ce code.

D'autre part, lorsqu'on utilise ce classeur, seul l'onglet correspondant à la sortie est visible, les autres onglets sont masqués, je voudrais savoir s'il est possible de copier les cellules "EC181:EF200", uniquement dans l'onglet visible.

Je vous remercie pour votre aide.

Le 18/04/2022 à 19:41

Bonsoir

A priori oui c'est possible mais sans le classeur je ne m'y lancerai pas.

Rechercher des sujets similaires à "copier plage donnees onglet visible"