1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Sub Occurences()
'Calculer le nb d'occurences de valeurs dans un champs
Dim Cel1 As Range
Dim Cel2 As Range
Dim DerLign As Integer
Set Cel2 = ActiveCell 'cellule active où la formule sera rédigée
'Définition de la 1ère cellule de laplage
Set Cel1 = Application.InputBox("Sélectionner la 1ère cellule de la colonne et cliquer sur OK", Type:=8)
Cel1.Select
DerLign = ActiveCell.End(xlDown).Row 'dernière ligne de la plage
Cel2.Select
Cel2 = "=countif(range(cel1,cel1.end(xldown)),cel1)"
End Sub |
