Discussion :

[LizLisonLisette]

Bonjour,

Je ne trouve pas du tout comment utiliser une zone de texte de formulaire type "UserForm" pour intégrer le blabla de l’utilisateur directement en "commentaire de cellule".

(Je ne souhaite pas ajouter de colonne pour prendre en compte les commentaires des utilisateurs).

Est-ce seulement possible?

PS : Questions subsidiaires (bonus):
- Peut-on se débrouiller pour que ce commentaire (la taille d'affichage du commentaire) s'adapte automatiquement à la longueur du blabla inscrit via le formulaire?
- Si blabla=vide, peut-on se débrouiller pour "supprimer le commentaire de cellule" au lieu d'afficher une case de commentaire vide?

MERCI++ d'avance pour votre aide.

[Philippe PONS]

Salut,

une piste:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
    Dim sComment As String
    sComment = "blabla"
 
    If Len(sComment) > 0 Then
        Range("C6").AddComment sComment 
    Else
        Range("A1").ClearComments
    End If
End Sub

[Philippe Tulliez]

Bonjour,
En complément de la réponse de Philippe, je t'encourage à lire cette excellente contribution sur le sujet Manipuler les commentaires sous excel

[LizLisonLisette]

Bonjour, et merci !

Je m'en suis finalement sortie comme ça, avec le code de Philippe P. :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    Dim sComment As String
    sComment = TextBoxX
    .ClearComments
    .AddComment
    .Comment.Visible = False
    .Comment.Text Text:=sComment
    .Comment.Shape.Width = 150
    .Comment.Shape.Height = 70
 
    Dim sCommentExistant As String
    sCommentExistant = ActiveCell.Comment.Text
 
If Len(sCommentExistant) > 0 Then
        ActiveCell.ClearComments
 
    If Len(sComment) > 0 Then
        ActiveCell.AddComment sComment
    Else
        ActiveCell.ClearComments
    End If
 
End If

Et grâce à Philippe T j'ai maintenant une idée plus précise de tout ce qu'on peut faire avec les commentaires et VBA...
Très très intéressant !

Merci les Philippes, pb résolu. :-)

[LizLisonLisette]

Bonjour,

Finalement il me reste un pb...
Dans le cas ou sComment="" j'ai une erreur 1004...

C'est le cas ou il existe déjà un commentaire dans la cellule,
--> je réouvre le formulaire, je supprime le commentaire dans ma TextBox, je valide
--> Erreur à la ligne 6

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    .Comment.Text Text:=sComment

Je n'arrive pas à traiter ce cas de figure...

Merci d'avance pour ce dernier coup de pouce

[eriiic]

Bonjour,

Teste la longueur de TextBoxX et ne fait le .AddComment et la suite que si >0

Peut-on se débrouiller pour que ce commentaire (la taille d'affichage du commentaire) s'adapte automatiquement à la longueur du blabla inscrit via le formulaire?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Comment.Shape.TextFrame.AutoSize = True

eric