La fonction NB.SI avec des critères

Résolu/Fermé
iliesss Messages postés 113 Date d'inscription mardi 14 septembre 2010 Statut Membre Dernière intervention 26 octobre 2014 - 3 août 2012 à 18:08
Mytå Messages postés 2969 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 5 août 2012 à 00:26
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
https://www.cjoint.com/?BHdpLe3JLnU

5 réponses

tichacha14 Messages postés 282 Date d'inscription mercredi 25 juillet 2012 Statut Membre Dernière intervention 25 avril 2016 49
3 août 2012 à 18:30
Bonjour,

je m'excuse mais je ne comprends pas bien ton message, il n'est pas très "français" donc je vais te poser des questions afin de mieux comprendre

les fameux "clients restant" ce sont les cellules vides ?
0
tichacha14 Messages postés 282 Date d'inscription mercredi 25 juillet 2012 Statut Membre Dernière intervention 25 avril 2016 49
3 août 2012 à 18:31
tu veux avoir les noms et le nombre de clients ou seulement le nombre ?
0
Vaucluse Messages postés 26495 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 8 avril 2022 6 288
3 août 2012 à 18:37
Bonjour
un exemple de solution ici sous réserve de bonne compréhension.
Un menu déroulant est placé en colonne B et pour chaque date, ce menu n'autorise que l'entrée des clients non présents dans la liste à la même date.
deux présentation proposées:
, une simple avec un menu à trou, l'autre un peu moins avec un menu déroulant limité au nombre de clients restants
Le classement par date n'est pas obligatoire en colonne A
https://www.cjoint.com/?BHdsH5WeWqz

crdlmnt
0
iliesss Messages postés 113 Date d'inscription mardi 14 septembre 2010 Statut Membre Dernière intervention 26 octobre 2014
3 août 2012 à 20:28
bonsoir
merci pour les réponses
je vous explique mieux
mois j'ai 11 agences
chaque jour je doit saisir les entres de chaque agences mais parfois il y a des agences qui font des retards alors moi je veux savoir quelle sont les agences dans une journée qui n'ont pas payé
voici le fichier retaillé
https://www.cjoint.com/?BHduBXSyj1W
0
Mytå Messages postés 2969 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 926
3 août 2012 à 20:53
Salut le forum

En F1 la date à rechercher
De F2 à Fx les noms des agences

En G2 à recopier vers le bas
=SOMMEPROD(($A$2:$A$29=$F$1)*($B$2:$B$29=F2))
Les agences manquantes verront un zéro apparaître.

Mytå
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
iliesss Messages postés 113 Date d'inscription mardi 14 septembre 2010 Statut Membre Dernière intervention 26 octobre 2014
5 août 2012 à 00:10
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
0
Mytå Messages postés 2969 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 926
5 août 2012 à 00:26
Re le forum

Merci du retour pour la solution en VBA.

Mytå
0