Discussion :

[Rogeure]

bonjour,

Je souhaiterais afficher la listbox LBoxEquPouA dans l'onglet POULES de ma boite de dialogue BDD_Principale.

J'ai écrit ce code mais cela ne fonctionne pas.

Code :

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

BDD_Principale.LBoxEquPouA.Selected = True

Quelqu'un pourrait-il m'aider ?

Merci

[Invité]

Bonjour,

Comment chargez vous la ListBox ?
Selected s'applique a un ou aux items de la liste.
Un exemple de chargement :

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
 
Sub ChargerListbox()
 
Dim I As Integer, IndexListe As Integer
 
 With BDD_Principale
 
        With .LBoxEquPouA
 
            For I = 1 To 3
                  .AddItem I
            Next I
 
            For IndexListe = 0 To .ListCount - 1
                .Selected(IndexListe) = True  ' Met en surbrillance selon la propriété MultiSelect de la ListBox
            Next IndexListe
 
      End With
 
      .Show
 
 
 End With
 
End Sub

[Rogeure]

Bonjour Eric,

Au lancement de votre code, l'erreur suivante s'affiche :

erreur d’exécution 70 : Accès refusé

et .AddItem I se met en surbrillance.

Merci de m'expliquer.

A bientôt

[Invité]

t

J'ai mis ce code ne sachant pas ce que vous souhaitiez faire (et je ne sais toujours pas). Votre problème est-il au chargement ? Il vous faut expliquer ce que vous souhaitez faire ou indiquer le contexte de votre problème.

[Rogeure]

Je souhaite après avoir sélectionné plusieurs équipes dans une ListBox (LBoxEqu), les envoyer dans une autre (la Listbox LBoxEquPouA) (jusqu'à là, j'y arrive).
Ensuite que cette ListBox (LBoxEquPouA) s'affiche afin que je puisse vérifier si je n'ai pas oublié une quelconque équipe.

Serait-ce abuser si je vous demandais, comment supprimer, les équipes sélectionnées dans la première ListBox (LBoxEqu), pour ne pas qu'elles soient rajouter à nouveau ?

En tous cas, merci pour votre aide !!!!!

[Invité]

Pouvez-vous mettre en ligne un fichier avec votre userform, vos deux listbox et le code qui permet de charger votre première listbox ?