compter le nombre de cellule

salut à tous,
j'ai encore un petit soucis !

j'ai une liste avec plusieurs valeurs.
comment fait-on sur VBA pour calculer le nombre de cellules qui ont la meme valeur que la dernière.

ex :

1
8
5
6
5
7
8
9
5

Ici , le dernier de la liste est le n°5, le résultat est 3 (car il apparait 3fois)

Merci !

bonsoir

Une proposition par formule (si la colonne A contient uniquement des valeurs numériques)

Code:

---

=NB.SI(A:A;RECHERCHE(9^9;A:A))

---

michel

Bonsoir à tous

Avec un bout de code : .

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub compte() Dim cel As Range Range("a1").Select Set plage = Range(Selection, Selection.End(xlDown)) For Each cel In plage If cel.Value = Range("A1").SpecialCells(xlCellTypeLastCell).Value Then i = i + 1 End If Next MsgBox i End Sub

---

C'est un peu plus long, mais cela va chercher la dernière cellule

A+

Eric

merci adel, c'est exactement ca qu'il me fallait, avec quelques modif :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub CommandButton4_Click()   Dim cel As Range Range("a1").Select Set plage = Range(Selection, Selection.End(xlDown))   For Each cel In plage If cel.Value = Selection.End(xlDown) Then I = I + 1 End If Next Worksheets("récapitulatif").Range("e15") = I     End Sub

---