ARNAUD.M18
XLDnaute Nouveau
Bonjour à tous,
Voilà je bloque sur un code qui doit me permettre de recopier une liste verticale de données dans un autre classeur sur une plage que je définis en horizontale mais en décalant ma sélection toutes les 3 cellules quant je fais ma recopie. Dans mon classeur joint mettre les DES 1/2/3...etc dans les bonnes colonnes designations donc décallage de 3 colonnes après ma recopie en ligne.
J'en suis au stade de la recopie en décallé mais ma boucle ne fonctionne pas car pour les 2 dernières cellules de recopie cela me renvoi une erreur..
Quelqu'un pourrait-il m'aiguiller? Grand merci d'avance.
ci-joint ma macro en chantier :
Sub essai()
x = selection.Select
Do
For Each cel In Range(x)
cel.Offset(0, 1).Select
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
selection.Cut
selection.Offset(0, 3).Select
ActiveSheet.Paste
If x + Range(0, 1) = "" Then Exit Do
Loop While x + Range(0, 1) <> ""
Next cel
End Sub
Voilà je bloque sur un code qui doit me permettre de recopier une liste verticale de données dans un autre classeur sur une plage que je définis en horizontale mais en décalant ma sélection toutes les 3 cellules quant je fais ma recopie. Dans mon classeur joint mettre les DES 1/2/3...etc dans les bonnes colonnes designations donc décallage de 3 colonnes après ma recopie en ligne.
J'en suis au stade de la recopie en décallé mais ma boucle ne fonctionne pas car pour les 2 dernières cellules de recopie cela me renvoi une erreur..
Quelqu'un pourrait-il m'aiguiller? Grand merci d'avance.
ci-joint ma macro en chantier :
Sub essai()
x = selection.Select
Do
For Each cel In Range(x)
cel.Offset(0, 1).Select
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
selection.Cut
selection.Offset(0, 3).Select
ActiveSheet.Paste
If x + Range(0, 1) = "" Then Exit Do
Loop While x + Range(0, 1) <> ""
Next cel
End Sub