range copy sélection multiple

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:

---

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

---

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"

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:

---

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