Automatiser macro

Arcangeli · 30 Mai 2011

Bonjour le forum,
Encore besoin de vos lumières pour amméliorer si possible une petite application.
En pièce jointe un exemple avec explications.
Déjà merci si faisable

pierrejean · 30 Mai 2011

Re : Automatiser macro

Bonjour Arcangeli

Vois si cela te convient

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  Columns("A:C").Copy Destination:=Sheets("Feuil1").Range("A1")
  Sheets("Feuil1").Cells.Font.Size = 12
  Columns("D:F").Copy Destination:=Sheets("Feuil2").Range("D1")
  Sheets("Feuil2").Cells.Font.Size = 12
  Columns("G:I").Copy Destination:=Sheets("Feuil3").Range("G1")
  Sheets("Feuil3").Cells.Font.Size = 12
End Sub

Arcangeli · 30 Mai 2011

Re : Automatiser macro

Merci Pierrejean,
C'est exactement ce que je cherchait
Tu est toujours aussi rapide et efficace.
Bonnes salutations

Automatiser macro

Arcangeli

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

Arcangeli

XLDnaute Occasionnel

Discussions similaires