Discussion :

[berjondu69]

Bonjour à tous !

Je vous sollicite aujourd'hui pour avoir des renseignements sur le traitement d'une très longue liste d'information !

J'ai une longue liste de références (1400 lignes) et je voudrais compter le nombre de fois qu'une référence est répétée dans la liste, je sais que la fonction NB.SI le permet mais si je dois rentrer à chaque fois les réfs dans la formule ça risque d'être long !

N'existe-t-il pas un moyen de compter automatiquement le nombre de fois qu'une réf est répétée dans une liste?

Merci à vous,

Très bonne journée

Berjondu69

[BENNASR]

bonjour
si les données sont en colonne A et le résultat en colonne B
adaptez et essayez avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub rechercher()
 
Dim plage As Range
Dim i As Long
Dim Valrech As String
Application.ScreenUpdating = False
With Sheets("feuil1") 'à adapter si nom onglet différent
i = .Range("A" & Rows.Count).End(xlUp).Row
Set plage = .Range("A2:A" & i)
 
For Each cel In plage
Valrech = cel.Value
c = WorksheetFunction.CountIf(plage, Valrech)
Cells(cel.Row, 2) = c
Next cel
End With
Application.ScreenUpdating = True
End Sub

[78chris]

Bonjour à tous

En quelques clics un TCD fait cela...

Si tu met ta source sous forme de tableau, il suffit de créer le TCD sur le tableau et à chaque actualisation du TCD il suivra l'évolution de la source (ajout ou modification)

Pourquoi réinventer la roue par VBA ?

[patricktoulon]

bonjour
aurais tu une colonne dispo par hasard dans ton sheets ou se trouve ta colonne de données??
si oui exemple
mes données sont en colonne "A" et je met toute les formules en meme temps dans le offset(0,1)(colonne "B") de la plage

Code :

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

1
2
3
4
5
6
7
8
 
Sub test()
    Dim AdressRC
    With Range("A1:A12")    'adapter ta plage colonne
        AdressRC = "R" & .Cells(1).Row & "C" & .Column & ":" & "R" & .Cells(1).Row + .Cells.Count - 1 & "C" & .Column
        .Offset(0, 1).FormulaR1C1 = "=COUNTIF(" & AdressRC & ",RC[-1])"
    End With
End Sub

1 milieme de seconde et voila tu a tes countif
l'adress rc de reference s'adapte dans la formule avec AdressRC