CompterCelluleContenantUneFormule

M

Moa

Guest
Salut à Toutes et tous !

Est-il possible, avec une formule ( pas en Vba), de compter les cellules contenant UNE FORMULE ?


Merci beaucoup d'avance

@ +

Moa
 
C

Cathy

Guest
Bon, Moa,

j'ai grignotté u, biscuit au chocolat, (pas bon por ma ligne, ça!), et ça va mieux...


OK, tu as un résultat dans toto, donc après :

if toto > 0 then
range("DS14").value = 0
else
range("DS14").value = 1
end if

Cathy
 
C

Cathy

Guest
Range("ds16:ds17").Select
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
For Each cell In Selection
toto = toto + 1
Next
' MsgBox toto

If toto > 0 Then
Range("DS14").Value = 1
Else
Range("DS14").Value = 0
End If


Cathy
 
M

Moa

Guest
Eh bien ma p'tit Cat, ça marche plus de bug, mais en l'occurence, si il n'y a plus de bug en cas de cellule vide, le résultat est devenu faux...héhé..

Décidément, c'est vraiment prise de tête.

Merci encore à toi...j'y retourne

@ +

Moa
 
C

Cathy

Guest
Ah oui, Moa, t'as raison!

Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 19/02/2003 par Cathy

Range("ds16:ds17").Select
On Error GoTo Fin
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
For Each cell In Selection
toto = toto + 1
Next
MsgBox toto
If toto > 0 Then
Range("DS14").Value = 1
Else
Range("DS14").Value = 0
End If
Fin:
End Sub

Cathy
 

Discussions similaires

Réponses
10
Affichages
300

Statistiques des forums

Discussions
312 839
Messages
2 092 680
Membres
105 509
dernier inscrit
hamidvba