Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour thierry,
Sub Macro1() For Each co In ActiveSheet.Comments Set isect = Application.Intersect(Range(co.Parent.Address), Range(Selection.Address)) If Not isect Is Nothing Then x = x + 1 Next MsgBox x End Sub
isabelle
Bonjour à toutes zé tous !!
Y a-t-il un moyen de compter en VBA le nombre de commentaires dans une sélection de cellules ??
Merci d'avance à toutes les âmes charitables :-)))
@+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
bonjour thierry,
Sub Macro1()
For Each co In ActiveSheet.Comments
Set isect = Application.Intersect(Range(co.Parent.Address), Range(Selection.Address))
If Not isect Is Nothing Then x = x + 1
Next
MsgBox x
End Sub
isabelle
Bonjour à toutes zé tous !!
Y a-t-il un moyen de compter en VBA le nombre de commentaires dans une
sélection de cellules ??
Merci d'avance à toutes les âmes charitables :-)))
@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline
Sub Macro1() For Each co In ActiveSheet.Comments Set isect = Application.Intersect(Range(co.Parent.Address), Range(Selection.Address)) If Not isect Is Nothing Then x = x + 1 Next MsgBox x End Sub
isabelle
Bonjour à toutes zé tous !!
Y a-t-il un moyen de compter en VBA le nombre de commentaires dans une sélection de cellules ??
Merci d'avance à toutes les âmes charitables :-)))
@+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
ThierryP
Pourquoi ça parait toujours si simple après :-)))))))))
Merci mille fois isabelle
bonjour thierry,
Sub Macro1() For Each co In ActiveSheet.Comments Set isect = Application.Intersect(Range(co.Parent.Address), Range(Selection.Address)) If Not isect Is Nothing Then x = x + 1 Next MsgBox x End Sub --
@+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
Pourquoi ça parait toujours si simple après :-)))))))))
Merci mille fois isabelle
bonjour thierry,
Sub Macro1()
For Each co In ActiveSheet.Comments
Set isect = Application.Intersect(Range(co.Parent.Address),
Range(Selection.Address))
If Not isect Is Nothing Then x = x + 1
Next
MsgBox x
End Sub
--
@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline
Pourquoi ça parait toujours si simple après :-)))))))))
Merci mille fois isabelle
bonjour thierry,
Sub Macro1() For Each co In ActiveSheet.Comments Set isect = Application.Intersect(Range(co.Parent.Address), Range(Selection.Address)) If Not isect Is Nothing Then x = x + 1 Next MsgBox x End Sub --
@+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
SL
Bonsoir
ou encore : MsgBox (Selection.SpecialCells(1).Count)
Stéphane
"ThierryP" a écrit dans le message de news:
Bonjour à toutes zé tous !!
Y a-t-il un moyen de compter en VBA le nombre de commentaires dans une sélection de cellules ??
Merci d'avance à toutes les âmes charitables :-)))
@+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
Bonsoir
ou encore :
MsgBox (Selection.SpecialCells(1).Count)
Stéphane
"ThierryP" <thierryp_NO_SPAM@club-internet.fr> a écrit dans le message de
news: OlIsgkDeGHA.1856@TK2MSFTNGP03.phx.gbl...
Bonjour à toutes zé tous !!
Y a-t-il un moyen de compter en VBA le nombre de commentaires dans une
sélection de cellules ??
Merci d'avance à toutes les âmes charitables :-)))
@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline
