Imprimer sans les lignes vides en VBA

[mobenjilali]

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]

Re : Imprimer sans les lignes vides en VBA

Bonsoir

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

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]

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

Bonsoir

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

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]

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]

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]

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]

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]

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

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]

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]

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

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]

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]

Re : Imprimer sans les lignes vides en VBA

re bonsoir
la macro bloque sur For Each Sht In ThisWorkbook

 

[Compte Supprimé 979]

Re : Imprimer sans les lignes vides en VBA

Re,

Peux-tu nous joindre ton dernier fichier !?

A+

 

[mobenjilali]

Re : Imprimer sans les lignes vides en VBA

re
ci-joint le fichier
cdt

Re,

Peux-tu nous joindre ton dernier fichier !?

A+

 

[Compte Supprimé 979]

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

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+