Copier contenu cellule dans un commentaire

OFFSET · 26 Février 2010

Bonjour à tous,

Je sollicite votre aide afin de pouvoir copier le contenu d'une cellule dans un commentaire.
Ci-dessous la solution basique que j'ai essayée et qui ne fonctionne pas du tout.

Sub commentaire2()

Range("B6").Select
Range("B6").AddComment
Range("B6").Comment.Visible = False
Range("B6").Comment.Text Text:=Range("B6").Offset(0, -1).Value

End Sub

Est-ce que quelqu'un pourrait m'aider?
Je reste à votre disposition pour tout autre informations

Merci d'avance.

Efgé · 26 Février 2010

Re : Copier contenu cellule dans un commentaire

Bonjour OFFSET,
Sur un code de Boisgontier (je crois)

Code:

cmt = Sheets("Feuil1").Cells(6, 3).Value
With Sheets("Feuil1").Cells(6,2)
 If .Comment Is Nothing Then .AddComment
      If .Comment.Text <> "" Then
          .Comment.Text Text:=.Comment.Text & Chr(10) & cmt
       Else
           .Comment.Text Text:=cmt
       End If
.Comment.Shape.TextFrame.AutoSize = True
End With
End If

Cordialement

OFFSET · 26 Février 2010

Re : Copier contenu cellule dans un commentaire

Merci mais apparement ça ne fonctionne pas.
L'erreur se fait au même endroit que sur mon sub:

.Comment.Text Text:=cmt

Cordialement

Efgé · 26 Février 2010

Re : Copier contenu cellule dans un commentaire

Re
Postez un fichier exemple, ce sera plus simple.

Hulk · 26 Février 2010

Re : Copier contenu cellule dans un commentaire

Hello Forum, Offset, Efgé,

Inspires-toi de ceci Offset

Code:

Private Sub CommandButton1_Click()
    
    Dim x As Range: Set x = [B6]
    Dim Cmt As String
    
    Cmt = x.Offset(0, -1)
    
    With x
        With .Comment
            .Text Text:=Cmt
            .Visible = False
            .Shape.TextFrame.AutoSize = True
        End With
    End With

End Sub

EDIT : Petite amélioration.

Bon week !

OFFSET · 26 Février 2010

Re : Copier contenu cellule dans un commentaire

Eureka

comme souvent l'erreur était basique, je n'avais pas déclaré le contenu à copier en tant que String.

Problème réglé.

Merci à vous deux
A+ Offset

bluesky2303 · 16 Novembre 2011

Re : Copier contenu cellule dans un commentaire

Bonjour à tous,

Je me permets de relancer le sujet, car j'ai beau essayer les exemples ci-dessus, mais je n'y arrive.
Dans mon cas, je voudrais copier le contenu de la cellulle A1 dans un commentaire de la cellulle A2.
Est-ce que quelqu'un pourrais m'aider svp ?

Merci d'avance

Dull · 16 Novembre 2011

Re : Copier contenu cellule dans un commentaire

Salut bluesky2303, le Forum

en reprenant le code de FGJacques

Code:

Private Sub CommandButton1_Click()
Cmt = Sheets("Feuil1").Cells(1, 1).Value
With Sheets("Feuil1").Cells(1, 2)
 If .Comment Is Nothing Then .AddComment
    .Comment.Text Text:=IIf(.Comment.Text <> "", .Comment.Text & Chr(10) & Cmt, Cmt)
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub

Si pas ça joint un extrait de ton fichier
Bonne Journée

Copier contenu cellule dans un commentaire

OFFSET

XLDnaute Nouveau

Efgé

XLDnaute Barbatruc

OFFSET

XLDnaute Nouveau

Efgé

XLDnaute Barbatruc

Hulk

XLDnaute Barbatruc

OFFSET

XLDnaute Nouveau

bluesky2303

XLDnaute Nouveau

Dull

XLDnaute Barbatruc

Discussions similaires