1166 connectés

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Imprimer suivant des conditions

Recherche :

Dernière réponse
Sujet : Imprimer suivant des conditions
kadnes	Salut, Je reviens sur le sujet, comme convenu pour annoncer que ça fonctionne au top. Encore merci.

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

kadnes

Salut,

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

Encore merci.

kadnes

Salut Kiki29,

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

Encore merci.

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.....

kadnes

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