cs_wape
Messages postés262Date d'inscriptionsamedi 21 décembre 2002StatutMembreDernière intervention19 décembre 201011 29 sept. 2006 à 17:30
Bonjour,
Essaye qqch du genre :
With Range("A1")
If Not .Comment Is Nothing Then .Comment.Delete
.AddComment "Ceci est un commentaire normal"
End With
With Range("A2")
If Not .Comment Is Nothing Then .Comment.Delete
.AddComment "Ceci est un commentaire en gras"
.Comment.Shape.OLEFormat.Object.Characters.Font.Bold = True
End With