Insérer un tableau excel dans un UserForm

Bonjour,
Je ne trouve pas de solution simple et fiable pour insérer un tableau de plusieurs lignes et colonnes dans un Userform crée dans EXCEL 2016
L'idée est en faite d'avoir une présentation "utilisateur" d'un tableau en consultation.
Je suis ouvert sur vos propositions ou remarques car tous les tutos sur ce sujet ne me donne pas satisfaction.
Certains parlent de Spreadsheet. Je n'ai pas compris si cela fonctionne sous 2016.
Je ne suis pas un pro dans le développement sous Excel. Merci de me faire des réponses complétes afin que je m'y retrouve. Au pire des cas, un fichier exel en exemple est bien venu. :P
MERCI

Bonjour à toi,

Qu'as tu essayé exactement ?

Par exemple, est-ce que le remplissage d'une ListBox avec les valeur de la plage désirée répondrait à ton besoin ?

Salut,

tu peux essayer ça.

Je ne souhaite pas une image du tableau car il faut pouvoir utiliser un ascenseur sur le coté pour faire défiler le tableau qui ne serait qu'en lecture.

cerede2000 : oui eventuellement le remplissage pourrait me convenir...

Dans ce cas super simple, tu place un ListBox dans ton USF.

Et :

Code:

---

1 2 3 4 5

Private Sub UserForm_Activate() ListBox1.ColumnHeads = True ListBox1.ColumnWidths = "100;100;100;100;100;100;100" ListBox1.RowSource = Sheets("Ventes").Range("A2:G19").Address End Sub

---

Range("A2:G19") représente la plage des valeurs que tu veux.

Petite astuce, si tu as des entêtes de colonne, commence a la lige du dessous et les headers seront automatiquement placé :)

A adapter sur le nombre de colonnes, leurs largeurs.....

Je n'y arrive pas le résultat est que je n'affiche qu'une colonne voir copie écran ci-joint. Le tableau que je souhaite afficher est pour mon exemple derrière
Pièce jointe 204671

Ah oui !

Petit oubli de ma part (que j'ai modifier directement dans les propriétés de l'USF) :

Code:

---

ListBox1.ColumnCount = 12

---

A adapter selon le nombre de colonnes ;)

SUPER !
Un grand Merci

bonsoir
et pour améliorer la version de cerede2000 je fait ceci
le dimensionne les colonne a l'identique

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub UserForm_Activate() Dim plage As Range, i As Long, large With Sheets("Ventes") Set plage = .Range("A2").CurrentRegion For i = 1 To plage.Columns.Count: large = large & ";" & Round(plage.Columns(i).Width): Next ' on capture la largeur des colonnes large = Mid(large, 2, 200) With Me.ListBox1 .RowSource = plage.Address .ColumnHeads = True .ColumnWidths = large .ColumnCount = plage.Columns.Count End With End With End Sub

---

et voila

J'y avais pensé mais j'avais la flemme :ptdr:

Merci
Sauf que pour le coup, je n'ai plus l’entête des colonnes. la ligne1 ne sert plus a nommer mes colonnes.
Pour compliquer le dossier, on imagine que cette liste doit me permettre de pointer les lignes (avec une case a cocher en bout de ligne par exemple) pour que je flag les lignes à transférer.
Comment faire ?
La flag doit me faire un retour dans mon tableau excel avec une cellule en bout de ligne qui passe à -1 par exemple pour que je puisse ensuite par macro repérer les lignes flaguées et les transférer
Je suis ouvert aux propositions : Merci de me remettre l'intégralité du développement à chaques propositions pour que je m'y retrouve.
MERCI

re

exemple listbox avec case a cocher et le message t'affiche les lignes sélectionnées qui doivent normalement correspondre au même tableur dans le sheets
place le bouton dans ton userform !!!!!!!!!!!!!!!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Private Sub CommandButton1_Click() With ListBox1 For i = 1 To .ListCount - 1 If .Selected(i) = True Then mess = mess & i & vbCrLf Next End With MsgBox mess End Sub Private Sub ListBox1_Click() MsgBox ListBox1.ListIndex End Sub Private Sub UserForm_Activate() Dim plage As Range, i As Long, large With Sheets("Ventes") Set plage = .Range("A1").CurrentRegion For i = 1 To plage.Columns.Count: large = large & ";" & Round(plage.Columns(i).Width): Next ' on capture la largeur des colonnes large = Mid(large, 2, 200) With Me.ListBox1 .RowSource = plage.Address .ColumnHeads = True .ColumnWidths = large .ColumnCount = plage.Columns.Count .ListStyle = 1 .MultiSelect = 1 End With End With End Sub

---

Citation:

---

Je suis ouvert aux propositions : Merci de me remettre l'intégralité du développement à chaques propositions pour que je m'y retrouve.

---

évite de formuler tes demandes comme ceci de 1 ca fou les boules car personne n'est a ta disposition de 2 c'est un forum d'entraide pas une source de code tout prêt a l'emplois
je pense pas que se soit volontaire de ta part mais pense y la prochaine fois
;)

Effectivement, ma formulation est plutôt très mal faite. C'était plutôt dans l'idée que si des gens cherchent des solutions a un problème identique, qu'il puisse directement et RAPIDEMENT trouver la solution en arrivant sur le dernier post.
J'ai toujours énormément du mal a trouver des solutions a mes problèmes sauf en épluchant tout les posts et en recomposant les différents retours.
Je suis adepte des solutions "toutes faites" sur lequel il est plus facile de partir pour améliorer ou développer des fonctions complémentaires.
Avant les forums n'existaient pas. c'était compliqué.
Maintenant les Forums sont là mais pour le coup, trop d'information tue l'information et j'ai l'impression que cela devient un moyen de discussion... au lieu d'aller a l'essentiel.
Il faut un juste milieu :P
Merci pour ta réponse...

Encore un petit truc est ça va être bon... ou se gère le titre des colonnes ?
Pièce jointe 204917

Comme indiqué dans mes premiers posts, le titre des colonnes est automatique.
Il faut décaler ta selection d'une ligne vers le bas pour ne pas prendre la ligne ou se trouve l'entête de colonne, et TADA !!!
Le nom sera automatiquement affecté :)

Je ne vois pas ou il faut mettre cette emplacement. J'ai modifié dans la ligne Set plage = .Range("A2")....
sans succes....
Je ne comprends pas encore tout le code qui est dans la boucle With.
si tu sais ce qu'il faut insérer et ou...
MERCI
Pièce jointe 204931

Ben si tu as déjà changé ça :

Code:

---

Set plage = .Range("A1").CurrentRegion

---

=>

Code:

---

Set plage = .Range("A2").CurrentRegion

---

Je ne vois pas trop....

Joins ton fichier Excel.

Même en mettant A2 ça ne fonctionne pas.
en debug pas à pas je me rend compte que
.RowSource = plage.Address et que plage.Address = $A$1:$H$25

je ne sais pas comment lui faire retirer une ligne...

Suis-je bête mais si bien sur !
C'est le CurrentRegion que viens foutre le brin !

Il renvoi de nouveau toute la plage.... en partant de A1 !
Essaye ceci :

Code:

---

Set plage = .Range("A1").CurrentRegion.Resize(-1).Offset(1)

---

On est bien d'accord, je remplace :

Code:

---

Set plage = .Range("A1").CurrentRegion

---

Par :

Code:

---

Set plage = .Range("A1").CurrentRegion.Resize(-1).Offset(1)

---

et J'ai :
erreur d'exécution 1004
Erreur définie par l'application ou par l'objet

Ah ben oui !
:mouarf: c'est bientôt le WE faut m'excuser....

Code:

---

1 2	Set plage = .Range("A1").CurrentRegion Set plage = plage.Resize(plage.Rows.Count - 1).Offset(1)

---