Commentaire VBA
Résolu
Bonjour,
Je voudrai savoir si il est possible de faire un truc du genre:
Avec VBA: vérifier si la cellule contient déjà un commentaire.
Si oui, n'en rajouter pas
Si non, ajouter le commentaire donné.
J'ai essayé mais aucun succès. Les commentaires s'ajoutent les uns parès les autres.
Exemple:
Commentaire = "Hello"
Après avoir cliquer sur mise à jour,
Les commentaires sont devenus HelloHello
Et à chaque fois que je clique sur mise à jour, un de plus s'ajout et etc.
Merci de votre aide.
Cdlm,
Je voudrai savoir si il est possible de faire un truc du genre:
Avec VBA: vérifier si la cellule contient déjà un commentaire.
Si oui, n'en rajouter pas
Si non, ajouter le commentaire donné.
J'ai essayé mais aucun succès. Les commentaires s'ajoutent les uns parès les autres.
Exemple:
Commentaire = "Hello"
Après avoir cliquer sur mise à jour,
Les commentaires sont devenus HelloHello
Et à chaque fois que je clique sur mise à jour, un de plus s'ajout et etc.
Merci de votre aide.
Cdlm,
3 réponses
-
ContributeurBonjour,
Avant tu mets la ligne :If ActiveCell.Comment Is Nothing Then
--
'ajout commentaire
Toujours zen
La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer. Antoine de Saint-Exupéry -
Bonsoir
La macro suivante crée un commentaire en A1 avec le texte voulu si A1 n'a pas déjà de commentaire
Sub commentaire()
With Range("A1")
If .Comment Is Nothing Then
.AddComment ' Création commentaire
.Comment.Text Text:=InputBox("Nouveau commentaire")
.Comment.Shape.TextFrame.AutoSize = True
End If
End With
End Sub
A adapter à tes besoins
Cdlmnt
-
Bonsoir.
C'est résolu.
Merci beaucoup.
Cdl
