Copier automatiser

ados99 · 13 Avril 2012

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 · 14 Avril 2012

Re : Copier automatiser

Bonjour, ados99, le Forum,

Une suggestion en pièce jointe.

A bientôt

Paritec · 14 Avril 2012

Re : Copier automatiser

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

DoubleZero · 14 Avril 2012

Re : Copier automatiser

Re-bonjour, bonjour, Papou

Paritec à dit:
... moi j'aurais fait comme cela...

Merci, Papou , c'est nettement mieux !

A bientôt

Paritec · 14 Avril 2012

Re : Copier automatiser

Re 00 le forum
encore plus court
a+
papou

Code:

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

DoubleZero · 14 Avril 2012

Re : Copier automatiser

Re-bonjour,

Peut-être, aussi, comme cela :

VB:

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 · 16 Avril 2012

Re : Copier automatiser

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

Copier automatiser

ados99

XLDnaute Nouveau

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Pièces jointes

Paritec

XLDnaute Barbatruc

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Paritec

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

ados99

XLDnaute Nouveau

Discussions similaires