Comment voir si une cellule contient 1 commentaire

Bonsoir Daniel,

essaie ceci, cette petite macro REMPLACERA le commentaire de la cellule par 'blabla', si tu veux y AJOUTER 'blabla' if faut remplacer:Target.AddComment ('blabla')par:

x = Target.Comment
x = x + 'blabla'
Target.AddComment x

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo suit
cont:
Target.AddComment ('blabla')
GoTo fin
suit:
Target.ClearComments
GoTo cont
fin:
End Sub


voilà 😉

Salut Daniel, Philippe et le Forum

Pour la gestion d'erreur à éviter le plus possible.

J'aime mieux le code suivant

Pas plus compliqué que celà

Mytå from ultramarine

Message édité par: Mytå, à: 30/05/2006 02:19

Bonjour le Forum,Myta
Tu dis qu'il faut éviter la gestion d'erreurs, mais pourrais tu m'éclairer sur les inconvénients de son utilisation?
Merci de ta réponse ou celle d'un autre avisé

Bonjour le forum.

Je trouve que la gestion d'erreur est un peu lourde. Voici quelques inconvénients:

Il faut prendre en compte le numéro de l'erreur (dans le cas d'un post plus haut la moindre erreur qui n'aura pas de rapport avec les commentaires passera aussi par la boucle)

Lors d'une erreur on sort de la procédure et il faut penser à mettre à jour toutes les modif de configuration (exemple si tu as mis au début de ta macro le calcul sur ordre, il faut penser à le remettre en auto dans la gestion des erreurs sinon l'utilisateur se retrouvera, sans s'en apercevoir avec Excel en calcul sur ordre)

Je préfère éviter les erreurs en affinant le code initial: par exemple lors de la selection de la feuille 'toto' si cette feuille n'existe pas il y a une erreur donc je préfère détecter initialement si cette feuille existe. C'est comme un traitement d'erreur mais sans utiliser OnError goto