Ne pas imprimer des cellules vides Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
r
roxaneaurelie
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 10 décembre 2014
Version d'Excel : 2007

Message par roxaneaurelie » 16 décembre 2014, 13:27

Voici le fichier.

Merci
phoenix financial service.xlsm
(27.3 Kio) Téléchargé 21 fois
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 421
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 16 décembre 2014, 13:53

Bonjour,


Merci pour le fichier ...

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

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
r
roxaneaurelie
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 10 décembre 2014
Version d'Excel : 2007

Message par roxaneaurelie » 17 décembre 2014, 12:34

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,
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 421
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 17 décembre 2014, 13:13

Bonjour,

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

Tout fonctionne ... donc il faut t'assurer que ton imprimante est en état de fonctionner normalement ...
phoenix financial service.xlsm
(30.35 Kio) Téléchargé 37 fois
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
J
Joan066
Membre habitué
Membre habitué
Messages : 66
Inscrit le : 19 février 2016
Version d'Excel : 2003

Message par Joan066 » 29 février 2016, 19:33

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message