Macro pour compter les formules

Bonjour à tous,
Je souhaiterais réaliser une macro qui me permette de compter le nombre
de formules dans un zône sélectionnée.
Merci à tous
Michel
Bonjour,

Quelquechose comme ça ?

Sub CompteFormules()
For Each cellule In Selection
If cellule.HasFormula Then compteur = compteur + 1
Next cellule
Message = Selection.Address(False, False) & Chr(13) & "contient " &
compteur & " formule"
If compteur > 1 Then Message = Message & "s"
MsgBox Message
End Sub

Bon wik

Rai

Bonjour à tous,
Je souhaiterais réaliser une macro qui me permette de compter le
nombre de formules dans un zône sélectionnée.
Merci à tous
Michel

Bonjour,

Quelquechose comme ça ?

Sub CompteFormules()
For Each cellule In Selection
If cellule.HasFormula Then compteur = compteur + 1
Next cellule
Message = Selection.Address(False, False) & Chr(13) & "contient " &
compteur & " formule"
If compteur > 1 Then Message = Message & "s"
MsgBox Message
End Sub

Bon wik

Rai

Merci Rai, c'est parfait
Bon wik à toi également
Michel

Bonjour à tous,
Je souhaiterais réaliser une macro qui me permette de compter le
nombre de formules dans un zône sélectionnée.
Merci à tous
Michel

Bonjour,

Quelquechose comme ça ?

Sub CompteFormules()
For Each cellule In Selection
If cellule.HasFormula Then compteur = compteur + 1
Next cellule
Message = Selection.Address(False, False) & Chr(13) & "contient " &
compteur & " formule"
If compteur > 1 Then Message = Message & "s"
MsgBox Message
End Sub

Bon wik

Rai

Merci Rai, c'est parfait
Bon wik à toi également
Michel

Bonjour,

Sous forme de fonction:

Dans un module:

Function compteFormules(champ As Range)
compteFormules = 0
For Each c In champ
If c.HasFormula Then compteFormules = compteFormules + 1
Next c
End Function

Dans le tableur : =CompteFormules(A1:D100)

Cordialement JB

Bonjour,

Sous forme de fonction:

Dans un module:

Function compteFormules(champ As Range)
compteFormules = 0
For Each c In champ
If c.HasFormula Then compteFormules = compteFormules + 1
Next c
End Function

Dans le tableur : =CompteFormules(A1:D100)

Cordialement JB

Merci, JB, ta fonction est super

Mais supposes, pour le fun que je veuille compter les cellules saisies
dans une zone, sauf celles qui sont vides ou égales à zéro ?
Merci
Michel

http://cjoint.com/?dAndf1153b

Function compteCellulesNonVides(champ As Range)
compteCellulesNonVides = 0
For Each c In champ
If Not IsEmpty(c.Value) And c.Value <> 0 And c.Value <> "" And Not
c.HasFormula Then
compteCellulesNonVides = compteCellulesNonVides + 1
End If
Next c
End Function

Cordialement JB

http://cjoint.com/?dAndf1153b

Function compteCellulesNonVides(champ As Range)
compteCellulesNonVides = 0
For Each c In champ
If Not IsEmpty(c.Value) And c.Value <> 0 And c.Value <> "" And Not
c.HasFormula Then
compteCellulesNonVides = compteCellulesNonVides + 1
End If
Next c
End Function

Cordialement JB

Merci,JB tu es génial, enfin pour moi ;-)

Michel