Extraction de données sans doublons avec criteres

Bonjour,

http://cjoint.com/?legIsFQNsY

Sub Extrait()
[A1:F100].Clear
Sheets("feuil1").[A1:G1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=[J1:J2], CopyToRange:=[L1], Unique:=True
[L1:L100].Sort Key1:=Range("L2"), Order1:=xlAscending,
Header:=xlGuess
[A4].Select
For Each c In Range("L2", [L65000].End(xlUp))
[N2].Formula = "=Feuil1!C2=" & Chr(34) & c & Chr(34)
Sheets("Feuil1").[A1:B1].Copy ActiveCell
Sheets("Feuil1").[D1:F1].Copy ActiveCell.Offset(0, 2)
ActiveCell.Offset(-1, 0) = c
ActiveCell.Offset(-1, 0).Font.Bold = True
Sheets("Feuil1").[A1:G1000].AdvancedFilter Action:=xlFilterCopy,
_
CriteriaRange:=[N1:O2], CopyToRange:=ActiveCell.Resize(1, 5),
Unique:=False

ActiveCell.Offset(0, 5) = "=SUM(E" & ActiveCell.Row & ":E" &
ActiveCell.End(xlDown).Row & ")"
ActiveCell.Offset(0, 5).Font.Bold = True
ActiveCell.End(xlDown).Offset(3, 0).Select
Next c
End Sub


JB



On 3 nov, 22:47, Apitos <api...@gmail.com> wrote:

Re,

Bon voila le travail que je devrais avoir dans Feuil2. Il est présent é
dans la Feuil3 en phase finale.

http://cjoint.com/?ldwS4cOcXE

Merci.

Bonsoir JB,

Tu m'as fait avancé de plus de 60% de mon travail.

J'ai également ajouté les sommes par date avec des mises en forme.

Mais il reste encore deux choses :

1 - Le code est très grand; j'aimerais le faire allégé.
2 - Mette les liens sur les libellés de Grp.

http://cjoint.com/?lepylBs0O8

Merci de ton aide.

Bonsoir,

'On fait des liens vers les catégories
ActiveSheet.Hyperlinks.Add Anchor:=Range(c.Address), Address:="",
SubAddress:="'Feuil2'!" & _
ActiveCell.Offset(-1, 0).Address, TextToDisplay:=c.Value

JB


On 4 nov, 15:28, Apitos <api...@gmail.com> wrote:

Bonsoir JB,

Tu m'as fait avancé de plus de 60% de mon travail.

J'ai également ajouté les sommes par date avec des mises en forme.

Mais il reste encore deux choses :

1 - Le code est très grand; j'aimerais le faire allégé.
2 - Mette les liens sur les libellés de Grp.

http://cjoint.com/?lepylBs0O8

Merci de ton aide.

Bonsoir,

Merci JB.

Ca marche très bien pour les liens.

Mais aux essais, s'il n'y a aucune crois dans la colonne "Dt", il y'a
déclenchement d'une erreur d'exécution '1004'.

Parce que Activecell.End(xlDown) quand elle atteint la valeur 65537,
Excel ne sait plus quoi faire.

Alors comment gérer ce cas ?

Merci.
Merci JB.

Ca marche très bien pour les liens.

Mais aux essais, s'il n'y a aucune crois dans la colonne "Dt", il y'a
déclenchement d'une erreur d'exécution '1004'.

Parce que Activecell.End(xlDown) quand elle atteint la valeur 65537,
Excel ne sait plus quoi faire.

Alors comment gérer ce cas ?

Merci.