Discussion :

[erm60]

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

[jouana]

Essaye de mettre des ; a la place des , entre chaque paramétre.

[gFZT82]

Bonjour,

Essaie avec

Code :

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

Cel2.Formula = "=COUNTIF(" & Range(Cel1, Cel1.End(xlDown)).Address & "," & Cel1.Address & ")"

Cordialement.

[erm60]

Lorsque je remplace les , par des ; j'obtiens une erreur d'exécution.
Le lancement de la macro me donne sur la feuille Excel :
=NB.SI(range(cel1.adress;cel1.end(xldown));CEL1)

En fait Excel ne reconnait pas les variables. Il faudrait peut-être que je puisse transmettre l'adresse des cellules.

[erm60]

Merci beaucoup,

La formule donnée par gFZT82 marche très bien !
Je comprends la logique.