Imprimer suivant des conditions

Imprimer suivant des conditions - VB/VBA/VBS - Programmation

Marsh Posté le 03-01-2022 à 17:33:24    

Bonjour à tous et une très bonne année,  
 
Tout nouveau sur ce forum, je fais appel à vous. Je suis quasi persuadé que ce topic doit exister, et si c'est le cas je vous pris de bien vouloir m'excuser, j'ai cherché mais sans succès.
 
Mon soucis :  
 
J'ai un tableau Excel (nomenclature pièces) avec plus de 1500 lignes, et plus de 30 colonnes. La première colonne est gérer par des 1 et 0. J'aimerai imprimer toutes les lignes oui il y a un 1.
 
Pour ma présentation, je travail depuis plus de 15ans dans l'industrie, j'ai survolé le VBA à l'école, il y a fort longtemps, mais je n'ai malheureusement plus rien retenu et je n'arrive plus à mettre la main sur mes cours.
 
Encore merci à vous


Message édité par kadnes le 04-01-2022 à 08:47:40
Reply

Marsh Posté le 03-01-2022 à 17:33:24   

Reply

Marsh Posté le 05-01-2022 à 11:13:37    

Salut, brut de fonderie, à toi de l'améliorer

Code :
  1. Option Explicit
  3. Sub Tst_01()
  4. Dim i As Long, iNb As Long
  5.     Application.ScreenUpdating = False
  6.     With Feuil1
  7.         iNb = .UsedRange.Rows.Count
  8.         For i = iNb To 1 Step -1
  9.             If .Cells(i, 1) = "0" Then
  10.                 .Rows(i).EntireRow.Hidden = True
  11.             End If
  12.         Next i
  13.         .PrintOut Copies:=1, Collate:=True, Preview:=True
  14.         .Cells.EntireRow.Hidden = False
  15.     End With
  16.     Application.ScreenUpdating = True
  17. End Sub


 
Feuil1 est le CodeName de la feuille concernée pas le nom d'onglet  
voir https://silkyroad.developpez.com/VB [...] tor/#LII-B
 
Si tu n'utilises pas une imprimante virtuelle style Acrobat/PDFCreator etc
Preview:=True : cela évitera à cette macro de devenir un gouffre papivore.....


Message édité par kiki29 le 09-01-2022 à 00:22:40

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Marsh Posté le 05-01-2022 à 14:52:08    

Salut Kiki29,  
 
Merci pour ta réponse, je vais tester ça et je te tiens au courant.
 
Encore merci.

Reply

Marsh Posté le 13-01-2022 à 14:18:51    

Salut,  
 
Je reviens sur le sujet, comme convenu pour annoncer que ça fonctionne au top.
 
Encore merci.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed