Spreadsheet et commentaires

[Jorge79]

Bonjour,

J'ai eu beau chercher dans plusieurs sites,je n'ai jamais trouver de réponse.
J'utilise un spreadsheet dans une form pour afficher les données d'une feuille de calcul lors de l'initialisation de la form.
J'utilise ce bout de code afin de remplir mon spreadsheet :

x = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Address
Tableau = Range("A1:" & x)
Spreadsheet1.ActiveSheet.Range("A1:" & x) = Tableau​

Cela fonctionne bien, enfin presque bien car mon soucis vient que les commentaires de ma feuille de calcul n'apparaissent pas dans le spreadsheet.
Comment faire afin que les commentaires apparaissent.
Merci de vos réponses.

 

[Jorge79]

Re : Spreadsheet et commentaires

Personne pour m'aider??

 

[gilbert_RGI]

Re : Spreadsheet et commentaires

Bonjour

le Spreadsheet n'a plus l'air d'être employé dans les nouvelles versions d'excel ????

 

[Jorge79]

Re : Spreadsheet et commentaires

Merci de ta réponse.
Je n'ai que version excel de 2002.
J'ai va avoir un très gros problème 🙁

 

[Staple1600]

Re : Spreadsheet et commentaires

Bonsoir


Tableau = Range("A1:" & x)

Tableau contient la valeur des cellules.

C'est donc normal que tu n'es pas les commentaires.

Voici un exemple succinct qui mets les commentaires des cellules A1 et A2 dans l'Array t

Sub a()
Dim i&, t(2)
Randomize
[A1].Comment.Text CStr(Int((Rnd * 123) + 1))
[A2].Comment.Text CStr(Int((Rnd * 321) + 1))
For i = 0 To 1
t(i) = Cells(i + 1, 1).Comment.Text
Next i
MsgBox t(1)
[A2].Activate
End Sub

 

[Jorge79]

Re : Spreadsheet et commentaires

Merci. Je vais tester cela quand j'aurais le temps.

 

[Jorge79]

Re : Spreadsheet et commentaires

Je ne voit pas comment intégrer ton code à mon spreadsheet.