Discussion :

[67jero]

Bonjour à toutes et à tous,

J'ai récupéré un userform sur le forum et je souhaiterai l'adapter un petit peu plus à ce que je fais...

En fait j'ai une listbox qui me reporte des données d'une feuille et au lieu que les données apparaissent verticalement je souhaiterai qu'elles apparaissent horizontalement comme cela en cas de doublon cela sera beaucoup plus visuel.

Merci d'avance de votre aide.

Comme je ne capte rien sur les userforms, est ce que cette modification doit elle être apporté au niveau des propriétés de la listbox ?

Merci

[toteuf]

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim source As String
Dim n As Integer
 
n = Sheets("feuil2").Range("a65536").End(xlUp).Row
 
 
source = "a2:b" & n
ComboBox1.RowSource = source

En mettant la propriété columncount à 2.
Ca donne une liste du nom et prenom (par contre verifie à bien mettre la bonne feuille dans source genre source = "feuil1!a2:b" & n au cas ou ta feuilel change de nom)
J'espere que c'est bien cela que tu demandais
Tester et approuvé :p voici ton fichier :

[67jero]

Merci beaucoup Toteuf, donc ce n'est pas exactement ce que je recherche, mais c'est en fait dans la listbox (listbox1) sous le menu déroulant (combobox1) que je souahiterai que les informations relatives à une personne apparaissent sur une ligne et non pas les une en desous des autres.

Je vais tout de même utiliser ce que tu as fait parce que je trouve cela bien pratique d'avoir le nom et prénom dans le menu déroulant.

[rvtoulon]

Slt,
avec le code de toteuf tu rajoutes ceci dans userform_initialize:

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
 
Dim source As String, sourceList as string
Dim n As Integer
 
n = Sheets("feuil2").Range("a65536").End(xlUp).Row
source = "a2:b" & n
 
ComboBox1.RowSource = source
 
' a rajouter:
sourceList = "A2:G" & n
With ListBox1
.ColumnCount = 7
.RowSource = sourceList
End With

Voila un début. Maintenant si j'ai compris tu aimerais que s'affiche les informations uniquement en fonction de la valeur de la combobox?

A+

[67jero]

Bonjour,

Merci de votre intérêt.

Cela ne fonctionne pas, la combobox et la listbox ne contiennent plus aucune donnée et il me met une erreur d'execution '-2147467259 (80004005)': erreur non répertoriée.

[rvtoulon]

Slt, je viens de tester ceci avec le fichier que tu as mis, j'ai modifé Userform initizialize comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub UserForm_Initialize()
Dim vvaleur As String, i as long
With ComboBox1
.ColumnCount = 1
For i = 2 To Sheets("Feuil2").Cells(Rows.Count, "A").End(xlUp).Row
    vvaleur = Sheets("Feuil2").Range("A" & i).Value + " " + Sheets("Feuil2").Range("B" & i).Value
    .AddItem vvaleur
Next i
End With
 
Me.ListBox1.Clear
 
End Sub

et ensuite j'ai modifié Le combox1_change comme suit:

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
 
Private Sub ComboBox1_Change()
Dim x As Long, n As Long, F2 As Worksheet
n = Sheets("Feuil2").Range("A65536").End(xlUp).Row
Set F2 = Worksheets("Feuil2")
 
 
For x = 0 To n
If ComboBox1.ListIndex = x Then
  Me.ListBox1.ColumnCount = 7
  Me.ListBox1.RowSource = F2.Name & "!" & F2.Range("A" & x + 2 & ":G" & x + 2).Address
 End If
Next x
 
End Sub

.

Donc dans un premier temps lorsque l'userform ce charge il remplit dans combobox.
dans un deuxième temps en fonction de la valeur de la combobox il affiche dans la listebox sur une ligne la valeur correspondante.
dis moi ce que t'en penses.
A+