[VBA][Excel] Nombre de champs differents dans une colonne

Nombre de champs differents dans une colonne [VBA][Excel] - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 29-03-2006 à 09:12:35   

Reply

Marsh Posté le 05-04-2006 à 09:00:55    

petit up, si quelqu'un a des pistes a ce sujet

Reply

Marsh Posté le 05-04-2006 à 18:51:27    

Moi ça me dit rien...
 
(up déguisé ;) )

Reply

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


Message édité par vinc35 le 11-04-2006 à 14:02:23
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed