J'ai du mal m'exprimer sur le post précédent, le lundi matin je suis pas au top désolé...
En résumé : quand ma macro tourne, un userform avec plusierurs menus intéractifs s'affiche (désolé de ne pas l'afficher mais c'est un peu confidentiel...). Quand je sélectionne ma fonction "afficher" pour afficher des données, je souhaite qu'une plage de cellule excel s'affiche dans un nouveau userform (c'est là que mon prédécesseur a utilisé spreadsheet).
Les données que je souhaite afficher sont dans une feuille nommée "Données" et ressemblent à ceci :
Numéro Type Référence produit Programme Ligne Machine DateOuverture
261 P NA Tout Pgm A MT 27/09/2011
72 S M 1 A Toutes machines 09/11/2011
512 O L 2 B SN 10/03/2012
J'ai activé Microsoft Office Spreadsheets owc 11.0 comme v uplus haut, mais lorsque je clique sur "afficher", rien n'est affiché.
Pour info : le code pour le spreadsheet :
L = Sheets("Données").Range("A65536").End(xlUp).Row + 1 'Rechercher la dernière ligne non vide
'copier la feuille Données dans le SpreadSheet Afficher tout
Worksheets("Données").Activate
'mettre le tableau dans la SpreadSheet
x = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Address
Table = Range("A1:" & x)
Tableau.ActiveSheet.Range("A1:" & x) = Table
'mise en forme de la table dans le spreadsheet
Tableau.Columns("A:S").AutoFit 'largeur colonnes
Tableau.Rows(1).Font.Bold = True 'gras sur ligne 1
Tableau.Columns("A:S").AutoFilter 'filtre auto
Tableau.Columns("A:K").HorizontalAlignment = xlCenter 'centrer le texte