Zone d'impression ; peut-on ne pas imprimer les lignes qui sont vides

Je n'arrive pas à joindre de document a la conversation.

Une idée?

Bonjour,

Merci pour vos conseils que je vais suivre.

Cdt

Oopsss, j'ai peur que cette macro ne fonctionne pas car j'ai oublié un détail.

Les lignes dont je parle, ce sont les lignes vide de ma facture. Elles sont vides de la colonne C à J, mais à partir de L toutes mes colonnes sont masquées mais les lignes ne sont pas vides (parfois des infos, des formules etc...). J'ai défini une zone d'impression de ma facture uniquement.

Ce qu'il faut que je réussisse à faire c'est de masquer les lignes à conditions que les lignes des colonnes de C à J soit vides, (et uniquement pour le corps de ma facture, i.e désignation, montant, qté etc...)

J'aurais aimer également que lorsque j'enregistre le fichier en pdf, qu'il soit enregistrer de la même manière, à savoir sans les lignes vides (vides de C à J mais à partir de L, elle peuvent contenir des infos).

Encore merci

Cdt

Merci

Entre temps, j'avais créée deux modules. Et je constate en faite que l'idéal serait un mixte des deux (votre fichier et le mien)

Les modules que j'ai créer :

Module 1 : Enregistrement avec un bouton de contrôle de la facture en pdf directement dans un dossier (l'impression pouvant se faire à partir de cet enregistrement):

Sub EnregistrementFacture()
'je déclare mes valeurs

Dim NomDossier As String
Dim Chemin As String
'Je nomme le dossier et donne le chemin de sauvegarde

NomDossier = Application.InputBox("ArchivageFactures:", "Année ?")
Chemin = "C:\Users\linda\OneDrive\Documents\COLIS LOIRE EXPRESS\Gestion Clients\Factures\ArchivageFactures\" & NomDossier & "\"

If NomDossier = "" Then Exit Sub

ActiveSheet.ExportAsFixedFormat Type:=xlTypexlsx, Filename:= _
Chemin & "FactureNumero_" & Range("H2").Value & ".pdf", quality:= _
xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
openafterpublish:=False


End Sub

Module 2 : Masuer les lignes avec un bouton de contrôle
Sub masquer_ligne_Vide()
Dim cel As Range
For Each cel In Range("C25:C195")
If cel = "" Then
cel.EntireRow.Hidden = True
End If
Next
End Sub


Idéalement, il faudrait que je mette un autre bouton de control pour afficher les lignes masquées afin de pouvoir les utiliser si besoin.
Que me conseillez-vous? Un nouveau module ? Ou est-il possible de créer un bouton double emploi (Afficher/Masquer)?

Pouvez-vous également m'indiquer comment avez-vous fait pour personnaliser votre bouton de contrôle 'Imprimer' , c'est plus sympa avec ce visuel.

Merci
Cdt

Pour répondre à la question

Ou est-il possible de créer un bouton double emploi (Afficher/Masquer)?

OUI

voir ceci pour les shapes( ce bouton est une Shape):

http://boisgontierj.free.fr/fichiers/Images/lesimages.htm

voici le code à adapter:

Option Explicit
'http://boisgontierj.free.fr/fichiers/Images/lesimages.htm
Sub Rectangleàcoinsarrondis1_Clic()
If ActiveSheet.Shapes("Rectangle à coins arrondis 1").TextFrame.Characters.Text = "AFFICHER" Then
MsgBox "Afficher"
ActiveSheet.Shapes("Rectangle à coins arrondis 1").TextFrame.Characters.Text = "CACHER"
Else
ActiveSheet.Shapes("Rectangle à coins arrondis 1").TextFrame.Characters.Text = "AFFICHER"
MsgBox "Cacher"
End If
End Sub

Voilà ma modeste contribution

@+ Le Pivert

Bonjour,

Je vais donc abandonner l'idée d'avoir un bouton double control (Afficher et maquer les lignes vides, sauf si qq a la solution) et je vais conserver mes VBA, pour l'enregistrement de la facture en pdf dans un chemin d'accès précis, et la vba pour masquer les lignes vide. Module 2 : Masquer les lignes avec un bouton de contrôle

Sub masquer_ligne_Vide()
Dim cel As Range
For Each cel In Range("C25:C195")
If cel = "" Then
cel.EntireRow.Hidden = True
End If
Next
End Sub

J'aimerais donc insérer un nouveau module pour afficher les lignes masquées . Pouvez-vous m'aider pour la formulation de cette macro.
Merci

Merci CC381, c'est presque ça.

J'ai copié votre vba et je l'ai coller dans un module de la vba de mon fichier (d'ailleurs quelle différence de la coller directement sur la feuille ou la coller dans un module inséré?). J'ai changeé
Const lideb = 70 ' ligne de départ de la recherche de lignes vides
Const lifin = 195 ' dernière ligne --------------------------------
Const covid = "C" ' colonne
Colonne C car point de départ pour rechercher si la C70 si vide
puis executer et rien ne se passe

Si j'ai bien compris, ces macros ne fonctionnent que si toute la ligne de la feuille est vide, alors que dans mon fichier, les premières colonnes sont effectivement vides, mais à partir de la colonne k par exemple, il y a des valeurs valeurs masquées. Donc quand j'exécute ta macro, cela ne masque pas les lignes (normal car elle ne sont pas vide).
Je pense que je me suis mal exprimée, je veux masquer les lignes si les cellules des colonne C à H sont vides, la plus importante étant la première car ci elle est vide automatiquement les suivantes jusqu'à H le sont.

La macro que j'ai mis fonctionne bien mais que pour masquer et pas pour effacer, vous l'aurez compris.

Autre complication, c'est quand je clique sur exécuter, une fenêtre macro s'affiche avec les trois macro de ce fichier "afficher tout", "cacher les ligne" et "enregistrement facture". Que dois je faire?
Et pour le bouton commande, étant donné qu'il a double fonction . Est ce un bouton lambda, comment affecter deux macros sur un bouton.

Merci beaucoup en tout cas pour votre aide. Je suis pas très douée dès que ca touche aux macros

Cdt

Merci beaucoup CCM81 pour ces éclaircissement.

Peux-t-on rajouter dans la private sub imprimer, la zone d'impression que j'ai défini.
En effet, quand je veux imprimer à partir de fichier, mon aperçu prend bien en compte la zone défini. Mais si je le fais à partir du bouton de controle, c'est toute la page qui est visible.

Cdt

Super ça fonctionne de mon coté.

Merci énormément pour ton aide.

Est ce que je peux abuser de ta gentillesse mais surtout de tes connaissance pour te demander comment faire pour avoir une image sympa en lieu et place du bouton de contrôle activex? Par exemple une imprimante pour le bouton Imprimer.

Cdt

GENIAL, j'ai réussi a faire les modifications.

En revanche pour le bouton Afficher/Masquer, je n'y arrive pas et pour cause pas sur que l'on puisse affecter deux image à une macro ?

Dans le fichier joint les images que je souhaite utilise , le vert pour la commande afficher et le rouge pour Masquer. Peut-on les utiliser à la place du bouton control activex lambda. Est-ce que tu penses que c'est possible?

https://www.cjoint.com/c/JKot3lmJcMj
Merci

PARFAIT. Merci infiniment pour ton aide