Bonjour
j'essaye de mettre en place un fichier qui ventil les données par machine
par mois
j'ai deux problematique
je souhaiterais votre aide SVP
1 er dans la colone b j'indique le mois en manuel je pense qu'il y a possibilite d'automatiser cela mais comment j'ai essaer de fouiller pas suffisament je pense ..
le 2 eme c'est que je vousrais faire comme pour les machines dire que que qd on indique le mois il range cela dans des feuille separe
voici la macro deja existante
a savoir que les dates sont dans la colone A et que le moi serait a mettre dans la B
MErci a vous tous
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.ScreenUpdating = False
Machine = ActiveSheet.Name
If Machine = "H 1" Or Machine = "H 2" Or Machine = "H 3" Or Machine = "V 1" Or Machine = "V 2" Or Machine = "Seaux Manuel" Then
Set W = Sheets("Base").Range("A5:O5")
W.AutoFilter
W.AutoFilter Field:=14, Criteria1:=Machine
Derlig = Sheets("Base").Range("N65536").End(xlUp).Row
Sheets(Machine).Range("A5:M65536").ClearContents
Sheets("Base").Range("A5:M" & Derlig).Copy Destination:=Sheets(Machine).Range("A5")
W.AutoFilter
End If
Application.ScreenUpdating = True
End Sub
j'essaye de mettre en place un fichier qui ventil les données par machine
par mois
j'ai deux problematique
je souhaiterais votre aide SVP
1 er dans la colone b j'indique le mois en manuel je pense qu'il y a possibilite d'automatiser cela mais comment j'ai essaer de fouiller pas suffisament je pense ..
le 2 eme c'est que je vousrais faire comme pour les machines dire que que qd on indique le mois il range cela dans des feuille separe
voici la macro deja existante
a savoir que les dates sont dans la colone A et que le moi serait a mettre dans la B
MErci a vous tous
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.ScreenUpdating = False
Machine = ActiveSheet.Name
If Machine = "H 1" Or Machine = "H 2" Or Machine = "H 3" Or Machine = "V 1" Or Machine = "V 2" Or Machine = "Seaux Manuel" Then
Set W = Sheets("Base").Range("A5:O5")
W.AutoFilter
W.AutoFilter Field:=14, Criteria1:=Machine
Derlig = Sheets("Base").Range("N65536").End(xlUp).Row
Sheets(Machine).Range("A5:M65536").ClearContents
Sheets("Base").Range("A5:M" & Derlig).Copy Destination:=Sheets(Machine).Range("A5")
W.AutoFilter
End If
Application.ScreenUpdating = True
End Sub