XL 2010 VBA comptage de lignes à colonnes identiques

  • Initiateur de la discussion Initiateur de la discussion lil
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lil

XLDnaute Nouveau
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é :
  • 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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
237
Retour