XL 2010 Impression de tous les bulletins

GALOUGALOU à dit:

Bonjour appo1985 bonjour le forum
ce code devrait faire l'affaire.

VB:

Sub impression_de_tous_eleves()
Dim F1 As String
Dim F2 As String
F1 = Sheets("note").Name
F2 = Sheets("Bulletin").Name
 Sheets(F2).Select

 li = Sheets(F1).Cells(36000, 3).End(xlUp).Row


For i = 5 To li
Sheets(F2).Range("D7") = Sheets(F1).Cells(i, 3)
 Calculate
ActiveSheet.PrintPreview
Next
End Sub

pour une impression directe remplacer PrintPreview par PrintOut
cordialement
galougalou

Cliquez pour agrandir...

Appo1985 à dit:

Vraiment merci beaucoup.
J'ai essayé et c'est exactement ce que je voulais.

J'avais une autre question qui concerne le même fichier.
Sur Tableau1qui se trouve sur la feuille note, il ya déjà le matricule le nom et le prénom. Je voudrais pouvoir remplir les 5 autres champs par le formulaire
Merci

Cliquez pour agrandir...

GALOUGALOU à dit:

re appo1985
dans la même idée, un code identique qui va purger les cellules de saisies en fin de procédure

VB:

Sub ventilation_note()
Dim F1 As String
Dim F2 As String
F1 = Sheets("formulaire").Name
F2 = Sheets("note").Name
 Sheets(F2).Select

 li = Sheets(F2).Cells(36000, 3).End(xlUp).Row

For i = 5 To li
If Sheets(F2).Cells(i, 3) = Sheets(F1).Range("D9") Then
Sheets(F2).Cells(i, 6) = Sheets(F1).Range("D15")
Sheets(F2).Cells(i, 7) = Sheets(F1).Range("G9")
Sheets(F2).Cells(i, 8) = Sheets(F1).Range("G11")
Sheets(F2).Cells(i, 9) = Sheets(F1).Range("G13")
Sheets(F2).Cells(i, 10) = Sheets(F1).Range("G15")
End If
Next
MsgBox ("Modifications effectuées")
Sheets(F1).Range("D9") = ""
Sheets(F1).Range("D15") = ""
Sheets(F1).Range("G9") = ""
 Sheets(F1).Range("G11") = ""
 Sheets(F1).Range("G13") = ""
 Sheets(F1).Range("G15") = ""
 Sheets(F1).Select
End Sub

dans le classeur exemple ci-joint le test fonctionne
cordialement
galougalou

Cliquez pour agrandir...