Amélioration code macro

[gourdin]

Bonjour,

Je souhaite améliorer en le simplifiant un code macro pas très compliqué mais répété de multiple fois et qui doit pouvoir se simplifier.

Difficile à expliquer, ce'st pourquoi je vous un fichier exemple simplifié.

J'espère que dans mon exemple joint j'aurai été suffisamment clair car delà n'a pas été facile à expliquer.

Merci

 

[Jacou]

Re : Amélioration code macro

Bonsoir,
essaie ce code :

Sub pdf_tableau()

' initialisation
i=1
boucle:
Range("A"&i).Select
If ActiveCell.Value = "" Then Exit Sub
If ActiveCell.Value > 0 And ActiveCell.Value< 4 Then
ActiveCell.Offset(0, 0).Range("A1:B6").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & _
ActiveCell.Offset(0, 1).Range("A"&i).Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End If
i = i + 10
GoTo boucle
End Sub

 

[gourdin]

Re : Amélioration code macro

Merci Jacou,

Celà fonctionne parfaitement et j'ai pu l'adapter à mon fichier d'origine

Bonne soirée

 

[gourdin]

Re : Amélioration code macro

Un petite demande supplémentaire.

Comment faire pour qu'à la fin du code fourni précédemment, après "GoTo Boucle" et avant "End Sub" je rajoute encore quelques lignes de code comme par exemple : range("A7").select

Quand j'ai essayé, la macro ne l’exécute pas.

Merci

 

[Pierrot93]

Re : Amélioration code macro

Bonjour,

pas tout suivi, mais en l'état tu ne pourras pas positionner d'instruction après "GoTo Boucle", car comme l'instruction l'indique, elle te renvoie systèmatique à l'étiquette "boucle".....

bonne journée
@+

 

[Dranreb]

Re : Amélioration code macro

Bonjour.
Au lieu de "Boucle" mettre "Do",
au lieu de "GoTo Boucle", "Loop"
et au lieu de "Exit Sub", "Exit Do".
En gros ...
Comme ça, d'autres instructions pourront être exécutées derrière la boucle.
Cordialement.
À +

 

[gourdin]

Re : Amélioration code macro

Merci
je vais essayer les propositions
un peu plus tard et vous tiendrai au courant

 

[Jacou]

Re : Amélioration code macro

Bonsoir,
un moyen assez simple est de mettre une étiquette derrière le "GoTo boucle" (boucle2 par exemple) et de remplacer le "Then Exit sub" par "GoTo boucle2"


Sub pdf_tableau()
' initialisation
i=1
boucle:
Range("A"&i).Select
If ActiveCell.Value = "" Then GoTo boucle2
If ActiveCell.Value > 0 And ActiveCell.Value< 4 Then
ActiveCell.Offset(0, 0).Range("A1:B6").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & _
ActiveCell.Offset(0, 1).Range("A"&i).Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End If
i = i + 10
GoTo boucle
boucle2:
Range("A7").select
....
End Sub

 

[gourdin]

Re : Amélioration code macro

Bonsoir,

Je viens d'essayer les 2 solutions proposées et c'est parfait

Merci beaucoup