VBA selection multiple différente feuille

Version imprimable

Bonjour à tous,

j'ai un problème dans ma programmation VBA, je dois faire une sélection multiple entre plusieurs feuilles, copier puis coller dans un autre classeur. Malheureusement j'ai le message suivant :
"impossible d'exécuter cette commande sur des sélection multiple". j'ai essayé deux solutions :

1)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 Sheets("Fiche d'activité").Select
 
Dim r1, r2, myMultipleRange As Range
    Set r1 = Sheets("Fiche d'activité").Range("A10:G71")
    Set r2 = Sheets("Fiche d'activité").Range("W10:AC71")
    Set r3 = Sheets("Fiche d'activité").Range("AT10:AZ70")
 
Sheets("Fiche d'activité Médicale").Visible = True
Sheets("Fiche d'activité Médicale").Select
Set r4 = Sheets("Fiche d'activité").Range("A10:G39")
Set r5 = Sheets("Fiche d'activité").Range("W10:AC39")
Set r6 = Sheets("Fiche d'activité").Range("AT10:AZ39")
 
 
 
    Set myMultipleRange = Union(r1, r2, r3, r4, r5, r6)
    myMultipleRange.Font.Bold = True
myMultipleRange = Union(r1, r2, r3, r4, r5, r6).Copy
 
 
 
 Windows("Base de données Reporting.xlsm").Activate
 Sheets("Base de Travail").Select
 
Worksheets("Base de Travail").Range("A65536").End(xlUp).Offset(1, 0).Select
 
ActiveSheet.Paste

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sheets("Fiche d'activité").Select
 
Dim r1, r2, myMultipleRange As Range
    Set r1 = Sheets("Fiche d'activité").Range("A10:G71")
    Set r2 = Sheets("Fiche d'activité").Range("W10:AC71")
    Set r3 = Sheets("Fiche d'activité").Range("AT10:AZ70")
 
Sheets("Fiche d'activité Médicale").Visible = True
Sheets("Fiche d'activité Médicale").Select
Set r4 = Sheets("Fiche d'activité").Range("A10:G39")
Set r5 = Sheets("Fiche d'activité").Range("W10:AC39")
Set r6 = Sheets("Fiche d'activité").Range("AT10:AZ39")
 
 
 
    Set myMultipleRange = Union(r1, r2, r3, r4, r5, r6)
    myMultipleRange.Font.Bold = True
myMultipleRange = Union(r1, r2, r3, r4, r5, r6).Copy
 
'myMultipleRange.Copy
 
 Windows("Base de données Reporting.xlsm").Activate
 Sheets("Base de Travail").Select
 
Worksheets("Base de Travail").Range("A65536").End(xlUp).Offset(1, 0).Select
 
ActiveSheet.Paste

Votre est la bien venu si vous connaissez un code permettant de copier une sélection de cellules entre différentes feuilles et les coller dans un autre classeur.
Merci à vous
cordialement

05/01/2017, 12h47
unparia

Bonjour,
Il n'est pas possible de constituer une plage ce cellules appartenant à des feuilles différentes.
Tu n'as donc à ma connaissance d'autre recours que celui de passer par une matrice que tu alimentes par les différentes cellules ou plages de cellules.
La chose ne sera réalisable de cette manière qu'à la condition que la seconde dimension de cette matrice soit >= au nombre maximum de colonnes des plages dont ty veux y mettre les cellules de chaque ligne considérée.
05/01/2017, 12h56
unparia

Deux choses sont plus que certaines :
1) Nul ne saurait le faire sans VBA (autre section de ce forum).
2) tu aurais sans doute intérêt à copier plage par plage vers une feuille tremplin en utilisant la méthode Range.copy et son paramètre destination

En plus de ce qu'à écrit fort justement unparia, quelques remarques.

Quand tu écris :

Code:

Dim r1, r2, myMultipleRange As Range

Seul myMultipleRange est déclaré comme Range. r1 et r2 sont déclarés Variant.
Pour que tous soient Range, il faut écrire :

Code:

Dim r1 As Range, r2 As Range, myMultipleRange As Range

Il est étrange de déclarer r1 et r2 mais pas les 4 autres r.

Dans ce code :
Code:

1 2 3 4 Sheets("Fiche d'activité Médicale").Select Set r4 = Sheets("Fiche d'activité").Range("A10:G39") Set r5 = Sheets("Fiche d'activité").Range("W10:AC39") Set r6 = Sheets("Fiche d'activité").Range("AT10:AZ39")
Je ne comprend pas la raison de la ligne avec la première ligne qui semble complètement inutile.

Ca :

Code:

myMultipleRange = Union(r1, r2, r3, r4, r5, r6).Copy

Je ne vois vraiment pas ce que ça signifie.
A ma connaissance, le Copy de Range est une méthode qui ne renvoie pas de valeur. Il est donc inutile de la précéder d'un "=", avec ou sans Set.

Faire un Select sur une feuille et, ensuite, faire référence à cette feuille, c'est redondant.
Supprime la première ce ces deux lignes, ça marchera tout aussi bien.

Citation:

Sheets("Base de Travail").Select
Worksheets("Base de Travail").Range("A65536").End(xlUp).Offset(1, 0).Select

Et ceci

Citation:

Sheets("Base de Travail").Select
Worksheets("Base de Travail").Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

peut s'écrire plus simplement :

Citation:

Worksheets("Base de Travail").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Paste

05/01/2017, 15h17
johns90

Je débute sur le VBA, merci de votre retour