Discussion :

[MedTai]

Bonjour la famille ,
J'ai besoin de votre aide , en faite je voulais savoir comment on fait pour compter que les champs qui ne se répètent pas en dessous le code sur lequel je me suis basé
en faite au début j'ai pas fait attention à ma base donnée j'ai cru que y avait pas de doublant après je me suis rendu compte que c'est le cas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function NbVisibles(champ As Range)
Dim cell As Range
 
Application.Volatile
NbVisibles = 0
For Each cell In champ
If Not cell.EntireRow.Hidden And Not cell.EntireColumn.Hidden _
And Not IsEmpty(cell) Then NbVisibles = NbVisibles + 1
Next cell
 
End Function

[John Mc Evee]

Salut,

Je ne saisis pas le rapport entre la fonction et le problème.

Est-ce que tu veux que la fonction te renvoi les données en doublons ou les données sans doublons ?

A+

[Philippe Tulliez]

Bonjour,

je voulais savoir comment on fait pour compter que les champs qui ne se répètent pas

Si je me réfère à ta question, tu souhaites dénombrer les valeurs uniques ou distinctes dans une colonne ou dans une ligne.
On peut parfaitement faire cela avec Excel, transposable bien entendu en VBA
Je te propose la lecture de ce billet Comment compter le nombre de valeurs distinctes dans une colonne d’excel ?