Discussion :

[maroonx]

Bonjour!

J'ai lu cette discussion.
Je suis débutant en VBA et j'aimerais savoir est-ce qu'avec la formule de Michel_M les valeurs différentes sont stockées dans l'objet "dico" c'est bien ça?
Et il y a deux choses que je ne comprends pas:

1- par quoi il faut remplacer "plage" pour spécifier un colonne par exemple la colonne L?
2-est-ce qu'on peut aussi obtenir la valeur de chaque cellule différente (et pas le nombre total de valeurs différentes)
Merci pour votre aide!!

[Philippe Tulliez]

Bonjour,
Pour compter le nombre de valeurs distinctes dans une plage de cellules il existe une formule toute simple en Excel traduisible bien évidemment en VBA

Code :

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

=SOMMEPROD(1/NB.SI(A2:A100;A2:A100))

[maroonx]

Bonjour Philippe Tulliez,

Non en fait je demandais est-ce qu'on peut connaître la "valeurs des différentes valeurs". C-à-d si on a (4445555566111) alors le résultats serait : (4561) ??
Et stocker chacun des différents chiffres ou mots dans une variable par exemple, et pouvoir les utiliser?

[Philippe Tulliez]

Bonjour Maroonx,

Bonjour Philippe Tulliez,
Non en fait je demandais est-ce qu'on peut connaître la "valeurs des différentes valeurs". C-à-d si on a (4445555566111) alors le résultats serait : (4561) ??
Et stocker chacun des différents chiffres ou mots dans une variable par exemple, et pouvoir les utiliser?

Ma réponse n'était pas pour toi mais par rapport à la question initiale de cette discussion dont le titre est " compter le nombre de valeurs distinctes dans une colonne"
Ouvre une nouvelle discussion pour ta question quitte à faire référence à celle-ci mais j'avoue ne pas avoir bien compris ton exemple.

[maroonx]

Salut!

D'accord pour le post mais je pensais que ma question allait dans le même sens... Dans mon exemple si dans la colonne "A" on a les valeurs 4 4 4 5 5 5 5 5 6 6 1 1 1 alors le résultat sera : 4 5 6 1 plutôt que 4 (c'est-à-dire le nombre de valeurs différentes). Et de pouvoir utiliser ces valeurs par la suite.

Comment faire pour stocker les 4 variables différentes (4 5 6 et 1)?

C'était just une précision mais s'il le faut je vais créer un autre post!
Merci!

[Philippe Tulliez]

Bonjour,
Maintenant, c'est plus clair.
Je n'ai pas le temps maintenant de répondre mais si personne ne t'apporte une réponse d'ici demain après-midi, je déposerai une fonction qui renvoie une table avec les valeurs uniques contenues dans une plage.

[maroonx]

D'accord en attendant je vais essayer de trouver la solution!
Merci!

[unparia]

Tu te noies vraiment dans un verre d'eau.
Regarde (j'ai délibérément évité, pour rester au niveau débutant, l'utilisation d'un dictionnaire ou d'une collection) :

Code :

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

1
2
3
4
5
6
7
8
9
10
toto = Columns(1).SpecialCells(xlConstants) ' j'affecte toutes les données de la colonne A à un tableau (plus rapide à l'exécution)
titi = "/" ' je vais me servir de cette variable en remplacement d'un dico ou d'une collection
ou = 1
For i = 1 To UBound(toto, 1) ' je parcours tous les articles de la colonne 1 de mon tableau toto
  If InStr(titi, "/" & toto(i, 1) & "/") = 0 Then ' si pas déjà traité, j'ajoute à la colonne B
    Range("B" & ou) = toto(i, 1)
    titi = titi & toto(i, 1) & "/" ' et j'ajoute également à titi
    ou = ou + 1
  End If
Next

Mets tout ce que tu veux, dans l'ordre ou non en colonne A et regarde le résultat en colonne B


Suis-je bête : Et même sans titi (ni dico, ni collection) :

Code :

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

1
2
3
4
5
6
7
8
toto = Columns(1).SpecialCells(xlConstants)
ou = 1
For i = 1 To UBound(toto, 1)
  If WorksheetFunction.CountIf(Columns(2), toto(i, 1)) = 0 Then
    Range("B" & ou) = toto(i, 1)
    ou = ou + 1
  End If
Next

[maroonx]

!!c'est exactement ça!! Merci!
Tu as raison je rame bcp mais un jour ça va changer! Surtout grâce la communauté du forum!
Je vais étudier ce morceau de code! Mais je comprends pas le signe "/", c'est pas la première fois que je vois...

[unparia]

Ce signe n'est jamais qu'un séparateur. Si tu en préfères un autre, tu peux (que préfères-tu ? @ ?, | ? , # ?, & ? etc ... tout ce que tu veux qui ne soit pas utilisé dans ce que tu as en colonne A)
Mais regarde le second jus. Même pas besoin de cette variable titi ...

[maroonx]

Oui il marche et je le comprends facilement! j'avais pas pensé à utiliser la fonction countif comme ça!