Compter le nombre de commandes - BDD
Bonjour,
Mon problème me paraît très "idiot" mais je ne trouve pas de solution, je dois passer à côté de quelque chose.
Veuillez ouvrir le fichier ci-joint. En gros, j'aimerai compter le nombre de commandes en fonction de la colonne B et C.
Il existe les commandes 25,26 et 27 soit 3 commandes et j'aimerai trouver la réponse "3" tout en ayant les critères B17 et C17 identiques aux cellules B19 et C19.
Merci d'avance
Bonjour,
tu devrais plutot u'une copie écran, envoyer un petit fichier
P.
Voilà qui est fait.
Bonjour Tripsy, bonjour le forum,
Quand tu crèves un pneu, est-ce que tu amènes ta voiture au garagiste ou tu lui montres la photo du pneu crevé ?... Autrement dit, à joindre un fichier, autant que ce soit le fichier Excel qu'une capture d'écran...
D'après ce que je vois le te propose le code ci-dessous à adapter :
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim NL As Integer 'déclare la variable NL (Nombre de Lignes)
Dim D As Object 'déclare la variable D (Dictionnaire)
Dim I As Integer 'déclare la variable I (Incrément)
Dim NB As Integer 'déclare la variable NB (NomBre)
Set O = Sheets("Feuil1") 'définit l'onglet O (à adapter)
TC = O.Range("A16").CurrentRegion 'définit le tableau de cellule TC (à adapter)
NL = UBound(TC, 1) 'définit le nombre de lignes NL du tableau de cellules TC
Set D = CreateObject("Scripting.Dictionary") 'définit le dictionnaire D
For I = 2 To NL 'boucle sur toutes les lignes I du tableau TC (en partant de la seconde)
D(TC(I, 2)) = "" 'alimente le dictionnaire D avec la valeur en ligne I colonne 2 de TC
Next I 'prochaine ligne de la boucle
MsgBox D.Count 'message qui renvoie le nombre de valeurs sans doublons dans la colonne 2 du tabelau TC
'tu pourrais aussi stocker ce nombre dans une variable NB (par exemple) avec NB = D.count pour l'utilsier ensuite
End Sub[Édition]
Nos réponses se sont croisées... Essaie d'adapter le code à ton fichier.
Bonsoir le forum,
Une proposition :
=SOMME(SI(B2:B100<>"";1/NB.SI(B2:B100;B2:B100)))Formule matricielle à valider avec CTRL MAJ ENTREE