Discussion :

[Thieyacine]

Bonjour à tous j'ai créer un fichier Excel qui fait apparaitre les bulletins de notes d'un groupe d'élèves un par un. A chaque fois qu'on tape le matricule d'un élève son bulletin apparait. Tous les bulletins apparaissent dans la même plage de cellules.
Mon problème est comment créer une macro (ou un autre moyen) pour imprimer tous les bulletins en même temps? Merci à tous

[Philippe Tulliez]

Bonjour,
Si l'affichage du bulletin d'un élève est le résultat d'une recherche grâce à une valeur contenue dans une cellule, il suffit de créer une boucle qui parcourt l'ensemble des élèves (par exemple la colonne A qui serait le code) et à chaque passage de la boucle remplir la cellule servant à la recherche et imprimer la feuille.

[Theze]

Bonjour,

Si les bulletins des différents élèves s'affichent dans la même feuille, il te faut faire une boucle et dans la boucle après chaque affichage faire un PrintOut suivit d'un DoEvents pour laisser un peut la main au système :

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
 
Sub Imprimer()
 
    Dim I As Integer
    Dim NombreEleves As Integer
    'Dim...
    'Dim...
 
    NombreEleves = 20
 
    For I = 1 To NombreEleves
 
        'Ici, les lignes de code pour l'affichage des valeurs dans les cellules...
        '...
        '...
        '...
 
        Worksheets("Feuil1").PrintOut
        DoEvents '<-- à voir si nécessaire !
 
    Next I
 
End Sub

Hervé.

[Thieyacine]

Merci Theze je vais essayer