2 filtre élaborer ou est l'erreur

Le
Daniel Pelletier
Bonjour a tous

Dans la macro suivante ne me donne pas la deuxième série de donné.
la zone 5 extrais les donné comme je veut , a la partie 8
(qui utilise le meme critère de recherche mais pas les meme data) cela ne
fonctionne pas ?
Ou est l'erreur??


ActiveSheet.Unprotect
Sheets("Feuille_insp").Select
Columns("Ai:Ai").Select
Selection.Clear
Columns("AG:AG").Select
Selection.Clear
Range("AG1").Select
ActiveCell.FormulaR1C1 = "Date du relevé"
'2--copie les date de la feuille "base_Insp" '
Sheets("Base_Insp").Select
Columns("e:e").Select
Selection.Copy
Sheets("Feuille_insp").Select
Range("Ai1").Select
ActiveSheet.Paste
Range("AI1").Select
Selection.End(xlDown).Select
'3--ajoute date de la feuille "base" '
Sheets("Base").Select
Range("K2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Feuille_insp").Select
ActiveSheet.Paste
'4-- trie des Date'
Columns("Ai:Ai").Select
Selection.Sort Key1:=Range("Ai2"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:lse, _
Orientation:=xlTopToBottom
Sheets("Feuille_insp").Columns("Ai:Ai").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("Feuille_insp!AG1:AG2"), _
CopyToRange:=Range("Feuille_insp!AG3:AG3"), Unique:=True
'5--premier extrès data de de la feuille "base_Insp" '
Sheets("Base_Insp").Range("B:K").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("Feuille_insp!l1:l2"), _
CopyToRange:=Range("Feuille_insp!w7:af7"), Unique:lse
Sheets("Feuille_insp").Select
'6--transfer les data -#camion -Température -degré'
Range("M5").Select
Selection.Copy
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:lse, Transpose:lse
Range("n5:o5").Select
Selection.Copy
Range("g5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:lse, Transpose:lse
'7--transfer les data zone insp.'
Range("w8:ad13").Select
Selection.Copy
Range("b8").Select
ActiveSheet.Paste
'8--Deuxième trie les data des défectuosité "base_Insp" '
Sheets("Base").Range("A:L").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("Feuille_insp!l1:l2"), _
CopyToRange:=Range("Feuille_insp!b49:m49"), Unique:lse
Sheets("Feuille_insp").Select
'9--transfer les data'
Range("b50:m79").Select
Selection.Copy
Range("b18").Select
ActiveSheet.Paste
Range("B18").Select
ActiveSheet.Protect
End Sub
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel Pelletier
Le #1279095
Je m'explique un peu plus:
Cette macro fait le trie de deux colonne de date et avec validation on peut
retrouver la date désirer, puis je voudrait retrouver deux série de data
dans des feuilles différente (en utilisant le même critère "L1:L2" ) pour
les reporter dans une forme.
pour la première série (5) de data cela va, mais la deuxième (8) ne
fonctionne pas.

Ci vous avez une idée cela sera très apprécier :-))))
Ps: m'aviser ci vous voulez le fichier MERCI

"Daniel Pelletier" news:
Bonjour a tous

Dans la macro suivante ne me donne pas la deuxième série de donné.
la zone 5 extrais les donné comme je veut , a la partie 8
(qui utilise le meme critère de recherche mais pas les meme data) cela ne
fonctionne pas ?
Ou est l'erreur??


ActiveSheet.Unprotect
Sheets("Feuille_insp").Select
Columns("Ai:Ai").Select
Selection.Clear
Columns("AG:AG").Select
Selection.Clear
Range("AG1").Select
ActiveCell.FormulaR1C1 = "Date du relevé"
'2-----copie les date de la feuille "base_Insp" '
Sheets("Base_Insp").Select
Columns("e:e").Select
Selection.Copy
Sheets("Feuille_insp").Select
Range("Ai1").Select
ActiveSheet.Paste
Range("AI1").Select
Selection.End(xlDown).Select
'3-----ajoute date de la feuille "base" '
Sheets("Base").Select
Range("K2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Feuille_insp").Select
ActiveSheet.Paste
'4----- trie des Date'
Columns("Ai:Ai").Select
Selection.Sort Key1:=Range("Ai2"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom
Sheets("Feuille_insp").Columns("Ai:Ai").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("Feuille_insp!AG1:AG2"), _
CopyToRange:=Range("Feuille_insp!AG3:AG3"), Unique:=True
'5-----premier extrès data de de la feuille "base_Insp" '
Sheets("Base_Insp").Range("B:K").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("Feuille_insp!l1:l2"), _
CopyToRange:=Range("Feuille_insp!w7:af7"), Unique:úlse
Sheets("Feuille_insp").Select
'6-----transfer les data -#camion -Température -degré'
Range("M5").Select
Selection.Copy
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("n5:o5").Select
Selection.Copy
Range("g5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
'7-----transfer les data zone insp.'
Range("w8:ad13").Select
Selection.Copy
Range("b8").Select
ActiveSheet.Paste
'8--------------Deuxième trie les data des défectuosité "base_Insp" '
Sheets("Base").Range("A:L").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("Feuille_insp!l1:l2"), _
CopyToRange:=Range("Feuille_insp!b49:m49"), Unique:úlse
Sheets("Feuille_insp").Select
'9-----transfer les data'
Range("b50:m79").Select
Selection.Copy
Range("b18").Select
ActiveSheet.Paste
Range("B18").Select
ActiveSheet.Protect
End Sub




Publicité
Poster une réponse
Anonyme