Imprimer suivant des conditions

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Imprimer suivant des conditions

kadnes

Mon Vélooooo

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

Publicité

kiki29

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

Code :

Option Explicit
Sub Tst_01()
Dim i As Long, iNb As Long
Application.ScreenUpdating = False
With Feuil1
iNb = .UsedRange.Rows.Count
For i = iNb To 1 Step -1
If .Cells(i, 1) = "0" Then
.Rows(i).EntireRow.Hidden = True
End If
Next i
.PrintOut Copies:=1, Collate:=True, Preview:=True
.Cells.EntireRow.Hidden = False
End With
Application.ScreenUpdating = True
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

kadnes

Mon Vélooooo

Salut Kiki29,

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

Encore merci.

kadnes

Mon Vélooooo

Salut,

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

Encore merci.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Imprimer suivant des conditions

Sujets relatifs
Inclure une page suivant un formulaire	Lecteur vidéo web qui switch suivant le débit ?
Question sur les conditions inversées	[MySQL] MAJ d'une table avec trigger et conditions
[Wordpress] Afficher un contenu différent suivant des adresses IP	copier coller de données selon conditions
Envoi SMS Python suivant retour commande	Récupérer une valeur suivant cellule
variable suivant une autre variable	Passer au tour suivant boucle for each et probleme if
Plus de sujets relatifs à : Imprimer suivant des conditions

Page générée en 0.029 secondes