XL 2019 Copie en VBA

eduraiss · 20 Juillet 2020

Bonjour le forum

Voila, il me faudrait si possible un code VBA et pas une formule une automatisation me permettant de faire une copie d'une feuille" BASE" vers d'autres feuilles suivant un numéro 1 ou 2 ou 3

Je ne suis pas très clair , je joins un fichier avec les explications

Merci à vous

Jacky67 · 20 Juillet 2020

Bonjour,
Une proposition en pj avec ce code

VB:

Sub eric()
    Dim Plage
    Application.ScreenUpdating = False
    Feuil3.Range("b4:h" & Rows.Count).Clear: Feuil4.Range("b4:h" & Rows.Count).Clear: Feuil2.Range("b4:h" & Rows.Count).Clear
    Set Plage = Feuil1.Range("A4:h" & Feuil1.Cells(Feuil1.Rows.Count, "B").End(xlUp).Row)
    Plage.AutoFilter Field:=1, Criteria1:="1"
    Plage.Offset(, 1).Resize(, Plage.Columns.Count - 1).SpecialCells(xlCellTypeVisible).Copy Feuil3.[b4]
    Plage.AutoFilter Field:=1, Criteria1:="2"
    Plage.Offset(, 1).Resize(, Plage.Columns.Count - 1).SpecialCells(xlCellTypeVisible).Copy Feuil4.[b4]
    Plage.AutoFilter Field:=1, Criteria1:="3"
    Plage.Offset(, 1).Resize(, Plage.Columns.Count - 1).SpecialCells(xlCellTypeVisible).Copy Feuil2.[b4]
    Plage.AutoFilter
End Sub

eduraiss · 20 Juillet 2020

Re bonjour le forum
Bonjour jacky67
Merci beaucoup c'est exactement ce qu'il me fallait
Cordialement,

XL 2019 Copie en VBA

eduraiss

XLDnaute Accro

Pièces jointes

Jacky67

XLDnaute Barbatruc

Pièces jointes

eduraiss

XLDnaute Accro

Discussions similaires

XL 2019 Copie en VBA

eduraiss

XLDnaute Accro

Pièces jointes

Jacky67

XLDnaute Barbatruc

Pièces jointes

eduraiss

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency