Discussion :

[nekro65]

Bonjour !

J'ai farfouillé un peu partout sur le forum et je suis tombé sur cet exemple :

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
Sub FillCombo()
 
Dim db As DAO.Database
Dim rec As DAO.Recordset
 
curshname = ActiveSheet.Name
Set db = DAO.OpenDatabase("C:\Temp\MaBase.mdb", False, False)
 
Set rec = db.OpenRecordset("SELECT unChamp FROM MaTable WHERE Machin = 'toto'", DAO.dbOpenSnapshot)
 
For Each sh In ActiveWorkbook.Sheets(curshname).Shapes
    If sh.Type = msoFormControl And sh.Name Like "Drop*" Then
        sh.Select
            Do While Not (rec.EOF)
                Selection.AddItem rec.Fields(0).Value
                rec.MoveNext
            Loop
        Exit For
    End If
Next sh
 
rec.Close
db.Close
 
Set rec = Nothing
Set db = Nothing
 
End Sub

Jusque la pas de soucis. par contre impossible d'éffacer les valeurs contenus dans la liste de même je ne comprend pas comment récuperer la valeur saisis par l'utilisateur.

je ne connaissais pas le code Sh.type ... et selection.additem. je pensais naivement qu'avec un selection.recordcount ou listcount je pourrais récuperer le nombre d'élement présent dans ma liste et par la suite faire une boucle pour y éffacer, de même je pensais a un selection.value pour récuperer la valeur. Mais rien ne marche !

Si quelqu'un pouvait m'expliquer ou me donner un lien qui me permettrait de comprendre je vous en serais tres reconnaissant !

[SilkyRoad]

bonsoir

Je n'ai pas regardé ton code en détail mais tu peux tester

Code :

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

Selection.Clear

pour effacer le contenu de la liste


bonne soirée
michel

[nekro65]

Bonjour ! Merci pour la réponse malheureusement j'avais déja essayer il me dit : "erreur d'execution 438 propriete ou méthode non gérée par cet objet"



Par contre j'arrive a retourner le numero de ligne qui a été selectionné par l'utilisateur dans la liste

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
For Each Sh In ActiveWorkbook.Sheets("Tableau par LCT").Shapes
If Sh.Type = msoFormControl And Sh.Name Like "Choix_Posit*" Then
 
Sh.Select
 
Selection.Value
MsgBox Selection.Value
Exit For
 
 
End If
Next Sh

Par contre ce qui m'interresse c la valeur de cette ligne ...

Si vous avez une idée !

[SilkyRoad]

bonsoir

je n'avais pas fait attention qu'il s'agissait d'un objet de la barre d'outils formulaires.
pour supprimer le contenu de la liste :

Code :

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

1
2
3
4
Dim Ws As Worksheet
 
Set Ws = ThisWorkbook.Worksheets("Feuil1")
Ws.Shapes("Zone de liste 2").ControlFormat.RemoveAllItems

bonne soirée
michel

[SilkyRoad]

rebonsoir

et pour ta deuxième question :

Comment identifier les lignes sélectionnées dans une Listbox formulaire ?


bonne soirée
michel

[nekro65]

Merci de vous être penchez sur mon cas

j'ai enfin compris comment sa marche !

je marque ici ce que j'ai compris si d'autre personne tombe sur le même cas :

Code :

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

1
2
3
4
5
6
7
8
9
Dim Ws As Worksheet
 
Set Ws = ThisWorkbook.Worksheets("Feuil1")
Dim valeur As Integer
'Shapes désigne le bouton formulaire donc ici on marque le nom de ce bouton entre les ""
valeur = Ws.Shapes("Choix_Posit").ControlFormat.Value
'on recupère la ligne qui a été selectionné par l'utilisateur
MsgBox Ws.Shapes("Choix_Posit").ControlFormat.List(valeur)
'on affiche grace à la ligne la valeur de celle-ci