Bonjour
Voici mon code pour filtrer le contenu d'une page selon 2 critères puis trier selon 2 autres critères. La macro fonctionne.
Sub filtri()
'
' trans11 Macro
' Macro enregistrée le 17/11/2006 par IEN60
'
'
'declare var
Dim codest As String
codest = Sheets("commande").Range("C21")
'Sélection feuille
Sheets("test").Select
'Filtre reinitialisé
ActiveSheet.AutoFilterMode = False
Selection.AutoFilter Field:=6, Criteria1:=codest
Selection.AutoFilter Field:=11, Criteria1:="non servi"
Range("A1:K610").Sort Key1:=Range("J2"), Order1:=xlAscending, Key2:=Range _
("H2"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
'
End Sub
Ayant fait apparaitre les enregistrements que je veux copier sur une autre feuille en haut de la table, je souhaitais me servir de la macro suivante pour réaliser cela. Hors cette macro ne tient pas compte du filtre/tri visible à l'écran et va coper les premières lignes de la table non filtrée
Sub transfert()
'
' transfert Macro
' Macro enregistrée le 17/11/2006 par IEN60
'
nb = Sheets("commande").Range("C19")
Dim feuille As String
feuille = Sheets("commande").Range("C21")
Sheets("test").Range("A2:K" & 1 + nb).Copy Destination:=Sheets(feuille).Range("A65536").End(xlUp).Offset(1, 0)
For n = 1 To nb
Sheets("test").Range("K" & 1 + n) = "servi"
Next n
'
End Sub
Quelqu'un a t'il une idée ? Merci à vous !
Voici mon code pour filtrer le contenu d'une page selon 2 critères puis trier selon 2 autres critères. La macro fonctionne.
Sub filtri()
'
' trans11 Macro
' Macro enregistrée le 17/11/2006 par IEN60
'
'
'declare var
Dim codest As String
codest = Sheets("commande").Range("C21")
'Sélection feuille
Sheets("test").Select
'Filtre reinitialisé
ActiveSheet.AutoFilterMode = False
Selection.AutoFilter Field:=6, Criteria1:=codest
Selection.AutoFilter Field:=11, Criteria1:="non servi"
Range("A1:K610").Sort Key1:=Range("J2"), Order1:=xlAscending, Key2:=Range _
("H2"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
'
End Sub
Ayant fait apparaitre les enregistrements que je veux copier sur une autre feuille en haut de la table, je souhaitais me servir de la macro suivante pour réaliser cela. Hors cette macro ne tient pas compte du filtre/tri visible à l'écran et va coper les premières lignes de la table non filtrée
Sub transfert()
'
' transfert Macro
' Macro enregistrée le 17/11/2006 par IEN60
'
nb = Sheets("commande").Range("C19")
Dim feuille As String
feuille = Sheets("commande").Range("C21")
Sheets("test").Range("A2:K" & 1 + nb).Copy Destination:=Sheets(feuille).Range("A65536").End(xlUp).Offset(1, 0)
For n = 1 To nb
Sheets("test").Range("K" & 1 + n) = "servi"
Next n
'
End Sub
Quelqu'un a t'il une idée ? Merci à vous !