Données cellules dans commentaire

Bonjour

est il possible de mettre les données de 4 cellules (a1;a2;b1;b2) de la feuil 1 dans un commentaire de la feuil 2

, j'ai trouvé ce code qui marche bien pour une cellule mais des que je veux associé les données d'une autre cellule il m'efface la première

[codePrivate Sub Worksheet_Activate()

With Sheets("feuil2").Range("B2")

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

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

.Comment.Shape.TextFrame.AutoSize = True][/code]

Merci d'avance

Bonsoir,

Peut-être conne ça?

Private Sub Worksheet_Activate()
 With Sheets("feuil2").Range("b2")
   If .Comment Is Nothing Then Range("b2").AddComment
   .Comment.Text Text:=Sheets("Feuil1").[A1] & ";" & Sheets("Feuil1").[A2] & ";" & Sheets("Feuil1").[B1] & ";" & Sheets("Feuil1").[B2]
   .Comment.Shape.TextFrame.AutoSize = True
 End With
End Sub

Slts

Bonjour ça marche bien mais j'ai un souci

les commentaire s'affiche bien en D4 colonne A mais j'ai une macro de copie qui me copie dans la cellule vide surement a cause de ce bout de code

Set cDest = .Range("A" & Rows.Count).End(xlUp)(2)

peut on faire l'inverse j' ai essayé avec xldown mais il me dit qu'il y a une erreur de code

voici la macro copie

Sub Copie()

 If Sheets("Donnée").Range("B5") = "" Then Call nodate
 If Sheets("Donnée").Range("B5") = "" Then Exit Sub

   Dim cDest As Range
            With Sheets("histo-rique")
         Set cDest = .Range("A" & Rows.Count).End(xlUp)(2)
         cDest.Resize(, 16).Value = Array(Range("B5").Value, Range("C5").Value, Range("D5").Value, _
         Range("E5").Value, Range("F5").Value, Range("G5").Value, _
         Range("I5").Value, Range("J5").Value, Range("K5").Value, _
         Range("L5").Value, Range("M5").Value, Range("N5").Value, _
         Range("O5").Value, Range("P5").Value, Range("Q5").Value, Range("T3").Value)
  Sheets("histo-rique").Select

  'End If
  End With
  'pour verifier doublon
  Call CommandButton1_Click
  End Sub

le fichier est trop volumineux pour pouvoir le joindre

Merci

Bonjour

ne pas prendre en compte le dernier message car j'ai contourné le problème que j'avais

tout marche bien et merci encore