Copier automatiser

DoubleZero

XLDnaute Barbatruc

• 14 Avril 2012

• #2

Re : Copier automatiser

Bonjour, ados99, le Forum,

Une suggestion en pièce jointe.

A bientôt 🙂

 

Pièces jointes

• 00 - ados99 - Données transférer.xls

  55 KB · Affichages: 39

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 14 Avril 2012

• #3

Re : Copier automatiser

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

 

Pièces jointes

• Ados99.xlsm

  22 KB · Affichages: 56
• Ados99.xlsm

  22 KB · Affichages: 52
• Ados99.xlsm

  22 KB · Affichages: 57

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 14 Avril 2012

• #4

Re : Copier automatiser

Re-bonjour, bonjour, Papou 🙂

Paritec à dit:

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

Cliquez pour agrandir...

Merci, Papou 😀, c'est nettement mieux 😱 !

A bientôt 🙂

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 14 Avril 2012

• #5

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 14 Avril 2012

• #6

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 🙂

 

Vote positif 0 Vote négatif

A

ados99

Guest

• 16 Avril 2012

• #7

Re : Copier automatiser

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

 

Vote positif 0 Vote négatif