Commentaire VBA

Résolu/Fermé
bedoda
Messages postés
10
Date d'inscription
jeudi 14 août 2014
Statut
Membre
Dernière intervention
5 septembre 2014
- 3 sept. 2014 à 20:32
bedoda
Messages postés
10
Date d'inscription
jeudi 14 août 2014
Statut
Membre
Dernière intervention
5 septembre 2014
- 4 sept. 2014 à 19:30
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,

3 réponses

gbinforme
Messages postés
14935
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 621
3 sept. 2014 à 21:36
Bonjour,

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
0
via55
Messages postés
13807
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
19 août 2022
2 477
3 sept. 2014 à 21:53
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
0
bedoda
Messages postés
10
Date d'inscription
jeudi 14 août 2014
Statut
Membre
Dernière intervention
5 septembre 2014

4 sept. 2014 à 19:30
Bonsoir.

C'est résolu.

Merci beaucoup.

Cdl
0