Discussion :

[lpz34]

Bonjour à tous pour votre aide.

Je joint un fichier "Essais_Copier_Coller_Vba.xls" avec 3 feuilles "Accueil_Stat_Candidats_Copies","Export" et "Mdle_Bord_1_Binôme".

I° - Je lance la macro "Sub Disertation_BordD11()" module2 à partir de la feuille "Accueil_Stat_Candidats_Copies".

II° - Je veux copier les cellules (valeurs) de la feuilles "Export"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim F_Export As String, ArrExport()
Dim F_Bordereau As String, ArrBordereau()
'-----------------------------------------VARIABLES À DÉFINIR------------------------------------------------------------------------------
F_Export = "Export"                                       '* Nom de l'onglet de la feuille où sont les données
F_Bordereau = "Mdle_Bord_1_Binôme"                '* Nom de l'onglet où seront copiées les données.
'-------------------------------------------------------------------------------------------------------------------------------------------
'* Les plages à copier (F_Export = "Export")
ArrExport = Array("I5:I29", "I30:54", "I55:I79", "I80:I104", "I105:I129", "I130:I154", _
        "I155:I179", "I180:I204", "I205:I229", "I230:I254", "I255:I279", "I280:I304") 
 '------------------------------------------------------------------------------------------------------------

III° - Vers la feuille "Mdle_Bord_1_Binôme"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'* Destination de chacune des plages à copier (FeuilleDestination = "Mdle_Bord_1_Binôme")
ArrBordereau = Array("A13", "D13", "G13", "N13", "Q13", "T13", "AA13", "AD13", "AG13", _
        "AN13", "AQ13", "AT13")
'------------------------------------------------------------------------------------------------------------

IV° - Demande : copie de toutes les plages de cellule de la feuille "Export" vers la feuille "Mdle_Bord_1_Binôme"

Je travaille avec la version Excel 2003 et je cherche à trouver un code VBA.

Cordialement Pierre.