noviceAG
XLDnaute Impliqué
Bonjour à chacun, chacune, le Forum,
J'ai un petit problème dans ce code à l'endroit marqué, pouvez-vous m'indiquer comment le résoudre Svp
Sub ImprimFiche() 'Verifie OK
Sheets("Fiche").Activate
'MsgBox "Voulez-vous imprimer une fiche vierge,vbYesNo"
reponse = MsgBox("Cliquez sur OUI pour imprimer une fiche vierge.?" & Chr(13) & "Cliquez sur NON pour effectuer votre sélection.", vbYesNo + vbCritical, "titre") ' le critical c'est juste pour la croix rouge.
If reponse = vbYes Then
Sheets("Fiche").Range("D3:I3").ClearContents
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
'Inscription de la Date de Mise à jour et rends la main
MsgBox "Veuillez sélectionner le premier Nom de la liste."
ActiveSheet.PageSetup.LeftFooter = "Date de la dernière mise à jour le " & Range("C35").Value
Call ImprimToutesFiches
End If
End Sub
Sub ImprimToutesFiches() 'Verifie OK
Dim c As Range
Sheets("Fiche").Select
If Cells(3, 4).Value = "" Then
Exit Sub
End If
For Each c In Range("Eleves")
Range("NomFiche").Value = c.Value
Sheets("Fiche").PrintOut
Next c
End Sub
Au niveau de cette ligne,
MsgBox "Veuillez sélectionner le premier Nom de la liste."
Comment donner la possibilité de le faire à l'utilisateur et que le reste du code s'ensuive ensuite.
En vous remerciant par avance.
J'ai un petit problème dans ce code à l'endroit marqué, pouvez-vous m'indiquer comment le résoudre Svp
Sub ImprimFiche() 'Verifie OK
Sheets("Fiche").Activate
'MsgBox "Voulez-vous imprimer une fiche vierge,vbYesNo"
reponse = MsgBox("Cliquez sur OUI pour imprimer une fiche vierge.?" & Chr(13) & "Cliquez sur NON pour effectuer votre sélection.", vbYesNo + vbCritical, "titre") ' le critical c'est juste pour la croix rouge.
If reponse = vbYes Then
Sheets("Fiche").Range("D3:I3").ClearContents
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
'Inscription de la Date de Mise à jour et rends la main
MsgBox "Veuillez sélectionner le premier Nom de la liste."
ActiveSheet.PageSetup.LeftFooter = "Date de la dernière mise à jour le " & Range("C35").Value
Call ImprimToutesFiches
End If
End Sub
Sub ImprimToutesFiches() 'Verifie OK
Dim c As Range
Sheets("Fiche").Select
If Cells(3, 4).Value = "" Then
Exit Sub
End If
For Each c In Range("Eleves")
Range("NomFiche").Value = c.Value
Sheets("Fiche").PrintOut
Next c
End Sub
Au niveau de cette ligne,
MsgBox "Veuillez sélectionner le premier Nom de la liste."
Comment donner la possibilité de le faire à l'utilisateur et que le reste du code s'ensuive ensuite.
En vous remerciant par avance.
Dernière édition: