Lister le nb de vlaeur différentes

bonjour,

je débute, soyez indulgents !

je n'arrive pas a trouver: j'ai 2 colonnes 1 avec un certains nombres de fabricants, une 2eme avec les reférences pour ces fabricants.

je voudrais faire uen feuille de calcul qui:

  • liste mes différents fabricants
  • et pour chacun d'eux,compte le nombre de références

- comprendre comment ça marche pour ne pas a reposter d'autres questions idiotes sur ce forum !

bonjoour

joint un fichier ou une maquette succinte ,mais representative

pour voir si les ref sont vraiment dans une seule cellule et, si tel est le cas par quoi elles sont separées (, ; / )

en attendant : une piste passe ton tableau par Données > convertir ;tu devrais te retrouver avec une ref par colonne ensuite il yaura moyen de compter combien a chaque ligne

cordialement

a b

fabricant1 ref1

fabricant1 ref2

fabricant1 ref3

fabricant1 ref4

fabricant1 ref5

fabricant1 ref6

fabricant2 ref7

fabricant2 ref8

fabricant2 ref9

fabricant2 ref10

fabricant2 ref11

fabricant2 ref12

fabricant2 ref13

fab3 ref14

fab3 ref15

fab4 ref16

je voudrais une formule qui me permette de lister automatiquement mes fabricants (suscpetibles d'augmenter), et le nb de ref par fabricant.

Bonsoir à tous,

Sub RefFabricant()
Dim Lg%, i%
'Macros par Claude Dubois pour "loloiss" Excel-Pratique le 19/04/11
    Application.ScreenUpdating = False
        Lg = Range("a65536").End(xlUp).Row
    With Sheets("Feuil2")
        .Range("a1") = Range("a1")
        Range("a1:b1").Copy Destination:=.Range("a1") 'en-têtes
            '--- filtre sans doublons ---
        Range("a1:a" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Range("o1:o2"), CopyToRange:=.Range("a1"), Unique:=True

            '--- tri (facultatif)---
        Lg = .Range("a65536").End(xlUp).Row
        .Range("a1:a" & Lg).Sort Key1:=.Range("a1"), Order1:=xlAscending, _
        Header:=xlYes, OrderCustom:=1, MatchCase:=False
            '--- compte ---
            For i = 2 To Lg
                .Cells(i, "b") = Application.CountIf(Columns("a"), .Cells(i, "a"))
            Next i
        .Range("a:b").Columns.AutoFit
    End With
End Sub

Amicalement

Claude

bonsoir

voici plusieurs solutions simples en plus de vba

17llois.zip (5.09 Ko)

si ok je te donnerai des explications

cordialement

merci pour vos solutions !!

je cherche une solution avec formule de calcul uniquement, pas de VBA.

la 1ere solution donnée par tulipe_4 me conviendrait, seulement je voudrais en plus que si je rajoute un ou plusieurs fabricants, ils apparaissent automatiquement dans le bilan (pour ne pas en oublier, par ex)

encore merci beaucoup !

re,

si tu a déjà lister les fabricants sans doublons,

sur Feuil2 en B2 à tirer vers le bas

=NB.SI(Feuil1!A:A;A2)

Claude

bonjour

=SI(ESTERREUR(INDEX($C$3:$C$180;PETITE.VALEUR(SI(Critères=G$3;LIGNE(Critères)-2;"");LIGNE($A1))));"";INDEX($C$3:$C$180;PETITE.VALEUR(SI(Critères=G$3;LIGNE(Critères)-2;"");LIGNE($A1))))

pour ce qui est de criteres Insesion>>>nom :dans reference tu rallonges la plage

ATTENTION la formule est matricielle donc apres avoir mis le curseur a la fin il faudra valider avec ctrl,maj;entrée (les 3en meme temps ) des { } vont apparaitre a chaque extremites

ensuite ne pas oublier de tirer vers le bas (incremententation)

cordialement

si je rajoute un fabricant et ses refs, il ne se rajoute pas automatiquement dans le bilan !

re

on va faire simple :met ton fichier ou mieux une copie avec quuelques valeurs pour pouvoir se reperer ;

tu utilises AJOUTER DES FICIHIERS sinon ça va tourner en rond et plouf

a+

voila

12classeur1.xlsx (7.95 Ko)

re

voila ce que tu desires

pas de vba ;pas de matricielles ;que du simple ( ormis une astuce pour nb.si =>un format perso)

je t'ai mis les formules en evidence pour chaque couleur de colonne

a+

14liliois2.zip (122.89 Ko)

merci bcp !

pour rajouter un fabricant et des ref, je dois inserer une ligne et la copier ?

bonjour

meme pas ; tu l'inscrit sous le precedent avec sa ref a coté

attention dans le dernier exemple que je t'ai envoyé je n'ai pas assez tiré vers le bas la colonne jaune ce qui fait que le tableau ne marche plus au dela de du fabrcant 8 ;c'est pas grave mais ballot pour une demo ; donc il faut incrementer la colonne jaune au maximun

bonne continuation

un gros gros merci !

Rechercher des sujets similaires à "lister vlaeur differentes"