Bonjour,
J'ai une feuille Excel de 3000 lignes environ et il faut que je compte les lignes ayant 4 colonnes définies identiques.
J'ai copié/collé les 3000 lignes et supprimé les doublons selon les valeurs des 4 colonnes. Je veux effectuer le comptage de chaque combinaison unique des 4 colonnes. J'ai essayé :
Je ne suis cependant pas très forte en VBA/Excel et j'ai du mal à écrire ma fonction donc je voulais solliciter un peu d'aide. (Parce qu'en effet cela ne fonctionne pas non plus!...
Il y aurait-il quelqu'un qui aurait une idée à ce sujet s'il vous plait? Ci-dessous, mon code :
J'ai une feuille Excel de 3000 lignes environ et il faut que je compte les lignes ayant 4 colonnes définies identiques.
J'ai copié/collé les 3000 lignes et supprimé les doublons selon les valeurs des 4 colonnes. Je veux effectuer le comptage de chaque combinaison unique des 4 colonnes. J'ai essayé :
- Une formule NB(SI(.... matricielle sans succès
- Un SOMMEPROD(... mais il y avait trop de références
- De créer une formule VBA
Je ne suis cependant pas très forte en VBA/Excel et j'ai du mal à écrire ma fonction donc je voulais solliciter un peu d'aide. (Parce qu'en effet cela ne fonctionne pas non plus!...
Il y aurait-il quelqu'un qui aurait une idée à ce sujet s'il vous plait? Ci-dessous, mon code :
Code:
Function Nber(Row) As Single
'Creation of parameters
Dim PA, PB, PC, SystemNbr, LastRow As Single
Dim I, NB As Integer
Dim Name As String
'Set up of the initial values
Sheets("Data").Activate
LastRow = Rows.Count
Sheets("Sheet1").Activate
NB = 0
Row = ActiveCell.Row
SystemNbr = Cells(Row, 14).Value
PA = Cells(Row, 6).Value
PB = Cells(Row, 7).Value
PC = Cells(Row, 8).Value
Name = Cells(Row, 9).Value
'Coding
'Activate page DATA
Sheets("Data").Activate
'Count similar lines
For I = 1 To LastRow
If Cells(I, 14) = SystemNbr And Cells(I, 6) = PA And Cells(I, 7) = PB And Cells(I, 8) = PC And Cells(I, 9) = Name Then
NB = NB + 1
End If
Next I
Nber = NB
End Function