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

[laurent_ott]

Bonjour.
Je n'ai pas bien compris la demande mais pour des idées je peux te conseiller de lire le tome 6, voir le lien dans ma signature, qui aborde le sujet des doublons.
Cordialement.

[mikhaelN]

Bonsoir

Quelques idees :

Pour reperer et compter les doublons d'une colonne
- Copier (nouvelle colonne, nouvel onglet) toutes les valeurs de la colonne qui contient les doublons
- Dans cette nouvelle colonne appliquer la fonction EXCEL "Supprimer les doublons" - Ne reste plus que des valeurs uniques
- Appliquer à chacune de ces valeurs uniques" la formule =Nb.si(Range_ini, Valeur_unique) avec
Range_ini : Zone initiale avec Doublons
Valeur_unique : valeur dont on cherche le nb d'occurrences dans Range_ini


Pour supprimer les lignes doublons
- Trier le tableau suivant le champ a dedoublonner
- Supprimer une ligne si la ligne precedente possede la meme valeur dans sa colonne " a dedoublonner"