Sommaire pour Impression - Arrays, VBA

[randle88]

Bonsoir à tous,

J'ai commencé à réaliser une petite macro, qui imprime les feuilles selon une condition, voir fichier joint.

Etant donné que je commence en VBA, j'imagine que le code que j'ai réalisé n'est pas optimal.

Je souhaiterais donc avoir vos suggestions concernant un code, pour réaliser un "sommaire" qui permettra d'imprimer les feuilles qui répondent à une condition (Oui dans la cellule de droite). Sachant que le nombre de feuille peut varier.

J'ai vu que les tableaux permettaient d'optimiser au mieux les codes, mais j'ai un peu de mal à les utiliser pour le moment. Je pense donc qu'avec un exemple concret, ce sera plus simple.

En vous remerciant par avance,

 

[randle88]

Re : Sommaire pour Impression - Arrays, VBA

J'ai (enfin) pu tester ce code et il marche parfaitement bien.

Merci Laurent

Suite

Pour l'idée peu être cela :

Sub Impressionfeuille()

tabl = Range("B9").CurrentRegion
PrintNo = Range("G7")

For j = 1 To PrintNo
For i = 1 To UBound(tabl)
If tabl(i, 3) = "Oui" Then
Sheets(tabl(i, 1)).PrintOut Copies:=1, Collate:=True
End If
Next i
Next j

End Sub

Laurent