macro copier colonne intégrale avec mise en forme

CHAKAL37 à dit:

Bonjour a tous,
Dans l'onglet général, j'ai des informations ( des colonnes entières en fait ) à reprendre dans les autres onglets.

Cliquez pour agrandir...

Sub test()
Sheets("Etudes").Range("A:G").ClearContents
With Sheets("Général")
  .Columns("A:F").Copy Sheets("Etudes").[a1]
  .Columns("J").Copy Sheets("Etudes").[g1]
End With
End Sub

mapomme à dit:

Bonjour CHAKAL37,

Rechercher plutôt la dernière ligne non vide :

Au lieu de

VB:

Sheets("Général").Range(Range("A1"), Range("A1").End(xlDown)).Copy

essayer :

VB:

Sheets("Général").Range(Range("A1"), Range("A" & Rows.Count).End(xlup)).Copy

Attention ! le terme Sheets("Général") ne s'applique qu'au premier Range. Si vous n'êtes pas sur la feuille "Général", Range("A1") et Range("A" & Rows.Count).End(xlup) concerne la feuille active et non la feuille "Général". Vous risquez une erreur d'exécution.

Le plus simple est d'employer un With :

VB:

With sheets("Général")
   .Range(.Range("A1"), .Range("A" & .Rows.Count).End(xlup)).Copy Destination:=Sheets("Etudes").Range("A1")
end with

Cliquez pour agrandir...

Jacky67 à dit:

Bonjour à tous


Bonjour à tous et "Bonne année"
Ceci peut être, si j'ai bien compris

Code:

Sub test()
Sheets("Etudes").Range("A:G").ClearContents
With Sheets("Général")
  .Columns("A:F").Copy Sheets("Etudes").[a1]
  .Columns("J").Copy Sheets("Etudes").[g1]
End With
End Sub

Quant à le mettre sur un " Worksheet_SelectionChange" ....j'ai un doute

Cliquez pour agrandir...

CHAKAL37 à dit:

j'ai un soucis d'erreur de compilation lorsque je rajoute le with - End With ... une fin d'instruction est attendu ....

Cliquez pour agrandir...

mapomme à dit:

Re @CHAKAL37 ,



Je ne vois pas. Pour résoudre rapidement ce point, un fichier serait le bienvenu.

Cliquez pour agrandir...

CHAKAL37 à dit:

Merci pour ta contribution ,
je vais essayer sur les autres onglets ou je dois faire de la recopie.

Cliquez pour agrandir...

Sub test()
Dim Sh
For Each Sh In Array("Etudes", "Travaux", "Facturation")
With Sheets(Sh)
  .Range("A:G").ClearContents
  Sheets("Général").Columns("A:F").Copy .[a1]
  Sheets("Général").Columns("J").Copy .[g1]
End With
Next
End Sub