Commentaire VBA
Résolu
bedoda
Messages postés
10
Date d'inscription
Statut
Membre
Dernière intervention
-
bedoda Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
bedoda Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
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
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Clément a partagé le fichier mme bovary. il a écrit des commentaires dans le document. quel est le 2e commentaire ? - Forum Facebook
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
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