Copier un range dans un range non contigu

Version imprimable

Bonjour,

Je souhaites coller un tableau de par exemple 3 colonnes, dans un range non contigu
voici un exemple:
Code:

1 2 3 4 with xlsheet Set MyRange = application.union(.Range1, .Range2, .Range3)' on suppose qu'il y a le bon nombre de lignes, ceci ne pose pas de pb MyRange.value = xlsheet2.range("Datas").value ' un range de 3 colonnes nommé end with
Ceci ne marche pas , le collage , la recuperation d'un range , pour le copier dans un range non contigu , qui est tout de meme un range, quelle est mon erreur ? merci à vous

11/07/2015, 07h25
Philippe Tulliez

Bonjour,
Au stade de mes connaissances, il n'est pas possible de copier/coller des cellules contiguës pour les placer dans des cellules non contiguës. L'inverse est vrai
Essaie manuellement de copier les cellules A1:C5 et ensuite de les coller en sélectionnant $I$1:$I$5, $K$1:$K$5, $M$1:$M$5
Il faudra utiliser une autre technique pour effectuer cette opération.

Salut

Ne connaissant pas exactement le contexte, voila une possibilité de code en reprenant l'exemple de Philippe

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub teste4()
Dim myRange As Range
Dim aRange As Range, x As Integer
Dim ListeRg
 
 
    With Feuil1
        ListeRg = Array(.Range("$I$1:$I$5"), .Range("$K$1:$K$5"), .Range("$M$1:$M$5"))
        For x = 0 To UBound(ListeRg)
            Set aRange = ListeRg(x)
            aRange.Value = .Range("A1:A5").Offset(0, x).Value ' un range de 3 colonnes nommé
        Next
    End With
End Sub

Il faudra probablement adapter à ton besoin

Bonne journée
++
Qwaz

11/07/2015, 09h01
tamtam64

Merci,

Oui donc pas de gains par rapport a un copier coller normal d'un range un a un . Mais merci je vais quand meme l'utiliser .
11/07/2015, 12h20
patricktoulon

heu

bonjour

si la destination est connu il y a un moyen
fait une recherche avec l'expression "arera",current region,specialcell"

construire 2 array
l'un static (pour la destination) avec les "address"
l'autre dynamique dans la boucle déterminant les areras a copier en ayant pris en compte que les xltypeconstants par exemple

en disposant l arera destination (1) a la même position que aera dynamique dans le array
dans une boucle tu fait aeradest(1)=aeradynamique(1)