Compter le nombre de valeurs différente dans une colonne

Bonjour,

J'utilise cette formule dans une feuille excel:

Code:

---

=SUMPRODUCT(1/COUNTIF(A2:A18;A2:A18))

---

Elle me sert à compter le nombre de valeurs différentes dans une colonne.
Le problème, c'est que ma colonne est de longueur variable et je souhaite donc automatiser ceci avec une petite macro
(puisque si je prend la colonne entière, il me dit qu'il ne peut pas diviser par 0 et donc bug).

Voici ma tentative qui ne fonctionne pas.
Qu'est ce que je dois modifier pour y remédier?

Code:

---

1 2 3 4 5 6 7

Option Explicit   Sub CompterNombrePalettes() Dim NBpal As Integer NBpal = Application.WorksheetFunction.CountA(Range("$A:$A")) Cells(1, 10) = Application.WorksheetFunction.SumProduct(1 / Application.WorksheetFunction.CountIf(Range("A2", Cells(2, 1).Offset(NBpal -2, 0)), Range("A2", Cells(2, 1).Offset(NBpal -2, 0)))) End Sub

---

Merci

Bonjour,

à coller ds un module et lancer, à modifier selon la colonne concernée !

oups! :oops:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub CompTage()       Dim i As Long Dim colNbr As New Collection   i = 2 ' Ici on démarre en ligne 2   Do While ThisWorkbook.Worksheets("Feuil1").Range("a" & i).Value <> "" On Error Resume Next   colNbr.Add ThisWorkbook.Worksheets("Feuil1").Range("a" & i).Value, CStr(ThisWorkbook.Worksheets("Feuil1").Range("a" & i).Value)   i = i + 1 Loop   MsgBox colNbr.Count     End Sub

---

Ok, super, ça marche nickel!

Petite question avant que je ne cloture le sujet (histoire de progresser):
Pourquoi est-ce que ma version ne fonctionnait-elle pas?

Merci!

bonjour et avec cette formule:

Code:

---

=SOMMEPROD(1/NB.SI(DECALER(A2;0;0;NBVAL($A:$A)-1;1);DECALER(A2;0;0;NBVAL($A:$A)-1;1)))

---

Formule à mettre directement dans la feuille excel donc, sans macro.
Je vais trouver les équivalents anglais des formules pour voir

Merci!
Sans macro, c'est pas plus mal non plus!

Et juste parce que j'aime bien comprendre ce que je fais, personne ne peut me dire quelles erreurs étaient présentes dans mon code original?

Bon nickel, la formule sans macro fonctionne très bien

Merci pour vos deux réponses:

Avant de fermer (je me répète, je sais ^^ ), juste parce que j'aime bien comprendre ce que je fais, personne ne peut me dire quelles erreurs étaient présentes dans mon code original?

Merci!

Hello,


en Vba
fait maison

++

Comme toujours c'est toujours un plaisir de venir sur ce forum pour chercher de l'aide!
Tout fonctionne comme un charme, que je choisisse les variantes macro ou sans macro.
Je marque en résolu

Encore un grand merci à vous jijie, rvtoulon et Ashieron!

A bientôt!