ne pas imprimer les lignes vides

M

Mytå

Guest

• 1 Octobre 2003

• #2

salut Fox

Oui tu peux, tu masques les lignes vides avant l'impression

et tu les de-masques apres l'impression.

Mytå

 

Vote positif 0 Vote négatif

F

fox

Guest

• 1 Octobre 2003

• #3

Salut Mytâ

Merci, mais je pensais plus pouvoir faire cela en vb via un macro, car si je dois faire ça chaque fois manuellement cela va me prendre pas mal de temps.

Encore merci et bonne nuit

 

Vote positif 0 Vote négatif

M

Marc

Guest

• 1 Octobre 2003

• #4

Bonjour,
En intégrant ce code dans ton vba, ça doit marcher (les lignes sont indiquées à titre d'exemple) :

Rows("10:19").Select
Selection.EntireRow.Hidden = True
Rows("31:39").Select
Selection.EntireRow.Hidden = True

a+

 

Vote positif 0 Vote négatif

F

fox

Guest

• 1 Octobre 2003

• #5

hello, le forum

Salut Marc,

Merci ,hélas cela ne fonctionne pas

 

Vote positif 0 Vote négatif

E

evelynetfrancois

Guest

• 1 Octobre 2003

• #6

mais si !!!!
c'est dans le reste du VBA que ça coince chez toi!!
bon courage
Evelynetfrancois

 

Vote positif 0 Vote négatif

F

fox

Guest

• 1 Octobre 2003

• #7

Bonsoir, tous le monde


Voilà l'exemple de ce que j'ai en suivant le code de Marc

de la ligne 1 à 25

j'ai les ligne 7, 12,14, 22 qui sont vides

de la ligne 31 à 39


j'ai les lignes 34 - 36 qui sont vides

quand j'exécute la macro à l'impresion il me sort:

de la ligne 1 à 6

il m'imprime la 7 qui est vide

la 8 9 20 21
la 22 qui est vide

la 23 jusqu'à la 30

Je ne comprends pas?

Je joint mon fichier exemple avec la macro que j'ai mis

Merci

 

Pièces jointes

• lvide.zip

  6.1 KB · Affichages: 56

Vote positif 0 Vote négatif

M

Mytå

Guest

• 2 Octobre 2003

• #8

Salut Fox, Marc et EvelynetFrancois

Fox t'a macro devrait te donner ceci

Sub Masquer_ligne_avant_impression()

Dim Ligne As Integer
Dim Colonne As Byte
Dim Fin As Integer

Fin = Range("a65535").End(xlUp).Row

For Ligne = 1 To Fin

For Colonne = 1 To 5 'Ici pour vérifier les colonnes de A a E
If Cells(Ligne, Colonne) <> "" Then GoTo Saut
Next Colonne

Rows(Ligne & ":" & Ligne).EntireRow.Hidden = True

Saut:

Next Ligne

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Rows("1:" & Fin).EntireRow.Hidden = False

End Sub

Mytå

 

Vote positif 0 Vote négatif

F

fox

Guest

• 2 Octobre 2003

• #9

Hello, tous le monde

Mytâ, merci mais quand je lance la macro j'ai :

une erreur d'éxécution 1004
Erreur définie par l'application ou par l'objet.


Encore merci de votre soutient et de vos aides.

 

Vote positif 0 Vote négatif

F

fox

Guest

• 2 Octobre 2003

• #10

re à tous

Mytâ

que veux dire la ligne:

Fin = Range("a65535").End(xlUp).Row

Merci

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 2 Octobre 2003

• #11

Re Fox

Fin = Range("a65535").End(xlUp).Row

sert a trouver la derniere ligne vide de la colonne ici de la Colonne A

Pour la Colonne B tu aurais ecrit

Fin = Range("b65535").End(xlUp).Row

Mytå

 

Vote positif 0 Vote négatif