M
Matthieu
Guest
Bonjour.
Je cherche à copier plusieurs plages de données (elles tiennent chacune sur une colone de même taille) et les coller les unes à la suite des autres dans une unique colonne.
Par exemple, j'ai 8 plages de données ('A1':'A100'), ... ('H1':'H100')
que je voudrai coller dans une autre feuille sur une seule colonne, admettons à partir de la cellule 'D4:'
Je sens bien qu'il faut utiliser For/To, car j'ai une opération à répeter 8 fois mais j'ai deux variables : la plage de données à copier, puis la cellule cible du collage dans l'autre feuille et je vois pas comment gérer les deux avec cette méthode? Moi je reste bloqué là :
Sub essai()
Application.ScreenUpdating = False
Sheets('feuille1').Select
For i = 1 To 8
[feuille2!i1:i100].Copy
Cells(?, 4).Select ''C'est là qu'il faut autre chose!''
ActiveSheet.Paste
Next i
End Sub
Je ne sais pas si on peut imbriquer deux boucles...ou si il faut déclarer une cellule?
Je cherche à copier plusieurs plages de données (elles tiennent chacune sur une colone de même taille) et les coller les unes à la suite des autres dans une unique colonne.
Par exemple, j'ai 8 plages de données ('A1':'A100'), ... ('H1':'H100')
que je voudrai coller dans une autre feuille sur une seule colonne, admettons à partir de la cellule 'D4:'
Je sens bien qu'il faut utiliser For/To, car j'ai une opération à répeter 8 fois mais j'ai deux variables : la plage de données à copier, puis la cellule cible du collage dans l'autre feuille et je vois pas comment gérer les deux avec cette méthode? Moi je reste bloqué là :
Sub essai()
Application.ScreenUpdating = False
Sheets('feuille1').Select
For i = 1 To 8
[feuille2!i1:i100].Copy
Cells(?, 4).Select ''C'est là qu'il faut autre chose!''
ActiveSheet.Paste
Next i
End Sub
Je ne sais pas si on peut imbriquer deux boucles...ou si il faut déclarer une cellule?