Discussion :

[v4ss73r]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Application.ScreenUpdating = False
    With Feuil2
        .Range("F2:F" & derniere_ligne).Formula = "=SOMMEPROD(($A$2:$A$" & derniere_ligne & "=A2)*($B$2:$B$" & derniere_ligne & "=B2)*($C$2:$C$" & derniere_ligne & "=C2)*($D$2:$D$" & derniere_ligne & "=D2)*($E$2:$E$" & derniere_ligne & "=E2))" _
            : .Range("F2:F" & derniere_ligne).Value = .Range("F2:F" & derniere_ligne).Value
        .Range("I2:I" & derniere_ligne).Formula = "=SI(NB.SI.ENS($A$2:$A2;A2;$B$2:$B2;B2;$C$2:$C2;C2;$D$2:$D2;D2;$E$2:$E2;E2;)>1;1;0)": .Range("I2:I" & derniere_ligne).Value = .Range("I2:I" & derniere_ligne).Value
        With .Cells(1).CurrentRegion
            .Sort Cells(9), Order1:=xlAscending, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, Header:=xlYes
            V = Application.Match(1, .Columns(9), 0) 'repérage du 1er doublons après tri
            If Not IsError(V) Then
                Rows("A1", "I" & ":" & .Rows.Count).EntireRow.Delete
            End If
            .Columns(9).Clear
        End With
    End With
    Application.ScreenUpdating = True

Salut, je suis arrivé à me poser plusieurs questions :

-

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"=SI(NB.SI.ENS($A$2:$A2;A2;$B$2:$B2;B2;$C$2:$C2;C2;$D$2:$D2;D2;$E$2:$E2;E2)>1;1;0)"

Je n'arrive pas à compiler cette formule "Erreur définie par l'application ou par l'objet", mais je n'arrive surtout pas à comprendre son but.
Le but Est-ce de donner la valeur 1 si la "clé" définie par A B C D E a déjà été repéré, puis ensuite supprimer la ligne si un 1 est présent dans la colonne ? avec le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
V = Application.Match(1, .Columns(9), 0) 'repérage du 1er doublons après tri
            If Not IsError(V) Then
                Rows("A1", "I" & ":" & .Rows.Count).EntireRow.Delete
            End If

-

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
"=SOMMEPROD(($A$2:$A$" & derniere_ligne & "=A2)*($B$2:$B$" & derniere_ligne & "=B2)*($C$2:$C$" & derniere_ligne & "=C2)*($D$2:$D$" & derniere_ligne & "=D2)*($E$2:$E$" & derniere_ligne & "=E2))" _
            : .Range("F2:F" & derniere_ligne).Value = .Range("F2:F" & derniere_ligne).Value

Pour cette formule, elle se compile mais ne s'applique pas dans la feuille EXCEL, pourtant la formule fonctionne correctement si je la copie dans la feuille.

[RyuAutodidacte]

Re,
J'ai utilisé Formula afin de pouvoir utiliser la formule en anglais et quel soit adapté à Excel quelque soit le pays
- sélectionne la 1ère cellule où doit se trouver ta formule
- Fait apparaître ta fenêtre d'exécution vba et écrit dedans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print Selection.Formula

Puis valide avec la touche retour, voilà la formule en anglais avec laquelle tu dois travailler dans le code vba

[Marc-L]

De mon côté selon la présentation initiale et comme annoncé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Demo1()
    With [A1].CurrentRegion.Rows
             .Sort .Cells(4), xlDescending, Header:=xlYes
        With .Item("2:" & .Count).Columns
             .Item(3).Formula = "=SUMPRODUCT((" & .Item(1).Address & "=A2)*(" & .Item(2).Address & "=B2))"
             .Item(3).Formula = .Item(3).Value
        End With
             .RemoveDuplicates [{1,2}], xlYes
    End With
End Sub

___________________________________________________________________________________________________________

      Merci de cliquer sur en bas à droite de chaque message ayant aidé puis sur pour clore cette discussion …

[RyuAutodidacte]

Re,

Le code de Marc est celui qui est le plus optimisé, mais si tu utilises le code aussi sur Mac, tu peux rencontrer des soucis et dans ce cas là vaut mieux utiliser celui que j'ai fait qui fonctionnera sans problème sur PC et Mac
J'y ai fait de légères modifications.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub CompteurDoublons()
Application.ScreenUpdating = False
    With Feuil1
        .Cells(1).CurrentRegion.Sort .Cells(4), xlDescending, Header:=xlYes ' pour le tri des dates
        DL = .Cells(.Rows.Count, 1).End(xlUp).Row ' Dernière ligne
        'on met les formules pour ne garder que les valeur ensuite
        .Range("C2:C" & DL).Formula = "=SUMPRODUCT(($A$2:$A$" & DL & "=A2)*($B$2:$B$" & DL & " =B2))": .Range("C2:C" & DL).Formula = .Range("C2:C" & DL).Value ' concerne le nombre de doublons
        .Range("E2:E" & DL).Formula = "=IF(COUNTIFS($A$2:$A2,A2,$B$2:$B2,B2)>1,1,0)": .Range("E2:E" & DL).Formula = .Range("E2:E" & DL).Value ' repérage des doublons afin de les supprimer
        With .Cells(1).CurrentRegion
            .Sort Cells(5), xlAscending, Header:=xlYes 'tri sur la colonne E
            V = Application.Match(1, .Columns(5), 0) 'repérage du 1er doublons après tri
            If Not IsError(V) Then
                Rows(V & ":" & .Rows.Count).EntireRow.Delete 'effacement des doublons
            End If
            .Columns(5).Clear 'on efface la colonne E
        End With
    End With
Application.ScreenUpdating = True
End Sub

[Marc-L]

Pour une version MAC / PC (toutes versions car COUNTIFS n'étant pas supporté avant la version 2007)
c'est possible avec une seule formule en jouant bien du tri avant et après, en une quinzaine de lignes de code …

[v4ss73r]

Re,

Premièrement merci pour la fenêtre d'exécution je ne connaissais pas du tout et c'est vraiment pratique !

Ensuite la formule avec le COUNTIFS ne fonctionne pas, ni dans le Excel ni dans le Vba, pourtant je suis travail bien avec Excel 2010 qui est supérieur à 2007 comme a préciser Marc-L.
Dans le Excel il m'affiche #NOM?, même après avoir filtré manuellement.

Pour ce qu'il en est du tri il ne fonctionne pas non plus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Cells(1).CurrentRegion.Sort .Cells(8), xlDescending, Header:=xlYes

j'ai essayer avec des classes Range ou en remplaçant .Cells(8) par .Cells(, 8) ou encore avec des Key ou DataOption, mais aucune de ces solutions n'ont fonctionné.

[Marc-L]

Mon code fonctionnant bien de mon côté avec la première cellule "item1" en A1,
le tester dans les mêmes conditions dans un nouveau classeur en y recopiant les données de la présentation initiale !
Idem pour le code de Ryu …

[v4ss73r]

Il marcherai correctement sous PC ?
Je vais l'essayer aussi je vous retiens au courant.

[Marc-L]

J'ai édité mon précédent message, à relire …

Oui mon code fonctionne uniquement sur Windows à partir de la version 2007 !

[v4ss73r]

Exact j'avais mal lu le post, alors c'est parti !

[RyuAutodidacte]

Bonjour,

Aucun souci de mon côté comme Marc (coucou ) sachant que l'on est parti de l'exemple du post #1
sur un nouveau fichier à partir de A1

[v4ss73r]

Alors j'ai copier exactement le même tableau que dans le post#1 mais ton code RYU ne fonctionne toujours pas, toujours la même erreur:
sur le premier trie :

la méthode sort de la class range a échoué

sur le deuxieme :

la méthode sort de la class range a échoué

En reprenant exactement ton code.

Je viens d'essayer celui de Marc tout fonctionne le compteur c'est bien incrémenté mais le RemoveDuplicates m'indique une erreur

l'indice n'appartient pas à la selection.

Question à part mais, d'où peuvent venir ces erreurs alors que nous travaillons sur la même base ?

[RyuAutodidacte]

Re,
J'utilise le codename de la feuille qui lors de mon test s'appelle "Feuil1"

Après le "With" remplace Feuil1 par Sheets("NomDeLaFeuille")
Bien sûr NomDeLaFeuille est à remplacer

[v4ss73r]

J'ai remplacé ton Feuil1 par Worksheets("Feuil1") et ca marche nickel, merci à toi pour cette solution

[v4ss73r]

C'est bon c'est exactement ce que je recherchais merci à vous deux je n'aurai pas trouvé autrement !

[Marc-L]

Voici une démonstration for MAC valable aussi pour toute version Windows même avant 2007
n'utilisant pas de colonne supplémentaire juste avec une unique formule de calculs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Demo4MAC()
        Const F = "=IF(A2&""¤""&B2=A1&""¤""&B1,0,SUMPRODUCT((#1=A2)*(#2=B2)))"
              Application.ScreenUpdating = False
    With [A1].CurrentRegion.Rows
             .Sort .Cells(1), xlAscending, .Cells(2), , xlAscending, .Cells(4), xlDescending, xlYes
        With .Item("2:" & .Count).Columns
             .Item(3).Formula = Replace(Replace(F, "#1", .Item(1).Address), "#2", .Item(2).Address)
             .Item(3).Formula = .Item(3).Value
        End With
             .Sort .Cells(3), xlDescending
              V = Application.Match(0, .Columns(3), 0)
              If IsNumeric(V) Then .Item(V & ":" & .Count).Clear
             .Sort .Cells(1), xlAscending, .Cells(2), Header:=xlYes
    End With
              Application.ScreenUpdating = True
End Sub

Le tri de la ligne de code n°13 étant accessoire …

[RyuAutodidacte]

Marc