Re: => Mini Démo Jouer avec la Creation de commentaires !!!!
Bonsoir Mytå, Cyril, le fil et le forum,
Super Mytå, je n'ai même pas pensé à associer directement la propriété Comments à une WorkSheet. Bravo !! moi j'ai cherché bêtement à l'associer à Range.
Et c'est vrai qu'un tour dans l'aide dit bien ceci :
Utilisez la propriété Comments pour renvoyer la collection Comments. L'exemple suivant montre comment masquer tous les commentaires de la feuille de calcul Worksheet 1.
Set cmt = Worksheets(1).Comments
For Each c In cmt
c.Visible = False
Next
Donc oui à partir de là çà roule !
Donc ensuite je me suis tracassé pour ton "ReDim a(Nbre) As String"... J'ai pas vraiment suivi cette complication.... Enfin c'est très bien trouvé, mais je crois que tu t'ai mélangé les pinceaux !!! Ta macro tourne parfaitement ainsi :
Sub Trouver_Comments_Boucle_For_next()
Dim texte As String
Dim c As Object
For Each c In ActiveSheet.Comments
texte = texte & vbCrLf & c.Parent.Address
Next
If texte = "" Then
MsgBox ("Vous n'avez aucun commentaire sur cette page." & vbCrLf & texte)
Else
MsgBox ("Vous avez des commentaires sur les cellules : " & vbCrLf & texte)
End If
End Sub
(lol)
Dans la foulée j'ai pondu une autre méthode cousine :
Sub Trouver_Comments_Boucle_For_I_To_X()
Dim i As Integer
Dim texte As String
For i = 1 To ActiveSheet.Comments.Count
texte = texte & vbCrLf & ActiveSheet.Comments.Item(i).Parent.Address
Next
If texte = "" Then
MsgBox ("Vous n'avez aucun commentaire sur cette page." & vbCrLf & texte)
Else
MsgBox ("Vous avez des commentaires sur les cellules : " & vbCrLf & texte)
End If
End Sub
T'inquiète pas çà m'arrive très souvent de laisser un tas de trucs inutiles dans mes codes car j'ai tellement traffiqué et changé d'orientation en développant qu'après çà saute plus au yeux !!
Bonne Soirée
@+Thierry
)))
