INFINITY100
XLDnaute Occasionnel
Bonjour à tous
Voila ci-dessous j'ai une macro qui répond à mon besoin ou presque en effet cette macro élimine les valeurs en doublons dans la colonne E mais ce que j'aimerai avoir c'est la modifier de sorte qu'elle ne prend pas en considération les lignes masquées et aussi lorsqu'il y a rien dans la colonne E je voudrais afficher 0 à la place de 1
La Macro :
Je joins le fichier pour être plus claire
Merci à vous tous
Cordialement
Voila ci-dessous j'ai une macro qui répond à mon besoin ou presque en effet cette macro élimine les valeurs en doublons dans la colonne E mais ce que j'aimerai avoir c'est la modifier de sorte qu'elle ne prend pas en considération les lignes masquées et aussi lorsqu'il y a rien dans la colonne E je voudrais afficher 0 à la place de 1
La Macro :
VB:
Sub La_Formule()
Dim Unique As New Collection
On Error Resume Next
For Each Cel In Range("E1:E" & [E100000].End(xlUp).Row)
Unique.Add Cel.Value, CStr(Cel.Value)
Next Cel
On Error GoTo 0
[A1] = Unique.Count
End Sub
Je joins le fichier pour être plus claire
Merci à vous tous
Cordialement