Re : Application.ScreenUpdating ou Application.EnableEvents ?
Bonjour,
Merci pour vos réponses.
Ci après un exemple de code (fourni d'ailleurs hier grace au forum) pour lequel
"Application.ScreenUpdating" ne fonctionne pas.
Sub CREATION_PDF()
Sheets("feuill1").Select
Application.ScreenUpdating = False
i = 7 'cellule qui contient le nombre de lutteurs (A7 pour le premier tableau nordique)
boucle:
Range("A" & i).Select
If ActiveCell.Value = "" Then Exit Sub
If ActiveCell.Value > 1 And ActiveCell.Value < 6 Then
ActiveCell.Offset(1, 2).Range("A1
36").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & ActiveCell.Offset(0, 0).Value & " " & Range("age").Value & " " & Range("style").Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End If
i = i + 100 ' 100 lignes qui séparent chaque tableau
GoTo boucle
'Application.ScreenUpdating = True
End Sub