bonsoir
dans un fichier excel, je dispose d'une colonne Q qui va de la ligne 7 à la ligne 700 qui contient le nom des fournisseurs
en C1, j'ai une formule qui compte le nombre de fournisseurs avec =nbval(Q7:Q700)
en fait je voudrais faire des stats avec un msgbox en comptant le nombre d'achat chez tek ou tek fournisseur
ainsi en (Q7:Q700), on peut avoir cinq fois un fournisseur X, 4 fois un fournisseur Y et ainsi de suite...
je voudrais donc faire un classement des fournisseurs les plus utilisés par rapport au nombre de commandes (total en C1) avec le nom du fournisseur qui remonterait ainsi que le pourcentage d'utilisation
le code ci dessous fonctionne mais comment faire pour avoir tous les fournisseurs???
merci
Private Sub OptionButton14_Click()
Total = Worksheets("FEB").Range("C1").Value
compteur = Application.CountIf(Range("O7:O700"), "Computacenter")
pourcentage = compteur / Total * 100
MsgBox Round(pourcentage, 2) & " % des commandes chez Computacenter", vbInformation, "Statistiques fournisseur"
End Sub
dans un fichier excel, je dispose d'une colonne Q qui va de la ligne 7 à la ligne 700 qui contient le nom des fournisseurs
en C1, j'ai une formule qui compte le nombre de fournisseurs avec =nbval(Q7:Q700)
en fait je voudrais faire des stats avec un msgbox en comptant le nombre d'achat chez tek ou tek fournisseur
ainsi en (Q7:Q700), on peut avoir cinq fois un fournisseur X, 4 fois un fournisseur Y et ainsi de suite...
je voudrais donc faire un classement des fournisseurs les plus utilisés par rapport au nombre de commandes (total en C1) avec le nom du fournisseur qui remonterait ainsi que le pourcentage d'utilisation
le code ci dessous fonctionne mais comment faire pour avoir tous les fournisseurs???
merci
Private Sub OptionButton14_Click()
Total = Worksheets("FEB").Range("C1").Value
compteur = Application.CountIf(Range("O7:O700"), "Computacenter")
pourcentage = compteur / Total * 100
MsgBox Round(pourcentage, 2) & " % des commandes chez Computacenter", vbInformation, "Statistiques fournisseur"
End Sub
