imprimer les celule vides

[hicham28]

Bonjour, encore je m'adresse a vous, pour avoir une petite aide qui rapportera beaucoup de chose pour moi.
J’ai mis un exemple pour que ça sois plus claire,
Le tableau représente un suivie des factures, je désigne X sur certains cellules de la colonne F comme factures payés, et j'aimerai avoir lors de l’impression de ce tableau que seuls les factures non payés seront imprimés, ça veux dire seulement les lignes qui comporte une cellule vide de la colonne F. je préfère ne pas utiliser les filtres, mais une macro.
Merci de votre aide

 

[BOISGONTIER]

Re : imprimer les celule vides

Bonsoir,


[A2:F10000].AutoFilter Field:=6, Criteria1:="="
ActiveSheet.PrintPreview ' ou PrintOut
ActiveSheet.ShowAllData


JB

 

[hicham28]

Re : imprimer les celule vides

merci de votre rapide reponse, mais je ne sais pas ou ni comment mettre ce code que vous m'avez donner.
merci

 

[BOISGONTIER]

Re : imprimer les celule vides

-Alt+F11
-Insertion/Module


JB

 

[hicham28]

Re : imprimer les celule vides

merci c trop gentil

 

[hicham28]

Re : imprimer les celule vides

bonjour,
une petite question
qui ce que je dois faire si je veux changer la colonne F par la colone I
j'ai bien mis dans le code

Sub imprime()
[A6:F10000].AutoFilter Field:=9, Criteria1:="="
ActiveSheet.PrintPreview
ActiveSheet.ShowAllData
End Sub

ca me met debodage.
pourqoui?
merci

 

[Chris401]

Re : imprimer les celule vides

Bonjour,

Modifie la plage A6:F1000 par A6:I1000

Cordialement
Chris

 

[cbea]

Re : imprimer les celule vides

Bonjour Hicham28 et à tous,

Peux-tu essayer comme ceci ?

Sub imprime()
[A6:[COLOR="Red"]I[/COLOR]10000].AutoFilter Field:=9, Criteria1:="="
ActiveSheet.PrintPreview
ActiveSheet.ShowAllData
End Sub

PS : bonjour Chris

 

[hicham28]

Re : imprimer les celule vides

bonjour, tjrs j'ai le deboudage, c en faite je crois que en changeant Field:=6 qui cause ce déboudage.

 

[Chris401]

Re : imprimer les celule vides

Tu coches quelle case : la F ou la I ?

Chris

 

[hicham28]

Re : imprimer les celule vides

bonjour,
je coche la case I

 

[Chris401]

Re : imprimer les celule vides

J'ai testé sur le fichier de Boisgontier en ajoutant des colonnes ; nouvelle plage de A1 à I1000 , I étant coché.

Ce code fonctionne :

Sub imprime()
[A2:I10000].AutoFilter Field:=9, Criteria1:="="
ActiveSheet.PrintPreview
ActiveSheet.ShowAllData
End Sub

Merci de joindre ton fichier si tu a toujours un problème.

Amicalement
Chris

 

[hicham28]

Re : imprimer les celule vides

merci ca marche