la fonction NB.SI avec des critères

[iliess]

Bonjour
J’ai deux plages
1- A2:A3000 contient des dates
2- B2:B3000 contient 11 clients (A ,B,C,D,E,F,G,H,I,J,K)
Alors dans chaque date je dois obliger saisir les 11 clients
J’ai essayé d’avoir le nombre de clients qui restent avec cette fonction

=11-NB.SI(A1:A3000;C1)

Question
Svp si dans la cellule C1 j’écris une date alors comment dans la cellule D1 affiche les clients qui restent
Exemple
Dans C1 la date est 27/07/2012
Alors dans D1 reste 03 clients A-E-K
voici le lien qui contiens le fichier et merci
http://cjoint.com/?BHdpLe3JLnU

 

[JCGL]

Re : la fonction NB.SI avec des critères

Bonjour à tous,

Comment sait on que B2 est égal à A, que B6 est égal à E et que B12 est égal à K ?
Ne manque t-il pas une liste des clients quelque part ?

A + à tous

 

[chris]

Re : la fonction NB.SI avec des critères

Bonjour
Bise à JCGL (je crois qu'on s'est croisé ce matin)

Il y a déjà une réponse là semble-t-il [XL-2007] la fonction NB.SI avec des critères - Forum des professionnels en informatique

 

[JCGL]

Re : la fonction NB.SI avec des critères

Bonjour à tous,
Salut Chris,

Notre ami a posté à 18h07 sur XLD alors qu'il a répondu à 02h02 sur Développez.com que la réponse lui convenait...
Un TDC de plus ?

Bises à Chris
A+ à tous

 

[iliess]

Re : la fonction NB.SI avec des critères

salut mon ami
les clients dans la colonne B sont aléatoire mais de A au K
oui j'ai poster le problème sur developpez.net et Mr hben1961 ma donné une bonne réponse et aussi sur commentcamarche.net et ça pour un max de réponse
VOICI UN FICHIER DEMO
http://cjoint.com/?BHduBXSyj1W

 

[iliess]

Re : la fonction NB.SI avec des critères

salut les amis
j'ai posté ce sujet dans le forum microsoft answers et Mr DanielCo ma donné une trés bonne réponse et ça ce que je recherche et pour l’intérêt de tous voici la solution

Sub test()
    Dim c As Range, Noms, Ctr As Integer, Txt As String
    Noms = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K")
    For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
        If c.Value = [C1] Then
            If c.Offset(, 1).Value <> "" Then
            Ctr = Application.Match(c.Offset(, 1).Value, Noms, 0) - 1
            Noms(Ctr) = ""
            End If
        End If
    Next c
        Ctr = 0
        For i = 0 To 10
            If Noms(i) <> "" Then
                Txt = Txt & Noms(i) & "-"
            Else
                Ctr = Ctr + 1
            End If
        Next i
        'Reste 03 clients A-E-K
        [D1] = "Reste " & Format(11 - Ctr, "00") & " clients " & Left(Txt, Len(Txt) - 1)
        
End Sub

merci Mr danielCo

 

[chris]

Re : la fonction NB.SI avec des critères

Bonjour

On en est très content pour toi. Néanmoins, tu demandais une formule, ici comme sur Developpez, et non du VBA.

Si, au lieu de poster tous azimuts, tu avais précisé dès le début, que du VBA te convenait aussi, tout le monde aurait gagné du temps, toi y compris...

 

[R@chid]

Re : la fonction NB.SI avec des critères

Bonjour @ tous,
Voir PJ
Amicalement

 

[iliess]

Re : la fonction NB.SI avec des critères

merci pour tous vos réponses et je suis désolé si j'ai mal expliqué le problème
svp ou se trouve le bouton résolue

 

[R@chid]

Re : la fonction NB.SI avec des critères

Bonsoir,

svp ou se trouve le bouton résolue

Il n'existe pas, tu peux modifier le titre de la discussion en ajoutant [RESOLU] mais c'est pas Obligatoire...
Amicalement