comment copier plusieures plages de cellules

Question

Bonjour, 

Dans mon ancienne macro, j'avais la ligne suivante:

Range(Range("IV3").End(xlToLeft), Range("IV3").End(xlToLeft).Offset(12, -2)).Copy

Elle selectionne une plage de 13 lignes et 3 colonnes. Maintenant j'aurais besoin de modifier cette ligne afin qu'elle selectionne 6 lignes et 3 colonnes, saute une ligne et selectionne ensuite encore 7 lignes et 3 colonnes (en gros dans le fichier source une ligne qui ne m'intéresse pas a été ajoutée et je voudrais ne pas la copier).

Merci beaucoup pour votre aide

Paf · Answer

bonjour,

pour garder le même esprit :

Set celorigine = Range("iv3").End(xlToLeft)
Set r1 = Range(celorigine, celorigine.Offset(5, -2))
Set r2 = Range(celorigine.Offset(9, -2), celorigine.Offset(15, 0))
Union(r1, r2).Copy


bonne suite

cousinhub29 · Answer

Bonjour,

essaie ainsi :

Union(Range("IV3").End(xlToLeft).Offset(, -2).Resize(6, 3), _
    Range("IV3").End(xlToLeft).Offset(7, -2).Resize(7, 3)).Copy


Bonne journée

simonbaron · Answer

merci beaucoup pour vos réponses

Comment copier plusieures plages de cellules

3 réponses

Discussions similaires

Newsletters