Plusieurs cellules à inserer dans un commentaire

Bonjour à tous,

Est il possible d'inserer toutes mes cellules dans un commentaire pour pouvoir les visualiser

en passant la souris

En cherchant dans différent forum j'ai trouver ceci mais pour 1 cellule seulement

Private Sub Worksheet_Change(ByVal Target As Range)

With Range("F7")

If .Comment Is Nothing Then Range("F7").AddComment

.Comment.Text Text:=Sheets("Feuil1").[CZ11].Value

.Comment.Shape.TextFrame.AutoSize = True

End With

End Sub

Merci de votre aide

Bonjour

Remplaces la macro existante par celle-ci

PS: Je ne sais pas comment aligner le texte dans le commentaire (la tabulation ne passe pas)

Private Sub Worksheet_Calculate()
Dim J As Long
Dim Msg As String
Dim I As Integer

 With Range("F7")
  Msg = Range("CZ11") & Chr(10) & Range("CZ12")
  For J = 13 To 22
    Msg = Msg & Chr(10)
    For I = 104 To 107
      Msg = Msg & Cells(J, I) & ", "
    Next I
    Msg = Left(Msg, Len(Msg) - 2)
  Next J
  If .Comment Is Nothing Then Range("F7").AddComment
   .Comment.Text Text:=Msg
   .Comment.Shape.TextFrame.AutoSize = True
 End With
End Sub

Bonjour banzai64,

Merci pour ce code cela fonctionne bien.

Pour l'alignement je vais m'arranger, mais si jamais tu trouve une autre solution,

pense à moi.

Merci beaucoup pour ton aide.

Bon après midi à toi et au forum.

A+

bonjour à tous,

je galère depuis 2 jours pour faire similairement la même chose, mais en ligne...

dans la feuille "2017 1 "je souhaite mettre C8;D8;E8 en commentaire en B8, chacun sur 1 ligne différente du commentaire.

j'ai beau adapté le code, ça ne passe pas. j'y arrive pour 1, mais pas 3 (sans doute un truc dans la boucle que je pige pas... )

si qq peut m'aider.

merci d'avance aux petits génies!

fab