changer les variables d'une listbox

Version imprimable

02/06/2015, 09h53
MatthieuT42

1 pièce(s) jointe(s)

changer les variables d'une listbox

bonjour le forum et bonjour à tous.

J'ai besoin de vous car j'ai un problème au niveau du changement de données à l'intérieur d'une listbox.

Mon énoncé : je possède 3 classes d'élèves (A,B,C) qui sont intégrées dans une listbox (listbox3). (listbox3 éléments : classe A, classe B, Classe C)
Suite au choix de la classe, une multipage de 2 pages apparait. Les 2 pages possèdent 1 listbox chacune.
Ces listbox sont représentativent des élèves présents (listbox1) et des élèves absents (listbox2)
Ma listbox1 affiche donc les élèves présents en fonction de la classe choisit en listbox3.

Mon problème : Je voudrai que lorsque qu'un élève est absent, il soit retiré listbox1 et apparaisse listbox2
les élèves absents sont rangé feuille1 colonne J.
Lorsque qu'il est supprimé colonne J (donc qu'il redevienne "présent"), qu'il revienne listbox1 et soit supprimé listbox2

Merci pour votre attention.

Cordialement
02/06/2015, 10h08
Invité

Salut,

Que se passe t-il lorsque que l'on retrouve le même prénom dans plusieurs classes ?
02/06/2015, 10h13
MatthieuT42

salut, merci pour ta réponse.

Dans mon véritable problème on ne trouvera jamais 2 fois le même élément (ici prénom), je n'avais pas remarqué que j'avais mis deux fois le même désolé.
Si tu as la solution à mon problème, oublis le fait qu'il y ai le même prenom.
02/06/2015, 10h22
Invité

Tu devrais y jeter un œil : http://silkyroad.developpez.com/VBA/...serForm/#LII-G

L'idée est de créer une double boucle qui parcours pour chaque élève de la classe considérée la liste des absents.
Et s'il y a une correspondance alors il faut la distribuer dans la bonne "ListBox".
02/06/2015, 10h29
MatthieuT42

Ton idée est exactement ce que je veux faire.

Je vais essayer de me débrouiller, si j'ai un problème dans le code, puis-je revenir à toi ?
02/06/2015, 10h34
Invité

Oui essaie par toi même et je t'aiderai.

Code:

1 2 3 4 5 6 7 8 Private Sub ListBox3_Click() Dim i As Integer For i = 0 To ListBox1.ListCount - 1 Next i If Sheets("feuil1").Cells(65536, 10).End(xlUp).Row = i Then ListBox2.AddItem.Range ("feuil1!J" & i)
J'ai beacoup chercher sur de nombreux site la syntaxe à adapter, mais je crois que ce que j'ai fais ne veux strictement rien dire en VBA.
(Il me manque encore de grosse base en VBA.)
Comme tu peux le voir j'ai essayé d'écrire :
pour i = éléments de la lisbox1
Si notre feuille 1 colonne 10 = i alors on range i dans la listbox2
Je n'ai pas trouvé le moyen pour cacher l'élément i dans la listbox1

Essaie de comprendre ce code:

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
26
27
28
29
30
31
32
33
34
Option Explicit
 
Private Sub CommandButton1_Click()
  Me.ListBox3.Visible = True
  Me.ListBox3.RowSource = "feuil1!A1:A3"
End Sub
 
Private Sub ListBox3_Click()
 
  Dim rngA As Range, rngB As Range, rngC As Range
 
  MultiPage1.Visible = True
  Me.ListBox1.Clear
  Me.ListBox2.Clear
 
  Select Case Me.ListBox3.ListIndex
    Case 0
      Set rngA = Range("D5:D14")
    Case 1
      Set rngA = Range("E5:E14")
    Case 2
      Set rngA = Range("F5:F14")
  End Select
 
  For Each rngB In rngA.Cells
    Set rngC = Range("J2:J6").Find(rngB, , , xlWhole)
      If rngC Is Nothing Then
        Me.ListBox1.AddItem rngB
      Else
        Me.ListBox2.AddItem rngB
      End If
  Next rngB
 
End Sub

Code:

1 2 3 4 5 6 7 8 For Each rngB In rngA.Cells Set rngC = Range("J2:J6").Find(rngB, , , xlWhole) If rngC Is Nothing Then Me.ListBox1.AddItem rngB Else Me.ListBox2.AddItem rngB End If Next rngB
Super ça marche parfaitement.

C'est cette partie du code que je n'aurai pas pu faire personnellement, je la comprend parfaitement mais je n'aurai jamais su l'écrire.

Un grand merci à toi.

Bonne journée.