création d'un tableau dans une userform

Bonjour,

Deux petitres questions VBA :
1. Je cherche le moyen de créer un tableau dans une userform, permettant de présenter les valeurs renvoyées par une feuille excel. Comment cela est il possible, existe un control complémentaire pour cette fonction ?

2. D'autre part, je pense que cette question est régulièrement posée mais comment supprimer les vides et les doublons dans une combobox issue d'une selection de cellules ?

Merci d'avance

Bonjour,
Pour la question 2 le mieux est a mons avis une collection qui sert a alimenter la textbox et tu fait attention a ne pas y mettre de vide

http://silkyroad.developpez.com/excel/doublons/#LIV
et tu remplaces

Code:

---

1 2 3 4

For i = 1 To Un.Count 'Ecrit le résultat dans la fenêtre d'exécution (Ctrl+G) Debug.Print Un.Item(i) Next i

---

par

Code:

---

1 2 3

For i = 1 To Un.Count combobox1.additem Un.Item(i) Next i

---

Pour le premier
soit tu utilise un des controle supplémentaire pour afficher une feuille excel dans ton userform ou alors tu utilise un code qui transforme une plage en image et insert l'image dans le userform
(je te cherche le lien pour le deuxième)

edit pas retrouvé la contribution/faq/tuto en question voici le code que j'avais utilisé

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 28 29 30 31 32

Sub exporter_Feuille_ImageJPG() Dim ligne As Integer, Colonne As Integer   Application.ScreenUpdating = False If Dir(fichier2) <> "" Then Kill fichier2 'Copie, en tant qu'image, les cellules utilisées dans la feuille. Feuil9.Range("K3:M4").CopyPicture Feuil9.Paste   'Récupére la position des dernières lignes et colonnes utilisées. 'Cette information va servir à redimensionner la taille de l'image. ligne = Feuil9.Cells.Find("*", Feuil9.Range("A1"), SearchDirection:=xlPrevious).Row + 1 Colonne = Feuil9.Cells.Find("*", Feuil9.Range("A1"), SearchDirection:=xlPrevious).Column + 1   'Crée un graphique temporaire With Feuil9.ChartObjects.Add(0, 0, Feuil9.Cells(ligne, Colonne).Left, Feuil9.Cells(ligne, Colonne).Top).Chart .Paste 'exporte l'image sur le disque dur, dans le même répertoire que ce classeur. .Export fichier2, "JPG" End With     With Feuil9 .Unprotect 'Supprime le graphique temporaire .ChartObjects(Feuil9.ChartObjects.Count).Delete 'Supprime l'image dans la feuille. .Shapes(Feuil9.Shapes.Count).Delete End With Image2.Picture = LoadPicture(fichier2) Application.ScreenUpdating = True End Sub

---

Fichier 2 est une variable privée de tyupe chaine de caractère (string) pour tout le userform initialisé ainsi

Code:

---

1 2	fichier2 = Environ("TEMP") & "\ImageTemp2.gif"

---