aide sur fonction pour excel 2000

Avec une fonction perso à mettre dans un module ordinaire :

Function NB_COMMENT(plg As Range)
z = 0
For Each c In plg
On Error Resume Next
x = c.Comment.Text
If Err.Number = 0 Then z = z + 1
Next
NB_COMMENT = z
End Function

AV

Hum..
Il serait bon, peut-être, d'ajouter en début de fonction :
Application.Volatile

et de mettre dans le module de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Tout ça, histoire de "booster" la mise à jour

AV

Bonjour,

Histoire de ...
;-)

Sub CountComment()
MsgBox NbComment
End Sub

Public Function NbComment() As Long
On Error GoTo YenAPas
NbComment = Cells.SpecialCells(xlCellTypeComments).Count
On Error GoTo 0
'suite du code
Exit Function
YenAPas:
NbComment = 0
Resume Next
End Function

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Meyer Philippe" <anonymous@discussions.microsoft.com> a écrit dans le
message de news: 054d01c4aab2$3af8a1d0$a601280a@phx.gbl...
bonjour,
il se trouve que j'ai un soucis avec excel.
je cherche un moyen, d'identifier le nombre de cellules
d'un tableau qui possèderais des commentaires.
Pouvez vous m'aider.
Merci.

Bonjour
Function NbComment(NomF As String) As Long
If NomF <> "" Then NbComment = Worksheets(NomF).Comments.Count
End Function
Cordialement
Pascal


"Meyer Philippe" <anonymous@discussions.microsoft.com> a écrit dans le
message de news:054d01c4aab2$3af8a1d0$a601280a@phx.gbl...
bonjour,
il se trouve que j'ai un soucis avec excel.
je cherche un moyen, d'identifier le nombre de cellules
d'un tableau qui possèderais des commentaires.
Pouvez vous m'aider.
Merci.

Bonjour Philippe,

Et une autre fonction possible ...

'---------------
Function NbComments(Rg As Range)

Application.Volatile
NbComments = Rg.Worksheet.Comments.Count

End Function
'---------------


Et pour forcer une certaine mise à jour, (L'ajout d'un commentaire ne provoque aucun événement susceptible de mettre à jour
le résultat de la fonction), ajoute ceci au module feuille où se déroule l'action ...
'----------------
Private Sub Worksheet_Calculate()

Application.EnableEvents = False
Calculate
Application.EnableEvents = True

End Sub
'----------------


Salutations!



"Meyer Philippe" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:054d01c4aab2$3af8a1d0$a601280a@phx.gbl...
bonjour,
il se trouve que j'ai un soucis avec excel.
je cherche un moyen, d'identifier le nombre de cellules
d'un tableau qui possèderais des commentaires.
Pouvez vous m'aider.
Merci.

Ave Denis,

Function NbComments(Rg As Range)
Application.Volatile
NbComments = Rg.Worksheet.Comments.Count
End Function

Il me semble que la fonction renvoie le nbre total de commentaires de la feuille
et non celui de la plage sélectionnée...

AV

Bonjour Av,

Tu as raison AV, je prends un second café ... et je reviens !!!

;-))


Salutations!


"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:erw1DftqEHA.4008@TK2MSFTNGP14.phx.gbl...
Ave Denis,

Function NbComments(Rg As Range)
Application.Volatile
NbComments = Rg.Worksheet.Comments.Count
End Function

Il me semble que la fonction renvoie le nbre total de commentaires de la feuille
et non celui de la plage sélectionnée...

AV