Comment copier plusieures plages de cellules

simonbaron Messages postés 10 Statut Membre -  
simonbaron Messages postés 10 Statut Membre -
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
A voir également:

3 réponses

Paf
 
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
0
Paf
 
il fallait lire:

Set r2 = Range(celorigine.Offset(7, -2), celorigine.Offset(13, 0))
0
cousinhub29 Messages postés 1135 Date d'inscription   Statut Membre Dernière intervention   364
 
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
0
simonbaron Messages postés 10 Statut Membre
 
merci beaucoup pour vos réponses
0