Commentaire VBA
Résolu
bedoda
Messages postés
10
Statut
Membre
-
bedoda Messages postés 10 Statut Membre -
bedoda Messages postés 10 Statut Membre -
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,
A voir également:
- Commentaire VBA
- Commentaire word - Guide
- Excel compter cellule couleur sans vba - Guide
- Clément a partagé le fichier mme bovary. il a écrit des commentaires dans le document. quel est le 2e commentaire ? ✓ - Forum Windows 7
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
3 réponses
Bonjour,
Avant tu mets la ligne :
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
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
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
