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