Discussion :

[Fayrouzam]

Bonjour à tous,
je cherche a avoir le nombre de données sans doublons dans ma colonne F. Mais je voudrais prendre en compte une condition, pour que excel compte les données en F sans doublon, si en C il y a "complet" mais je n'arrive pas a le faire soit en VBA ou en formules simples d'excel.

Par exemple pour ce cas:



ça me retourne 2, car on a un code ayant comme état "complet" qui se répète deux fois pour le code 1234.

Merci d'avance.

[Menhir]

Solution simple à faire à la main ou en VBA :

Tu copies l'onglet.
Dans la copie, tu supprimes les doublons (RemoveDuplicate en VBA).
Tu comptes les "Complets" restant avec une fonction NB.SI (COUNTIF en VBA, à utiliser avec un Evaluate ou WorksheetFunction).
Tu supprimes l'onglet copie.

Ca n'est pas très subtil comme solution mais c'est simple et efficace.

En se creusant un peu la tête, il est sans doute possible de faire ça aussi avec une fonction matricielle.

[Menhir]

Une solution en formule matricielle.
En supposant que tes données vont de la ligne 2 à la ligne 100 :

Code :

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

=SOMME(SI((C2:C100="complet")*NB.SI(DECALER(F$2;0;0;LIGNE(F2:F100));F2:F100)=1;1;0))

A valider avec Ctrl+Shift+Entrée comme toute formule matricielle.

[Fayrouzam]

Je préfère que ça soit sur VBA mais ça ne parait pas évident vu que le nombre de ligne que j'ai est dynamique que je compte par VBA aussi (.End(xlDown).Row).
Autrement j'aimerais bien trouver une façon plus légère que de copier les données et supprimer les doublons.
je ne m'y connais pas en formules matricielles, je vais me documenter, or je ne crois pas que celle-ci pourra prendre en compte le fait que le nombre de ligne est indéfini, et si on veut la faire pour le maximum de ligne ça craint de prendre beaucoup de temps.
Pourriez vous s'il vous plait m'aider sur la macro?

[Fayrouzam]

Voilà j'ai fait une tentative sur VBA mais ça ne marche pas ça me retourne 0:
voici le code

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
 
Sub compter_uniques()
 
Dim unique As New Collection
Dim lastrow As Integer
Dim BIL As Worksheet
Dim D As Worksheet
Dim ArticleHB As String
 
 
On Error Resume Next
 
Set D = Worksheets("DATA")
Set BIL = Worksheets("Bilancache")
 
ArticleHB = "complet"
 
lastrow = D.Range("F3").End(xlDown).Row
 
For Each cel In D.Range("F3:F" & lastrow)
'For i = 4 To lastrow
    If D.Cells(cel.Row, 7).Value = ArticleHB Then
    unique.Add cel.Value, CStr(cel.Value)
    End If
'Next i
Next cel
 
 
BIL.Cells(13, 6).Value = unique.Count
 
 
End Sub

Help svp !

[Menhir]

je ne m'y connais pas en formules matricielles, je vais me documenter, or je ne crois pas que celle-ci pourra prendre en compte le fait que le nombre de ligne est indéfini,

Il suffit d'inclure dans la matrice de recherche de la formule une nombre de lignes raisonnable pouvant garantir sa pérennité pour une certaine durée.
Et si un jour ton nombre de lignes dépassent la zone prévue, il suffira d'ajuster la formule.

Quoi que... si tu rajoutes les nouvelles lignes par insertion, la formule s'adaptera toute seule.

et si on veut la faire pour le maximum de ligne ça craint de prendre beaucoup de temps.

Fais un essai avant de faire ce type d'affirmation.

Pourriez vous s'il vous plait m'aider sur la macro?

Je l'ai déjà fait.
Je t'ai indiquer une méthode simple qui fonctionne. Tu ne veux pas en tenir compte, c'est ton choix.

Voilà j'ai fait une tentative sur VBA mais ça ne marche pas ça me retourne 0:

Commence par supprimer On Error Resume Next.

[Fayrouzam]

Merci, ça a marché !