Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel 2 filtre élaborer ou est l'erreur

2 filtre élaborer ou est l'erreur

1 réponse
Avatar
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:=False, _
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:=False
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 _
:=False, Transpose:=False
Range("n5:o5").Select
Selection.Copy
Range("g5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
'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:=False
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
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel Pelletier
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" a écrit dans le message de
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