Bonjour,
Je ne parviens pas à paramétrer correctement une fonction countif pour laquelle la plage est une variable. Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Quelqu'un peut-il maider ?
Merci par avance