Nombre de champs differents dans une colonne [VBA][Excel] - VB/VBA/VBS - Programmation
Marsh Posté le 11-04-2006 à 14:01:39
J'ai utilisé une petite fonction :
Private Function NbChampsDiff() As Integer
'Recuperation du nombre de ligne dans Nb_lignes
Nb_Lignes = Range("B65536" ).End(xlUp).Row
'Tri selon la colonne
Columns("D:D" ).Select
Selection.Sort Key1:=Range("A:A" ), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'Compteur
Compar = 0
Count = 0
New_Compar = 0
For i = 1 To Nb_Lignes
New_Compar = Cells(i, 4)
If New_Compar <> Compar Then Count = Count + 1
Compar = New_Compar
Next
NbChampsDiff = Count
End Function
Je tri la ligne a traiter, puis je compte les champs differents
Marsh Posté le 29-03-2006 à 09:12:35
Bonjour,
Pour une application sous Excel, je dois connaitre le nombre de champs differents que comprends une colonne
les données sont sous la forme :
Produit 1
Produit 1
Produit 2
Produit 3
Produit 1
Produit 2
...
Il s'agit pour moi de connaitre dans cette colonne le nombre de produits differents.
Je sais le faire via une boucle dans laquelle je compare le nom du produit aux produits precedemment trouvés, mais je voulais savoir s'il y avait une fonction plus simple, intégrée a Excel. En gros une fonction qui retourne le nombre de champs differents d'une colonne.
Merci