Discussion :

[EtudiantNoobVBA]

Bonjour!

Alors voila, je commence sur Vba et je rencontre un problème. J'ai fais une List Box et j'aimerai y afficher le contenu de cellules d'un autre document excel.... mais c'est un échec pour le moment et je comprend pas pourquoi.

Voici mes lignes de code:

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
Private Sub Affiche_LstEtudiants()
Dim ZoneEtudiant As Range
Dim Ligne As Range
With Workbooks("QCM_ClasseurEnseignant").Worksheets("Etudiants")
    .Activate
    Set ZoneEtudiant = .Range("DebZon_BaseEtudiant").CurrentRegion.Offset(1, 0)
            For Each Ligne In ZoneEtudiant.Rows
                    If Cells(Ligne.Row, 2) <> "" Then
                     LstEtudiants.AddItem Cells(Ligne.Row, 2) & " " & Cells(Lignes.Row, 3).Value
                    Else
            Exit For
                    End If
    Next Ligne
End With
End Sub

Quelqu'un pourrait m'aider?


Un grand merci d'avance!

[jfontaine]

Bonjour,

Quelle ligne? quelle erreur ?

[EtudiantNoobVBA]

Ben justement.... Aucun message d'erreur. Quand je lance la macro la liste reste simplement vide... :/

[jfontaine]

Lance ton code en mode pas à pas et regardes ce qu'il se passe

[Docmarti]

Ben justement.... Aucun message d'erreur. Quand je lance la macro la liste reste simplement vide... :/

Mets un point devant chacun des Cells ( .Cells )
histoire de lire les données de la feuille du classeur qui t'intéresse,
soit probablement celui défini par

Code :

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

With Workbooks("QCM_ClasseurEnseignant").Worksheets("Etudiants")

[Theze]

Bonsoir,

Je ne sais pas comment tu lance ta proc, c'est pour ça que je l'appelle depuis "Initialize". Essai ceci mais attention à l'orthographe, tu as un "s" à Lignes de "Cells(Lignes.Row, 3).Value" :

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
29
30
31
32
33
34
35
36
 
Private Sub UserForm_Initialize()
 
    Affiche_LstEtudiants
 
End Sub
 
Private Sub Affiche_LstEtudiants()
 
    Dim Fe As Worksheet
    Dim ZoneEtudiant As Range
    Dim Ligne As Range
 
    Set Fe = Workbooks("QCM_ClasseurEnseignant.xls").Worksheets("Etudiants")
 
    With Fe
 
        Set ZoneEtudiant = .Range("DebZon_BaseEtudiant").CurrentRegion.Offset(1, 0)
 
        For Each Ligne In ZoneEtudiant.Rows
 
            If Cells(Ligne.Row, 2) <> "" Then
 
                LstEtudiants.AddItem Cells(Ligne.Row, 2) & " " & Cells(Ligne.Row, 3).Value
 
            Else
 
                Exit For
 
            End If
 
        Next Ligne
 
    End With
 
End Sub

Hervé.