Commentaire et vba

[Kacy]

Bonjour,

Je dois écrire un commentaire dans une cellule. Ce commentaire doit provenir d'une zone de texte de mon formulaire.

Avez vous une solution SVP?

Merci

 

[Pepitoww]

Re : Commentaire et vba

Bonjour,
Quelque chose qui ressemble à sa ?
Avec une TextBox et un bouton permettant de "valider" le commentaire.

Private Sub BoutonValide_Click()
  If Trim(TextBox.Text) <> "" Then 'Si on à bien écrit un commentaire
      Sheets("Feuil1").Select
      Range("A1") = TextBox.Text
  End If
End Sub

Après tu selectionnes l'endroit approprié (cellule) pour placer le commentaire.

 

[Pierrot93]

Re : Commentaire et vba

Bonjour,

regarde peut être le code ci-dessous :

Sub test()
With ActiveCell
    If Not .Comment Is Nothing Then .Comment.Delete
    .AddComment Sheets("Feuil1").Shapes("Rectangle 1").DrawingObject.Text
    .Comment.Visible = False
End With
End Sub

nom des objet à adapter....

bonne journée
@+

 

[Pepitoww]

Re : Commentaire et vba

Exact Pierrot93, je n'ai pas pris "commentaire" à son premier sens...

 

[Kacy]

Re : Commentaire et vba

Merci de votre rapidité,

Je suis en train d'essayer le code mais par contre est-ce qu'il faut l'écrire dans le code de la feuille , du module ou du userform?

 

[Pierrot93]

Re : Commentaire et vba

Re,

A priori dans le module de l'USF...

 

[Kacy]

Re : Commentaire et vba

Ca ne marche pas. J'ai un message qui dit "erreur définie par l'application ou par l'objet".
Est-ce que ça vous quelque chose?

 

[Pierrot93]

Re : Commentaire et vba

tu parles de quel code.... si c'est du mien il va chercher le texte dans une forme automatique posé sur une feuille de calcul... modifie peut être cette ligne :

.AddComment Sheets("Feuil1").Shapes("Rectangle 1").DrawingObject.Text

Ainsi :

.AddComment Me.TextBox1.Value

si le code est exécuté à partir de l'usf...

 

[Kacy]

Re : Commentaire et vba

Je viens d'essayer j'ai un autre message qui dit "utilisation incorrecte du mot clé Me".

De plus j'ai du mettre le code dans un module.

 

[Pierrot93]

Re : Commentaire et vba

Et bien enlève le "me" et remplace le par le nom de l'usf....

 

[Kacy]

Re : Commentaire et vba

Je l'ai mis dans le userform mais il ne se passe rien je ne vois pas dans pma cellule le petit point rouge.

Une idée?

 

[Pierrot93]

Re : Commentaire et vba

Re

sans un bout de fichier et sans voir précisément le code utilisé, difficile pour moi de t'aider plus... mets un tout petit fichier en pièce jointe présentant uniquement le problème posé...

 

[Kacy]

Re : Commentaire et vba

j'ai un peu cherché et j'ai réussi a avoir quelque chose. Je m'explique :

Voici le code :

-------------------------------------------------------------------------------------

Private Sub TextBox1_Change //textbox dans un formulaire dans laquel j'entre un mot
If TextBox1.text = "" Then // test si il y a quelque chose d'écrit, si oui on colore les cellule et on met un commentaire
Sheets("Feuil1").Range("A1:A100").Interior.ColorIndex = 0 // Colore en blanc la colonne A de la ligne 1 à 100
Else
Sheets("Feuil1").Range("A1:A100").Interior.ColorIndex = 8 // Colore en bleu la colonne A de la ligne 1 à 100
With Range("A10")
.Activate
.AddComment //Ligne qui pose problème
.Comment.Text Text:="TextBox1 //écrire en commentaire ce qui est rentré dans la textbox
ActiveCell.Comment.Visible = True
.Comment.Shape.Slect True
End With
End If
End Sub

------------------------------------------------------------------------------------

L'erreur qui s'affiche est la suivante :

----"Erreur définie par l'application ou par l'objet"--------------------------------------


Cependant dans mon tableau j'ai un commentaire vide qui s'affiche;

Pouvez-vous m'expliquer cela?

Merci beaucoup

 

[Pierrot93]

Re : Commentaire et vba

Re

il y a sans doute déjà un commentaire sur cette cellule, c'est cela que j'avais mis un test afin d'effectuer le contrôle au préalable, et supprimer le commentaire existant le cas échéant...

Sub test()
With ActiveCell
    [COLOR="Blue"][B]If Not .Comment Is Nothing Then .Comment.Delete[/B][/COLOR]    .AddComment Sheets("Feuil1").Shapes("Rectangle 1").DrawingObject.Text
    .Comment.Visible = False
End With
End Sub

bonne soirée
@+

 

[Kacy]

Re : Commentaire et vba

bonjour,

Merci pour ta réponse🙂

J'ai essayé avec la ligne que tu m'as dit et ça a l'air de convenir mais j'ai un problème sur la ligne où je vais chercher le texte dans la textbox ".Comment.Text Text:=TextBox1", il me marque "erreur définie par l'application ou par l'objet"

je pense que j'écris mal la ligne.