Commentaire dans cellule a l'aide d'un textbox

Pierrot93

XLDnaute Barbatruc

• 25 Janvier 2009

• #2

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 :

Code:

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
@+

 

Vote positif 0 Vote négatif

Y

yves03

XLDnaute Occasionnel

• 25 Janvier 2009

• #3

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

Pierrot93 à dit:

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 :

Code:

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
@+

Cliquez pour agrandir...

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

Code:

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

 

Vote positif 0 Vote négatif

Y

yves03

XLDnaute Occasionnel

• 25 Janvier 2009

• #4

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

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

 

Pièces jointes

• Test.zip

  16.5 KB · Affichages: 61
• Test.zip

  16.5 KB · Affichages: 53
• Test.zip

  16.5 KB · Affichages: 56

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Janvier 2009

• #5

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...
@+

 

Vote positif 0 Vote négatif

Y

yves03

XLDnaute Occasionnel

• 25 Janvier 2009

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Janvier 2009

• #7

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...

@+

 

Vote positif 0 Vote négatif

Y

yves03

XLDnaute Occasionnel

• 25 Janvier 2009

• #8

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Janvier 2009

• #9

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

Re

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

 

Vote positif 0 Vote négatif

Y

yves03

XLDnaute Occasionnel

• 25 Janvier 2009

• #10

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Janvier 2009

• #11

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é...

 

Vote positif 0 Vote négatif

Y

yves03

XLDnaute Occasionnel

• 25 Janvier 2009

• #12

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é.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Janvier 2009

• #13

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

Re

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

Code:

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

@+

 

Vote positif 0 Vote négatif

Y

yves03

XLDnaute Occasionnel

• 25 Janvier 2009

• #14

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

 

Pièces jointes

• Test.zip

  21.3 KB · Affichages: 61
• Test.zip

  21.3 KB · Affichages: 56
• Test.zip

  21.3 KB · Affichages: 64

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Janvier 2009

• #15

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...

@+

 

Vote positif 0 Vote négatif