Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Spreadsheet et commentaires

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Jorge79

XLDnaute Nouveau
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.
 
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
Code:
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…