Tableau complètement farfelu !...
Pour moi, le nom des élèves devrait être en Majuscules et le prénom avec uniquement la première lettre en majuscule (pour différencier Pierre ANTOINE et PIERRE Antoine en un seul coup d'œil).
La formule de RechercheNOM devrait être :
VB:
=DECALER(Feuil2!$E$5;;;NBVAL(Feuil2!$E:$E))
Les onglet Bulletins devraient avoir en C3 : "Bulletin de " (aligné à droite) et en D3 : "NOM Prénom" (aligné à gauche).
Puis ce genre de code :
Code:
Private Sub CommandButton1_Click()
Dim O As Worksheet
For Each O In Worksheets
If Left(O.Name, 1) = "B" Then
If O.Range("D3").Cells(1).Value = Worksheets("Feuil1").Range("D7").Value Then O.PrintOut: Exit Sub
End If
Next O
End Sub
J'aurais même renommé les onglets des bulletins direct avec le nom de l'élève, ce qui aurait simplifié le code :
Code:
Private Sub CommandButton1_Click()
Dim O As Worksheet
For Each O In Worksheets
If O.Name= Worksheets("Feuil1").Range("D7").Value Then O.PrintOut: Exit Sub
End If
Next O
End Sub
Avant de poster, pense à regarder ton fichier et pas envoyer n'importe quoi !...
Salut !
Je plaide coupable pour le fichier, j'avoue ne pas vouloir communiquer le fichier initial car il contient des noms d'enfants ainsi que le nom de l'école.
J'essai donc de reproduire un document et sur le coup...un peu vite.
Je te remercie pour la formule rechercheNOM, elle fonctionne très bien.
Par contre le bouton, je dois utiliser ton premier code, (le nom des enfants changent d'année en année) mais, malgré les changements dont tu parles, je n'arrive pas à le faire fonctionner...
Ça fonctionne mais il fallait effacer (tout) dans D7 de l'onglet Feuil1 et refaire la validation de données pour avoir exactement les mêmes noms (majuscule/minuscule).
Encore une question... AM femme souhaite avoir le choix entre PDF et notre imprimante... Comment puis-je imprimer avec PDF creator avec ce code ? Je pensais pouvoir rajouter ceci : Copies:=1, ActivePrinter:="PDFCreator" en créant un second bouton mais ça ne fonctionne pas ...