Discussion :

[MatthieuT42]

Bonjour à tous.

intitulé de mon classeur :
Je possède 3 feuilles excel composé d'une classe d'élèves par page (Nom des élèves : colonne A,numéro de tel : colonne B, groupe : colonne C).
je possède aussi une autre colonne (E) feuille 1 qui comporte les élèves absents.

intitulé VBa :
une première listbox apparait avec les classes "A,B et C"
On sélectionne une classe et s'affiche :
Une multipage de 2 pages composé d'une listbox par page(listbox1 et listbox 2) : "élèves présents" et "élèves absents"

mon problème : quand on clic sur un élève présent, il s'affiche une textbox qui affiche le groupe de l'élève.
quand on clic sur un élève absent, il s'affiche la même textbox, mais cette fois elle affiche le groupe de l'élève.

(Par rapport à l'excel je voudrai que le programme en fonction de la colonne A introduise la valeur qui se trouve à sa droite, et que ça prenne en compte toute les feuilles, dans mon vrai programme je possède 1600 références répartit dans 5 feuilles)


Bonne journée

[Sebphyto]

Avec un bout de code cela sera plus comprehensible

[MatthieuT42]

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
Private Sub ListBox3_Click()
 
MultiPage1.Visible = True
 
 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("Feuil1!A5:A14")
    Case 1
      Set rngA = Range("Feuil2!A5:A14")
    Case 2
      Set rngA = Range("Feuil3!A5:A14")
  End Select
 
  For Each rngB In rngA.Cells
    Set rngC = Range("E2:E6").Find(rngB, , , xlWhole)
      If rngC Is Nothing Then
        Me.ListBox1.AddItem rngB
      Else
        Me.ListBox2.AddItem rngB
      End If
  Next rngB

Voici le code qui me permet grâce à la liste des absents de les faire disparaitre de la listbox 1 (élève présent) et de les faire apparaitre en listbox2 (élèves absents)

Pour mon cas, oublions les élèves absents et ne prennons que les élèves présents (éléments de la listbox1).
Enfaite il me faudrait un code qui prend en compte toutes les données des feuilles 1,2 et 3 mais seulement les colonnes A + 2 -> A,C,E,G,I,K.....
Si un élément de la listbox1 = éléments des feuilles 1,2,3 colonne A,C,E,G,I,K alors on affiche une textbox avec l'élément à côté dans excel

exemple si Me.listbox1 = "G8" alors textbox1.text = "H8"

J'espère être plus compréhensible ... bonne journée

[piotr76]

Bonjour

Il faudrait peut-être aller voir la méthode

Code :

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

Application.Intersect

Cordialement