Copier automatiser

[ados99]

Bonjour,
J'ai une Feuil2 qui doit recevoir les données de la Feuil1 mais avec des retraitements :
1- Ne reproduire dans la Feuil1 que les colonnes : A - F - J - L - M - N- O – P, sachant que la Feuil1 renseigne de la colonne A à AA
2- Le nombre des lignes de la Feuil1 peut changer selon les données saisies, alors peut on automatiser le copier/ coller des colonnes précitées (A - F - J - L - M - N- O – P) de la Feuil1 vers la Feuil2 jusqu'à la linge vide.


Merci à vous

 

[DoubleZero]

Re : Copier automatiser

Bonjour, ados99, le Forum,

Une suggestion en pièce jointe.

A bientôt

 

[Paritec]

Re : Copier automatiser

Bonjour Ados99 00 le forum
moi j'aurais fait comme cela
a+
papou

 

[DoubleZero]

Re : Copier automatiser

Re-bonjour, bonjour, Papou

... moi j'aurais fait comme cela...

Merci, Papou , c'est nettement mieux !

A bientôt

 

[Paritec]

Re : Copier automatiser

Re 00 le forum
encore plus court
a+
papou

Sub traiter()
    With Feuil1
        Application.Union(.Columns(1), .Columns(6), .Columns(10), .Columns("L:P")).Copy Feuil2.Range("A1")
    End With
End Sub

 

[DoubleZero]

Re : Copier automatiser

Re-bonjour,

Peut-être, aussi, comme cela :

Sub Peut_être_aussi_ainsi()
    Sheets("Feuil1").Range("A:A,F:F,J:J,L:L,M:P").Copy Destination:=Sheets("Feuil2").Range("a1")
End Sub

A bientôt

 

[ados99]

Re : Copier automatiser

Re bonjour
Merci à vous, ça répond parfaitement à mon souci.
merci encore
bonne journée