Selectionner une plage de cellules VBA

Fermé
simonbaron Messages postés 9 Date d'inscription lundi 23 mai 2011 Statut Membre Dernière intervention 23 janvier 2013 - Modifié par simonbaron le 24/05/2011 à 09:07
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 26 mai 2011 à 13:32
Bonjour,

J'ai un problème avec ma macro. Je devrais être capable de selectionner dans plusieurs tableaux une plage de cellules dans l'avant-dernière et dernière colonne completée et les copier dans un seul fichier. Je suis capable de copier la dernière cellule d'une ligne (ex. Range("IV1").end(xlToLeft).Select), mais pas une plage. Exemple: j'ai besoin de copier la plage "U3:V11", la colonne V étant la dernière colonne completée du tableau, en sachant que le tableau est alimenté chaque mois et donc le mois prochain la dernière colonne completée sera par exemple la Z (et donc ma plage sera la "Y3:Z11").

J'espère avoir été assez clair!!!

Merci beaucoup pour votre aide

1 réponse

melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
26 mai 2011 à 13:32
Bonjour,

Pour pouvoir le faire, il te suffit de deux boucles :
i=1
do while cells(i,1) <> "" 'travailleras jusqu'à ce que la ligne i et la colonne 1 n'a rien ==> compte les lignes :
i=i+1
loop
i=i-1
j=1
do while cells(1,j) <> "" 'idem mais pour les colonnes
j=j+1
loop
j=j-1

'pour copier les deux dernières colonnes :
range(cells(1,j-1),cells(i,j)).copy
0