Discussion :

[psg7835]

Bonjour à tous!

J'ai une colonne avec un grand nombre de cellules et j'aimerais savoir combien il y a d'éléments différents. J'ai fait quelques recherches mais je n'ai pas trouvé un code VBA qui me permet de faire cela.

Merci de votre aide!

Classeur1.xlsx

[Invité]

Bonjour,

Regardez du côté des tableaux croisés dynamiques sans VBA ou l'utilisation des variables dictionnaires avec VBA.

[RyuAutodidacte]

Bonjour,

Il est mal venu de mettre une pièce jointe des le premier post, ct règles du forum,
Surtout que quasi personne va l'ouvrir.

Je ne vois pas ce que tu entends par nombre d'éléments, si c'est le nombre de valeurs différentes,
Tu peux passer par une collection, on aura pas de doublons et le nombre de valeur pris dans ta collection (en utilisant la propriété Count) te donnera le nombre exact.

Edit : coucou Eric on s'est croisé

[BENNASR]

Bonjour
voir avec ça :

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
Sub rechercher()
 
Dim plage As Range
Dim Dernligne As Long
Dim Valrech As String
With Sheets("feuil1")
Dernligne = .Range("A" & Rows.Count).End(xlUp).Row
Set plage = .Range("A2:A" & Dernligne)
 
For Each cel In plage
Valrech = cel.Value
c = WorksheetFunction.CountIf(plage, Valrech)
Cells(cel.Row, 2) = c
Next cel
End With
End Sub

[unparia]

Bonjour

Regardez du côté des tableaux croisés dynamiques

coucou Eric on s'est croisé

Dynamiquement

[coup dur]

Bonjour,

Perso, j'utiliserais simplement la fonction sommeprod s'il n'y a pas de cellule vides dans la sélection :

Résultat en B1 pour compter les valeurs sans doublon de A1 à A20 :

Code :

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

    Range("B1").FormulaR1C1 = "=SUMPRODUCT(1/COUNTIF(R1C1:R20C1,R1C1:R20C1))"

[psg7835]

Bonjour,

Perso, j'utiliserais simplement la fonction sommeprod s'il n'y a pas de cellule vides dans la sélection :

Résultat en B1 pour compter les valeurs sans doublon de A1 à A20 :

Code :

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

    Range("B1").FormulaR1C1 = "=SUMPRODUCT(1/COUNTIF(R1C1:R20C1,R1C1:R20C1))"

Merci pour cette piste mais dans mon cas, les colonnes seront à taille variable. Donc comment adapter cette formule afin que ça marche pour toutes les tailles de colonnes?

Merci

[RyuAutodidacte]

Salut Jacques,

Bonjour


Dynamiquement

C'est sur quand on écrit de son téléphone depuis le RER et que l'on s’arrête dans un tunnel il se passe un temps (oupps j'ai perdu ma 4G)