Ne pas imprimer des cellules vides

Bonjour,

J'ai créé une feuille excel de calcul mais je ne souhaite pas imprimer les lignes où les colonnes débit- crédit ont des cellules vides.

Comment faire ? En sachant que les cellules vides peuvent changer.

Cordialement,

bonjour

un essai

tu filtres par les 1 (il y a une formule qui detecte ...) et tu imprimes la selection

a defaut

cordialement

76roxanelli.xlsx (19.08 Ko)

Merci,

Mais j'aurais préféré que cela se fasse tout seul.

re

en feuille3 ; je te laisse bidouiller la zone d'impression

101roxanelli-2.xlsx (25.61 Ko)

cordialement

DISONS QUE PAR MACRO CA SERAIT PLUS SIMPLE POUR MOI;

Bonjour Roxane,

Salut Tulipe ...

Ci-joint un fichier test ... avec macro d'impression ... pour le fun ...

382test-roxane.xlsm (28.45 Ko)

Merci beaucoup,

Ca marche super.

roxaneaurelie a écrit :

Merci beaucoup,

Ca marche super.

Ravi que cela corresponde à ton attente ...

Merci pour tes remerciements ... !!!

Bonjour,

J'ai reessayé ce matin le fichier, malheureusement, je n'arrive plus à imprimer en macro.

Bonjour Roxane,

J'ai oublié de te dire que la macro ne fonctionne ... que l'après-midi ...

Blague à part, si tu as du mal à adapter la macro à ton fichier ... il faut reposter ton fichier ...

Voici le fichier.

Merci

Bonjour,

Merci pour le fichier ...

Peux-tu me dire quel est le résultat que tu attends ??? ... car la macro semble correctement fonctionner ...

Bonjour,

En fait, si je clique sur le bouton impression, il ne se passe rien.

Et si je vais comme d'habitude sur imprimer ... La macro ne fonctionne pas.

Cordialement,

Bonjour,

Je te joins à nouveau ton fichier ... que je viens de re-tester ...

Tout fonctionne ... donc il faut t'assurer que ton imprimante est en état de fonctionner normalement ...

bonjour a tous, je tourne en rond dans la recherche d'une formule, qui recherche la première ligne vide de "B6 a B155" et imprime la sélection de la Macro . de "B6 a AK155"

merci de votre aide

Cordialement

Sub impressionfintournoi()

' bouton 210

Dim Plage As Variant

''''''''''''''recherche ligne B6 a B155 vide''''' ''''''''''''''''

With Sheets("Tableau Tournante ")

Set Plage = Range("b6:b155" & Cells(Rows.Count, 1).End(xlUp).Row)

Plage.SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select

End With

'''''''''''''''''''''''''''''' jusque là c'est bon''''''''''''''''''''''''''''''''''

' et a partir de là toutes les formules essayé ne fonctionne pas

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set Plage = Range("b6:ak155") ' LA PLAGE DE L' IMPRESSION a réaliser

For Each o In Plage

If o.Value = "0" Then

o.EntireRow.Hidden = True

End If

Next

end sub

Rechercher des sujets similaires à "pas imprimer vides"