Automatiser macro

[Arcangeli]

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]

Re : Automatiser macro

Bonjour Arcangeli

Vois si cela te convient

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]

Re : Automatiser macro

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