Boucle imbriquée pour collage plage multiple

Bonjour

voici un petit bout de code qui me permet de sélectionner et préparer à la copie

de plages multiples

je sèche après .copy

Ma question est : comment imbriquer une boucle qui permette de

coller le contenu de selectionAreas(i)

au même endroit F69:G74 de Sheets("HeuresHebdo") _boucle1

au même endroit K69:L74 de Sheets("HeuresHebdo") _boucle2

etc.

Merci par avance de votre aide

Sheets("H1606").Select

Range( _

"F69:G74,K69:L74,P69:Q74,U69:V74,Z69:AA74" & _

",F77:G82,K77:L82,P77:Q82,U77:V82,Z77:AA82" & _

",F93:G98,K93:L98,P93:Q98,U93:V98,Z93:AA98" & _

",F101:G106,K101:L106,P101:Q106,U101:V106,Z101:AA106" _

).Select

NbPlage = Selection.Areas.Count

For i = 1 To NbPlage

Sheets("H1606").Select

Selection.Areas(i).Copy

Sheets("HeuresHebdo").Select

?????????????????????????????????

???????????????????????????????

Next i

Salut Laucsap,

est-ce que je comprends bien? : tu veux copier les premières plages (F69:G74) -et suivantes -->Z- dans les suivantes (F77:G82) et la deuxième vague F93:G98 -et suivantes -->- dans F101:G106 ?

For x = 6 To 26 Step 5
    For y = 1 To 2
        Range(Cells(53 + (y * 24), x), Cells(58 + (y * 24), x + 1)).Value = Range(Cells(45 + (y * 24), x), Cells(50 + (y * 24), x + 1)).Value
    Next
Next

A+

1copiecouleur.xlsm (20.00 Ko)

bonsoir, curulis57

merci pour ta réponse rapide.

je crois que je me suis fait mal comprendre.

il s’agit de

copier la plage de cellules F69:G74 de la feuille H1606

vers la feuille HeuresHebdo en F69:G74

puis copier la plage de cellules K69:L74 de la feuille H1606

vers la feuille HeuresHebdo en K69:L74

et cela répété autant de fois qu'il y a de plage définies dans la sélection

Range( _

"F69:G74,K69:L74,P69:Q74,U69:V74,Z69:AA74" & _

",F77:G82,K77:L82,P77:Q82,U77:V82,Z77:AA82" & _

",F93:G98,K93:L98,P93:Q98,U93:V98,Z93:AA98" & _

",F101:G106,K101:L106,P101:Q106,U101:V106,Z101:AA106" _

de la feuille H1606

j'espère avoir été plus clair

Salut Laucsap,

voilà ton fichier corrigé.

J'ignore quelles sont les circonstances du choix des plages à copier mais, s'il s'agit de plages dynamiques et calculables, il y a alors sûrement moyen de créer une macro à 'géométrie variable'!

A+

5copiecouleur.xlsm (22.41 Ko)
Rechercher des sujets similaires à "boucle imbriquee collage plage multiple"