Discussion :

[Rogeure]

Bonjour,

J'ai inséré une feuille de calcul dans un userform (à travers Spreadsheet).

Je souhaiterais n'afficher que certaines colonnes mais pas toutes.

J'ai écrit ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Dim Tableau() As Variant
Dim DerCel As String
Sheets("Manuels_Stock").Activate
DerCel = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Address
Tableau = Range("D1:" & DerCel)
Spreadsheet1.ActiveSheet.Range("D1:" & DerCel) = Tableau
End Sub

mais il persiste à m'afficher les colonnes A, B et C.

Où est l'erreur ?

Merci pour vos réponses et bonne soirée

[Invité]

Bonjour

L'erreur est d'utiliser UsedRange.

Utiles End pour récupérer la dernière ligne de la colonne D.

C'est un exemple de la FAQ : http://excel.developpez.com/faq/?pag...reLigneNonVide

Philippe

[Rogeure]

Bonsoir Philippe,

Merci pour ta réponse mais en remplaçant UsedRange par end, le message d'erreur suivant s'affiche :

PROPRIETE OU METHODE NON GEREE PAR CET OBJET.

Je souhaite afficher les colonnes de D à X ou Y (dernière cellule de la colonne X ou Y) et surtout pas les colonnes A, B et C.

[Rogeure]

Bonsoir,

Pourriez-vous solutionner mon problème ?

Merci et bonne soirée