Discussion :

[johns90]

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 :

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

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

2)

Code :

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

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

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

[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

[Menhir]

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

Quand tu écris :

Code :

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

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 :

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

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 :

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

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 :

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

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.

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

Et ceci

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

peut s'écrire plus simplement :

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

[johns90]

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