Ne pas compté les doublons sauf 0 Résolu/Fermé

Question

Bonjour, 

http://www.cjoint.com/c/GHwm2l7P0gL 

Bonjour,
Je bloque sur une formule Excel. Dans le fichier joint, dans la cellule G9 de l’onglet EST, il y a une formule SOMMEPROD. Je souhaiterai que quand dans la colonne A de l’onglet Formule DI il y a un doublons de numéro (hors 0), qu’un seul numéro soit compté.
Exemple : Si le numéro 302 489 apparait plusieurs fois, seul 1 seul est comptabilisé, peu importe lequel.
En revanche, tous les numéros 0 sont comptés.
Quelqu’un a-t-il une solution ?
Cordialement

Vaucluse · Answer

Bon,jour

Mon PC ne me donne pas l'accès à cjoint .
A défaut de voir votre modèle, voyez si vous pouvez tirer quelque chose de cet exemple, et si problème déposez votre fichier sur le site où vous avez trouvé le mien
à vous lire
https://mon-partage.fr/f/1cjpLk8x/
crdlmnt
 
 
La qualité de la réponse dépend surtout de la clarté de la question, merci!

Vaucluse · Answer

Bonour effectivement c'est un peu lus complexe
compte tenu du volume de données traitées, j'hésite à creuser ça en matricielle et en plus je ne suis pas sur de trouver et je ne peux vous donner qu'un conseil
ajouter une colonne dans la feuille Formule DI, par exemple en L avec cette formule:
=SI(OU(NB.SI($A$2:A2;A2)>1=1;A2=0);1;0)
attention au blocage du 1° A2et pas du second dans les limites de champ

et rajoutez une condition à votre formule SOMMEPROD:  ...*(L2:L40000=1)

à moins que quelqu'un trouve mieux ce qui reste fort possible

crdlmnt

mdo100 · Answer

Bonjour Erakmur, Vaucluse,

Je ne peux pas ouvrir les fichiers joints.

Toutefois je tente ma chance.

Dans la colonne "A" de "A2 à A50"
Formule matricielle a valider avec ctrl + maj + entrée

=NBVAL($A$2:$A$50)-SOMME(N(NB.SI($A$2:$A$50;$A$2:$A$50)=1))+NB.SI($A$2:$A$50;"=0")
Cordialement.

ccm81 · Answer

Bonjour à tous

Peut être avec une petite macro (sur ma vieille machine, elle met moins d'une seconde pour trouver les 16329 valeurs sans doublon et 17737 en y ajoutant les 0)

Const FFDI As String = "Formule DI"
Const lideb As Byte = 2
Const coNOT As String * 1 = "A"

Public Function NbNumOT() As Long
Dim li As Long, lifin As Long, nb As Long
Dim dico As Object, cle, valeur As Long, cles, valeurs, nbcles As Long
Set dico = CreateObject("scripting.dictionary")
nb = 0
With Sheets(FFDI)
  lifin = .Range(coNOT & Rows.Count).End(xlUp).Row
  For li = lideb To lifin
    cle = .Range(coNOT & li).Value
    If cle <> "" Then
      If dico.exists(cle) Then
        If cle = 0 Then
          dico(cle) = dico(cle) + 1
          nb = nb + 1
        End If
      Else
        dico.Add cle, 1
        nb = nb + 1
      End If
    End If
  Next li
End With
nbcles = dico.Count
NbNumOT = nb
End Function
Cdlmnt

eriiic · Answer

Bonjour,

=--SI(ET(A2=0;A2<>"");1;EQUIV(A2;A:A;0)=LIGNE()) 
La prochaine fois met un fichier de 50 lignes, ça suffit.
18 Mo, compressé en .rar que tout le monde n'a pas en plus, ça dissuade...
eric

Vaucluse · Answer

Bonjour
il y avait effectivement juste une petite coquille dans la formule (c'est ma spécialité):

 =SI(OU(NB.SI($A$2:A2;A2)=1;A2=0);1;0)

peut être à compléter pour les lignes sans N° et sans 0, pour qu'elle n'affiche pas 1 (c'est au choix)
:

=SI(A2="";"";SI(OU(NB.SI($A$2:A2;A2)=1;A2=0);1;0))

crdlmnt

Erakmur · Answer

Les solutions de vaucluse et d'eriiic fonctionnent très bien. J'ai donc modifié l'onglet EST en conséquence en rajoutant *('Formule DI'!$L$2:$L$40000=1) à la formule du sommeprod. J'ai modifié la formule de Vaucluse en =SI(A2="";"0";SI(OU(NB.SI($A$2:A2;A2)=1;A2=0);1;0)) sinon, il y avait 3 solutions possibles.

Ne pas compté les doublons sauf 0

7 réponses

Discussions similaires