afficher une listbox

Version imprimable

17/06/2019, 16h13
Rogeure

afficher une listbox

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:

BDD_Principale.LBoxEquPouA.Selected = True

Quelqu'un pourrait-il m'aider ?

Merci

Citation:

Envoyé par Rogeure

Bonjour,

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

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
 
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

17/06/2019, 17h26
Rogeure

Erreur

Bonjour Eric,

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

Citation:

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

et .AddItem I se met en surbrillance.

Merci de m'expliquer.

A bientôt
17/06/2019, 17h40
Invité

Citation:

Envoyé par Rogeure

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.
17/06/2019, 17h51
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 !!!!!
17/06/2019, 17h59
Invité

Citation:

Envoyé par Rogeure

Pouvez-vous mettre en ligne un fichier avec votre userform, vos deux listbox et le code qui permet de charger votre première listbox ?
17/06/2019, 18h06
Rogeure

1 pièce(s) jointe(s)

Pièce jointe 484226

Voilà !!

Je pense que vous n'allez pas être déçu du "Bricolage" que j'ai effectué :-)

Encore merci
17/06/2019, 20h22
Invité

Citation:

Envoyé par Rogeure

J'ai un peu modifié la base de données. :lol:
Les modifications ne portent que sur la gestion des entrées et sorties des ListBox.
17/06/2019, 20h45
Rogeure

Je ne sais que vous dire :-)

Vous avez réalisé en quelques heures beaucoup plus que moi en plusieurs jours.

Je vais digéré le soufflet que vous m'avez asséner :-)

Vous m'avez apporté bon nombre de réponses à mes questions.

Je vais m'imprégner de votre façon de voir les choses et avancer dans mon projet qui est loin d'être abouti

Je vous remercie pour ces heures que vous m'avez accordé et vous propose, à l'occasion de nous entretenir en conversation privée.

Bonne soirée et encore merci