Commentaires

[Stéphane]

Bonjour,
Après avoir répondu à pas mal de questions, à mon tour d'en poser une ;-)
Comment puis-je compter les cellules qui ont un commentaire (le coin rouge)?
J'ai posé ce post sur p2p.wrox.com mais personne n'a répondu jusqu'ici... merci donc d'avance.
Stéphane

 

[C@thy]

Bonsoir Stéphane,

pour ma part j'utilise

Edition ATTEINDRE CELLULES Commentaires,

ensuite rien ne t'empêche de le faire par macro avec l'enregiustreur de macros et de faire :

for each cel in selection toto = toto+1 et tu auras le nombre de cellules.

C@thy

 

[@+Thierry]

Re-Salut Stéphane, Coucou à C@thy, hello Forum

Heu oui C@thy, mais un peu expéditif comme reply ! (lol)

Moi j'ai préparé ceci :

Sub CountComment()
Dim C As Comment
Dim i As Byte

For Each C In ActiveSheet.Comments
i = i + 1
Next

MsgBox i

End Sub

Bonne soirée à tous et toutes
@+Thierry

 

[@+Thierry]

Re-Salut Stéphane, Coucou à C@thy, hello Forum

Heu oui C@thy, mais un peu expéditif comme reply ! (lol)

Moi j'ai préparé ceci :

Sub CountComment()
Dim C As Comment
Dim i As Byte

For Each C In ActiveSheet.Comments
i = i + 1
Next

MsgBox i

End Sub

Bonne soirée à tous et toutes
@+Thierry

 

[C@thy]

SUPER Thierry, c'est vrai, j'avais pas tout dit. Merci à toi pour ce petit cours VBA gratuit.


C@thy

 

[C@thy]

Re tout le monde,

ah ben tiens, on peut faire encore plus court :

Sub CountComment()
Dim C As Comment
Dim i As Byte

i = ActiveSheet.Comments.Count

MsgBox i & " commentaires"

End Sub

C@thy

 

[Stéphane]

Big bigup à tous...
Ca va bien me servir!
Stéphane de Be

 

[@+Thierry]

Bonsoir tout le monde

Perfecto C@thy !!!!!

Bravo

Bonne Soirée

@+Thierry