Discussion :

[Mist-e-Fire]

Bonjour,

J'utilise cette formule dans une feuille excel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jijie]

Bonjour,

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

oups!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Mist-e-Fire]

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!

[rvtoulon]

bonjour et avec cette formule:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Mist-e-Fire]

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!

[Ashireon]

Hello,


en Vba
fait maison

++

[Mist-e-Fire]

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!