Problème avec une macro d'impression avec condition

salut
j’ai deux feuil Excel (Office 2019)
la première pour les résultats des étudiants matricule, nom, prénom, note1, ….., moyenne, résultat(admis ou ajournée)
la deuxième feuil contient un relever de note détail pour chaque étudiant avec une liste déroulante
je veux crée une macro pour imprime la deuxième feuil pour tous les étudiants admis
merci a l’avance

le fichier teste

Bonjour,


Ton titre mentionne un problème quel est-il ?
As-tu essayé quelque chose ? si oui tu peux nous montrer le code (entre balise code)

bonsoir
le code d'impréssion

Code:

---

1 2 3

Sub printReleve() Worksheet____1.Range("A1:Q29").PrintOut End Sub

---

mais je veux une macro pour imprimé tous les étudiants Admis

Citation:

---

Envoyé par azzeddine2005

mais je veux une macro pour impriméer tous les étudiants Admis

---

Ok mais ça ne me dit toujours pas où se trouve ton problème

Tu va surement devoir faire une boucle pour récupérer la liste des Admis, si le problème est là regarde ce tuto: https://silkyroad.developpez.com/vba/boucles/

Si le problème est ailleurs merci d'être plus explicite.

bonsoir yalkhou et one two three
essayer avec

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub imprimerNAJA7() Dim F1 As Worksheet Dim F2 As Worksheet Set F1 = Sheets("F1") Set F2 = Sheets("F2") tablo = F1.Range("A2", "J" & F1.Range("J" & F1.Rows.Count).End(xlUp).Row) '...... For i = LBound(tablo, 1) To UBound(tablo, 1) If tablo(i, 10) = "ADMIS" Then F2.Range("B3") = tablo(i, 1) F2.Range("B5") = tablo(i, 2) F2.Range("E5") = tablo(i, 3) F2.Range("A1:F13").PrintOut End If   Next i End Sub

---

teste d'une boucle des admis
mais ça marche pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub CommandButton1_Click()   Application.ScreenUpdating = False LR = Worksheet____1.Range("A3000").End(xlUp).Row For i = 2 To LR If Worksheet____1.Cells(i, 9) = "ADMIS" Then 'Commande_Print' Worksheet____1.Range("A1:F13").PrintOut End If Next i Application.ScreenUpdating = True End Sub

---

re

re azzeddine
attention j'ai pas tout le travail
pour mettre à jour les note complétez de la meme façon

Code:

---

F2.Range("B5") = tablo(i, 3)

---

Re BENNASR

merci
mais un problème
le nom des admis et fixé par le premier étudiant admis!!!!!!


exemple le nom du premier étudiant et BENNASAR

tous les fichier Imprimé des étudiants Admis et BENNASAR

oui une erreur est glissée
voir cella la

Géniale
Merci infiniment
C gentil Mr BENNASAR

Merci de cliquer sur RESOLU en bas
et le bienvenu cousin

un exemple