ouvrir objetOLE dans usf

Question

bonjour, j'aurais besoin d'aide pour afficher des objets incorporé dans un formulaire excel (contrôle spredsheet)!
voici un code qui me permet d'afficher les données d'une feuille dans l'usf mais le souci c'est que les objetOLE n'y sont pas , si quelqu'un peut m'aider sa serais super sympas merci!

code:

Dim Tableau() As Variant
Dim x As String
    Sheets("Feuil2").Select
     x = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Address
    Tableau = Range("A1:" & x)
    Spreadsheet1.ActiveSheet.Range("A1:" & x) = Tableau


    EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI 

Merci d'y penser dans tes prochains messages.

ucfoutu · Answer

Bonjour,
Cette ligne :
Tableau = Range("A1:" & x)
crée une matrice (un tableau dynamique) aux dimensions de la plage concernée et lui affecte les valeurs (et uniquement les valeurs) des cellules de la plage en cause.
Les articles d'une telle matrice ne sauraient contenir autre chose que ces valeurs.
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

ucfoutu · Answer

Tu devrais ouvrir ton aide VBA sur la méthode Copy (rubrique 
Range.Copy, méthode) et l'appliquer en utilisant son paramètre  destination.
Il y a une grande différence entre copier des valeurs dans un tableau puis coller les valeurs de ce tableau et faire la copie d'une plage pour la coller ailleurs
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

Ouvrir objetOLE dans usf

2 réponses

Votre réponse

Discussions similaires