Nombre Si Ensemble VBA

Bonjour,

Je travaille en ce moment sur un projet de 15 000 lignes environ de manière récurrente. Ce que je cherche à faire est de automatiser certains processus( VBA - Sub). Comme je dois compter les récurrences, j'utilise la fonction nb.si.ens(K:K;K2;M:M;1). Cette fonctionne compte le client de la colonne K qui a 1 ordinateur (combien de fois qu'il revient), donc en vérifiant les autres lignes pour compter le nombre de fois que le client revient pour un ordinateur.

K M N

Client Ordinateur Nombre d'ordinateur

2 Luc 0 =NB.Si.Ens(K:K;K2; M:M;1) output de la cellule N2 serait 0

3 Marc 1 =NB.Si.Ens(K:K;K3; M:M;1) output de la cellule N3 serait 2

4 Marc 1 =NB.Si.Ens(K:K;K4; M:M;1) output de la cellule N4 serait 2

5. Charles 1 =NB.Si.Ens(K:K;K5; M:M;1) output de la cellule N5 serait 0

Bref, Il faut qu'il regarde combien de fois la cellule K2 se répète dans la colonne K( car les lignes changent à chaque routine) et si le client a un ordinateur, tout en sortant le résultat dans la colonne N. J'effectue des analyses en sortant mes résultats comme tel. Même chose pour tous les noms dans la colonne.

Merci

Salut mardh,

je ne dois pas avoir compris le problème car, en recréant ton tableau avec ta formule, les résultats correspondent, manifestement!

??

A+

Bonjour

si c'est pour une traduction en vba,

n = Application.CountIfs(Range("K:K"), Range("K2"), Range("M:M"), 1)

ou bien avec une variable,

i = 2
o = 1
n = Application.CountIfs(Range("K:K"), Range("K" & i), Range("M:M"), o)

@ curulis57 Justement je l'ai en fonction. C'est du VBA que j'ai de besoin pour le dropdown.

Merci

sabV a écrit :

Bonjour

si c'est pour une traduction en vba,

n = Application.CountIfs(Range("K:K"), Range("K2"), Range("M:M"), 1)

ou bien avec une variable,

i = 2
o = 1
n = Application.CountIfs(Range("K:K"), Range("K" & i), Range("M:M"), o)

Bonjour sabV,

D'accord, mais comment incorporer de ne pas le sélectionner. Les utilisateurs qui vont l'utiliser devrait utiliser l'information sans trop de manipulation. Comment j'incorporerais ceci, svp:

i As long,

derlig As long,

Set ws = Worksheets("Feuil6")

With ws

derLig = .Range("K" & Rows.Count).End(xlUp).Row

For i = 2 To derLig

i = 2
o = 1
n = Application.CountIfs(Range("K:K"), Range("K" & i), Range("M:M"), o)

[/quote]

De plus, offset le résultat dans la colonne N

Merci

Bonjour,

Je suis arrivé avec une autre solution:

Range("N2:N" & Cells(Rows.Count, 11).End(xlUp).Row).Formula = "=COUNTIFS(C[-3],RC[-3],C[-1],1)"

Merci pour tout

A+