Discussion :

[manuhell60]

bonjour,

sur un feuille j'ai une petite centaine de cellule en discontinues a copier sur une autre feuille.
Dans un premier temps, j'utilise un boucle, mais comme toute les boucles, l'exécution n'est pas rapide, et les ligne de code s'accumule.

J'aimerais utiliser un RANGE.COPY (ou un équivalent en tout cas quelque chose de plus rapide qu'une boucle), mais cette procédure ne fonctionne pas sur des sélections multiples.
J'ai essayé en utilisant UNION, j'ai le même résultat que ce soit en écrivant union (range("A1:A10,B5:B10...") ) ou en écrivant union(maplage1,maplage2,...) : impossible sur sélection multiple.

Merci de votre aide

Cordialement

exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
sub exemple
Dim maplage1, maplage2, multipleplage as range
set maplage1 = sheets("feuil1").range ("A10:A25")
set maplage2 = sheets("feuil1").range("F15:F35")
set multipleplage = union (maplage1,maplage2)
 
multipleplage.copy ' ***** c'est ici qu'il me refuse la sélection multiple *****
sheets("feuil2").range("A1")
 
end sub

[Philippe Tulliez]

Bonjour,
Sauf si la hauteur et la largeur des plages ainsi que les n° de lignes et/ou colonnes sont identiques, manuellement cela ne fonctionne pas non plus

Ce qui fonctionne : les plages "A3:E9" avec "A13:E15" ainsi que "A7:C9" et "H7:J9"

[Qwazerty]

Salut

Il y a plusieurs solutions, des simples (plus lentes) et des plus compliquées (plus rapides).

Parmi les plus simple, une fois la sélection effective, tu peux boucler sur range.areas. Chaque area représente un bloque d'une ou plusieurs cellules contigues. Dans ton exemple "multipleplage" contient 2 areas (A10:A25 et F15:F35).
Tu peux ensuite boucler sur les cellules de chaque area ou faire un Range.areas(x).copy

Pour rendre l'exécution plus rapide, tu peux gérer la mise à jour de l'affichage de la feuille avec application.screenupdating.

A la volée ça donnerait un truc comme ça

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
Sub test2()
'Attention aux déclaration, il faut répéter As Range, sinon les variables sont déclarées comme étant des Variants
Dim maplage1 As Range, maplage2 As Range, multipleplage As Range
Dim anArea As Range
 
    Set maplage1 = Sheets("feuil1").Range("A10:A25")
    Set maplage2 = Sheets("feuil1").Range("F15:F35")
    Set multipleplage = Union(maplage1, maplage2)
 
    'On bloque le rafraichissmeent
    Application.ScreenUpdating = False
 
    'On boucle sur les areas
    For Each anArea In multipleplage.Areas
        'On copy vers la feuille2
        anArea.Copy Sheets("feuil2").Range(anArea.Address) 'anArea.address retourne pour le premier area "$A$10:$A$25"
 
    Next
 
    'On réactive le rafraichissement
    Application.ScreenUpdating = True
End Sub

Si le traitement concerne un très grand nombre de données, il faut passer par des tableaux internes mais c'est plus compliqué à gérer.

++
Qwaz