Discussion :

[jan976]

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

[Krovax]

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 :

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

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 :

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

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 :

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

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 :

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

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