Discussion :

[ickyknox]

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 !

[SilkyRoad]

bonsoir

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

Code :

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

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

michel

[edelweisseric]

Bonsoir à tous

Avec un bout de code : .

Code :

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

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

[ickyknox]

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

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
 
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