Imprimer sans les lignes vides en VBA

mobenjilali · 21 Avril 2012

Bonsoir le Forum,
j'ai besoin d'un code VBA pour imprimer plusieurs feuilles sans les lignes vides, j'ai trouvé des codes mais je n'arrive pas à les faire fonctionner.
Pouvez vous m'aider?
Merci

Compte Supprimé 979 · 21 Avril 2012

Re : Imprimer sans les lignes vides en VBA

Bonsoir

Tu aurais au moins pu mettre les codes que tu as trouvés !?

VB:

Sub ImpSansLigneVide()  Dim DLig As Long, Sht As Worksheet
  For Each Sht In ThisWorkbook.Sheets
    DLig = Sht.Range("A" & Rows.Count).End(xlUp).Row
    If DLig >= 5 Then
      Sht.PageSetup.PrintArea = "$A$4:$F$" & DLig
      Sht.PrintOut
    End If
  Next Sht
End Sub

Bonne soirée

mobenjilali · 22 Avril 2012

Re : Imprimer sans les lignes vides en VBA

bonjour BrunoM45, Bonjour le Forum
merci BrunoM45 pour votre réponse, mais le code ne fonctionne pas

BrunoM45 à dit:
Bonsoir

Tu aurais au moins pu mettre les codes que tu as trouvés !?

VB:

Sub ImpSansLigneVide() Dim DLig As Long, Sht As Worksheet For Each Sht In ThisWorkbook DLig = Sht.Range("A" & Rows.Count).End(xlUp).Row If DLig >= 5 Then Sht.PageSetup.PrintArea = "$A$4:$F$" & DLig Sht.PrintOut Next Sht End Sub

Bonne soirée

Paritec · 22 Avril 2012

Re : Imprimer sans les lignes vides en VBA

Bonjour Bruno mobenjilali,le forum
tu as déjà eu la réponse dans un autre post là ou j'avais géré tes divers reports!!!!!
a+
papou

mobenjilali · 22 Avril 2012

Re : Imprimer sans les lignes vides en VBA

Bonjour PAritec
Merci pour votre réponse, c’est cool de retrouver mon maitre.
Pouvez-vous m’aider sur ce coup ?
Et je vais vous consulter sur l’autre post, pour finir avec les formules et les mettre en VBA.

Paritec · 22 Avril 2012

Re : Imprimer sans les lignes vides en VBA

Re Mobenjilali le forum
Tu peux utiliser la macro de Bruno, je ne vois pas pourquoi cela ne marche pas chez toi?
mais dans le fichier que je t'avais envoyé tu avais déjà eu une réponse pour l'impression dans la dernière version
a+
papou

mobenjilali · 22 Avril 2012

Re : Imprimer sans les lignes vides en VBA

Re paritec,
ns avons pas attaquer le voler d'impression sans lignes vides.
le code de Bruno45 marche!! alors j'ai pas su l'utiliser sur le fichier joint.!!
merci

mobenjilali · 22 Avril 2012

Re : Imprimer sans les lignes vides en VBA

RE le Forum
je pense que je me suis mal exprimé, c'est ou je dois mettre cette macro 'module ou feuille...' pour qu'elle soit fonctionnelle avec un bouton?
merci

mobenjilali à dit:
Re paritec,
ns avons pas attaquer le voler d'impression sans lignes vides.
le code de Bruno45 marche!! alors j'ai pas su l'utiliser sur le fichier joint.!!
merci

Compte Supprimé 979 · 22 Avril 2012

Re : Imprimer sans les lignes vides en VBA

Bonjour Mobenjilali

Le code est à mettre dans un module (ça me parait évident )
Clique droit sur ton bouton, lier une macro

A+

mobenjilali · 22 Avril 2012

Re : Imprimer sans les lignes vides en VBA

RE Bruno45
j'ai mis en code du bouton

Private Sub CommandButton1_Click()
Call ImpSansLigneVide

End Sub

mais la macro bloque sur For Each Sht In ThisWorkbook.
cdt

BrunoM45 à dit:
Bonjour Mobenjilali

Le code est à mettre dans un module (ça me parait évident )
Clique droit sur ton bouton, lier une macro

A+

Compte Supprimé 979 · 22 Avril 2012

Re : Imprimer sans les lignes vides en VBA

Re,

Désolé ... il manque le "End If" après "Sht.PrintOut"
Voir mon code modifié ci-dessus

A+

mobenjilali · 22 Avril 2012

Re : Imprimer sans les lignes vides en VBA

re bonsoir
la macro bloque sur For Each Sht In ThisWorkbook

Compte Supprimé 979 · 22 Avril 2012

Re : Imprimer sans les lignes vides en VBA

Re,

Peux-tu nous joindre ton dernier fichier !?

A+

mobenjilali · 22 Avril 2012

Re : Imprimer sans les lignes vides en VBA

re
ci-joint le fichier
cdt

BrunoM45 à dit:
Re,

Peux-tu nous joindre ton dernier fichier !?

A+

Compte Supprimé 979 · 23 Avril 2012

Re : Imprimer sans les lignes vides en VBA

Salut Mobenjilali

Désolé, j'suis vraiment trop mauvais ... j'ai honte
Je ne t'ai pas mis le bon code dès le départ : "ThisWorkbook.Sheets"

Le voici testé et qui fonctionne

Code:

Sub ImpSansLigneVide()
  Dim DLig As Long, Sht As Worksheet
  For Each Sht In ThisWorkbook.Sheets
    DLig = Sht.Range("A" & Rows.Count).End(xlUp).Row
    If DLig >= 5 Then
      Sht.PageSetup.PrintArea = "$A$4:$F$" & DLig
      Sht.PrintOut
    End If
  Next Sht
End Sub

A+

Imprimer sans les lignes vides en VBA

mobenjilali

XLDnaute Occasionnel

Pièces jointes

Compte Supprimé 979

Guest

mobenjilali

XLDnaute Occasionnel

Paritec

XLDnaute Barbatruc

mobenjilali

XLDnaute Occasionnel

Paritec

XLDnaute Barbatruc

mobenjilali

XLDnaute Occasionnel

mobenjilali

XLDnaute Occasionnel

Compte Supprimé 979

Guest

mobenjilali

XLDnaute Occasionnel

Compte Supprimé 979

Guest

mobenjilali

XLDnaute Occasionnel

Compte Supprimé 979

Guest

mobenjilali

XLDnaute Occasionnel

Pièces jointes

Compte Supprimé 979

Guest

Discussions similaires