Nb de valeurs constantes

[nomitse]

Bonjour à tous,

je souhaite créer un formule qui permet de me remonter le nombre de constantes dans une plage de cellules donnée (le reste de la sélection sont des formules classiques). j'ai essayé ceci mais ça ne fonctionne pas :

Function CompteConst(SearchArea As Range) As Variant

Application.Volatile True

CompteConst = 0

Dim Cell As Range
For Each Cell In SearchArea
If xlCellTypeConstants Is True Then CompteConst = CompteConst + 1
Next Cell

End Function

Pouvez vous m'aider SVP.

Merci d'avance,

Simon

 

[Paf]

Bonjour,

l'utilisation de Plage.SpecialCells(xlCellTypeConstants).Count répondrait à votre besoin. Mais si ce code fonctionne bien dans une sub, dans une fonction on récupère le nombre total de cellule de la plage, dommage il aurait été plus simple d'écrire:

CompteConst = SearchArea.SpecialCells(xlCellTypeConstants).Count

Pas trouvé mieux que :

For Each Cell In SearchArea
    If Cell.HasFormula = True Then Compte = Compte + 1
Next Cell
CompteConst = SearchArea.Count - Compte

A+

 

[nomitse]

Ça fonctionne parfaitement merci beaucoup!!

Bonne journée,

Simon