Discussion :

[Mr.Nobody]

Bonjour à tous,

je viens vous demander un petit d'aide sur un problème dont je persiste depuis quelques jours.

J'aimerais tout simplement pouvoir compter des doublons, tout d'abord avec une formule sur une nouvelle colonne, puis ensuite effectuer une boucle qui me permet de supprimer tous les doublons en trop mais tout en les comptant.

voici un fichier test :

Mon document en tire d'exemple.

Par la suite, je ne sais pas si je me trompe, mais je me suis rendu qu'il était plus simple de regroupe " mes blocs par ligne "

via cette macro :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
' masque activité
Application.ScreenUpdating = False
 
 
 
' sélection de notre 1er activeCell
 
Range("e3").Select
 
Dim Cel As Range
' début de la boucle E3 en fin N
 
For Each Cel In Range("E3:E" & Range("N3").End(xlDown).Row)
 
' si ActiveCell cellule pleine et différente de N°série(texte)
 
If ActiveCell <> "" And ActiveCell <> "N° Série" Then
 
  ActiveCell.Offset(1, -3).Resize(1, 13).Select ' sélection ligne en dessous avec nb de cellules précises
 
  Selection.Cut 'couper
 
     ActiveCell.Offset(-1, 13).Select 'sélection destination ligne à coté
 
   ActiveSheet.Paste ' collage
 
   ActiveCell.Offset(2, -3).Select ' on repasse sur la ligne cote total
 
   ActiveCell.Resize(1, 3).Select ' on sélectionne les 3 cellules associées (cote+mises+gains)
 
     Selection.Cut ' on coupe
 
   ActiveCell.Offset(-2, 16).Select ' on sélectionne cellule destination tout à droite
 
    ActiveSheet.Paste ' on colle
 
 
   ActiveCell.Offset(4, -23).Select
 
End If
 
 
Next
 
End Sub

le Fichier ressemble donc maintenant au deuxième en pièce jointe après la macro.

Maintenant je chercher juste à pouvoir faire un " countifs" multicriètes et ensuite effacement rapidement les doublons.

la finalité de la macro est finalement de garder seulement les lignes (uniquement celles sans doublons) et d'avoir dans les colonnes AD et AC les sommes des data numériques , au lieu de supprimer chaque bloc et de les compter manuellement.
Ce qui est très long et fastidieux.

Je suis bien sur preneur d'une autre solution auquel je n'aurais pas pensé, quitte à reprendre de zéro.

merci d'avoir pour vous vos futures réponses