Commentaire dans cellule a l'aide d'un textbox

[yves03]

Bonjour à tous,
Je souhaiterais pouvoir recuperer la valeur d'un textbox et l'inserer en commentaire d'une cellule. et j'ai un soucis
J'arrive a ecrire un commentaire avec un texte fixe a l'aide d'une macro, mais je n'arrive pas a recuperer la valeur d'un textbox.
Si quelqu'un peut m'aider;
Merci d'avance

 

[Pierrot93]

Re : Commentaire dans cellule a l'aide d'un textbox

Bonjour Yves

regarde le code ci-dessous, suppose un textbox de la barre d'outils "boites à outils contrôles" placé sur la feuille 1, nom feuille et textbox à adapter :

Sub test()
Dim c As Comment
With Range("A1")
    Set c = .Comment
    If Not c Is Nothing Then c.Delete
    .AddComment Feuil1.TextBox1.Value
End With
End Sub

bon après midi
@+

 

[yves03]

Re : Commentaire dans cellule a l'aide d'un textbox

Bonjour Yves

regarde le code ci-dessous, suppose un textbox de la barre d'outils "boites à outils contrôles" placé sur la feuille 1, nom feuille et textbox à adapter :

Sub test()
Dim c As Comment
With Range("A1")
    Set c = .Comment
    If Not c Is Nothing Then c.Delete
    .AddComment Feuil1.TextBox1.Value
End With
End Sub

bon après midi
@+

J'ai modifie le code car mon textbox est dans un userform qui s'appelle NDF, mais j'ai une erreur sur cette ligne

.Addcomment NDF.Textbox1.Value

Dim c As Comment
With Range("A1")
    Set c = .Comment
    If Not c Is Nothing Then c.Delete
    .AddComment NDF.TextBox1.Value
End With
End Sub

Merci de ton aide

 

[yves03]

Re : Commentaire dans cellule a l'aide d'un textbox

Je met mon fichier en piece jointe
Ce sera plus simple
Merci

 

[Pierrot93]

Re : Commentaire dans cellule a l'aide d'un textbox

Re

si NDF est le nom de ton usf, cela devrait fonctionner, je vien de tester chez moi, et cela marche (excel2003), le commentaire se positionne bien sur la cellule A1 de la feuille active...
@+

 

[yves03]

Re : Commentaire dans cellule a l'aide d'un textbox

J'ai modifie la plage de cellule de C8:N18 cela ne devrait pas poser de probleme.
As tu essaye avec mon fichier ?
Merci

 

[Pierrot93]

Re : Commentaire dans cellule a l'aide d'un textbox

Re

oui, c'est justement cela qui doit poser problème, il faudrait faire une boucle "for each" sur la page pour appliquer le même commentaire à toutes ces cellules...

@+

 

[yves03]

Re : Commentaire dans cellule a l'aide d'un textbox

En fait je ne veux pas appliquer le meme commentaire à toutes les cellules, il sera different.

 

[Pierrot93]

Re : Commentaire dans cellule a l'aide d'un textbox

Re

donc il faut remettre l'adresse de la cellule concernée...

 

[yves03]

Re : Commentaire dans cellule a l'aide d'un textbox

Est ce que tu peux m'aider, car je sais pas trop comment m'y prendre
Merci d'avance

 

[Pierrot93]

Re : Commentaire dans cellule a l'aide d'un textbox

Re

en l'état vois pas trop, tu n'a qu'un seul "textbox" permettant la saisie du commentaire et rien sur le choix d'une cellule auquel il serait affecté...

 

[yves03]

Re : Commentaire dans cellule a l'aide d'un textbox

Lorsque je clique sur une cellule de mon tableau, mon userform s'ouvre et c'est donc sur la cellule active que le commentaire sera affecté.

 

[Pierrot93]

Re : Commentaire dans cellule a l'aide d'un textbox

Re

si c'est pour la cellule active, modifies le code comme suit :

Dim c As Comment
With ActiveCell
    Set c = .Comment
    If Not c Is Nothing Then c.Delete
    .AddComment NDF.TextBox1.Value
End With
End Sub

@+

 

[yves03]

Re : Commentaire dans cellule a l'aide d'un textbox

J'ai encore un probleme ça ne fonctionne bien que lorsque je selectionne le bouton radio 0 dans mon userform, lorsque je selectionne le 1 ça ne fonctionne plus, j'avais aussi essaye avec les autres et cà ne fonctionnait pas.
Je joint le fichier
Merci d'avance

 

[Pierrot93]

Re : Commentaire dans cellule a l'aide d'un textbox

Re

c'est normal puisque tu décharges l'userform entre temps, supprime toutes les instructions "Unload NDF" sauf la dernière...

@+