Impression plage

[jean paul]

Bonsoir

Dans ce code je lance une impression d'une plage suite à un masquage de certaine ligne ,j'aimerais ne pas lancer l'impression si la plage1 est vide



On Error Resume Next
x = 0
x = Application.Match(Cell, PlageCodes, 0)


If x = 0 Then Cell.EntireRow.Hidden = True
Next Cell

Set Plage1 = _
Sheets("HS").Range("A2:C" & Sheets("HS").Range("C60").End(xlUp).Row)



Plage1.PrintOut 'imprimer les lignes non masquées

Sheets("HS").Rows.Hidden = False 'réafficher toutes les lignes

End Sub
merci de vos réponses ,bonne soirée à tous
JP

 

[Guest]

Re : Impression plage

Bonjour JeanPaul,

tu peux essayer ceci, en sachant qu'une cellule contenant une chaine de caractère vide "" (renvoyée par une formule par exemple) n'est pas compté comme vide, tout comme une éventuelle formule ne renvoyant rien.

la Ligne On error est là car une erreur est levée si toutes les cellules de la plage comporte quelque chose.

On Error Resume Next
x = Plage1.SpecialCells(xlCellTypeBlanks).Count
On Error Goto 0
  If x = Plage1.Cells.Count Then
      'La plage est vide
  Else
     Plage1.PrintOut
  End if

A+

 

[Compte Supprimé 979]

Re : Impression plage

Bonsoir Jean-Paul,

Essaye peut-être avec

...
If Plage1.Rows.Count > 1 Then
  Plage1.PrintOut 'imprimer les lignes non masquées
End If
...

A+

Edit : Oups, bonsoir Hasco, enchanté de te croiser sur le fil

 

[Guest]

Re : Impression plage

Bruno,

Puisque Jean-Paul ne répond pas. J'en profite pour te saluer aussi, c'est rare en ce moment de nous croiser.
Bonne soirée
A+++

 

[jean paul]

Re : Impression plage

Bonsoir BRUNO et HASCO
Merci pour vos réponses si rapides
vos solutions me conviennent ca marche

bonne soirée A+

 

[Cousinhub]

Re : Impression plage

Bonsoir,

Tout d'abord, pour saluer Hasco et Bruno ))

Et ensuite, pour apporter ma pierre à l'édifice......

Jean-Paul, comme il manque le début de ton code, on ne sait pas si tes titres sont dans la ligne 1 ou 2

Si tes titres sont dans la ligne 1, tu peux utiliser ce code, qui fonctionne même si la ligne 2 est masquée (code qu'on pourrait adapter, en fonction de la ligne de titre....)

Sub hub()
If Range("A:A").SpecialCells(xlCellTypeVisible).Areas(1).Count > 1 Then
    Set Plage1 = _
        Sheets("HS").Range("A1:C" & Sheets("HS").Range("C60").End(xlUp).Row)
    Plage1.PrintPreview
ElseIf Range("A:A").SpecialCells(xlCellTypeVisible).Areas(2).Item(1) <> "" Then
    Set Plage1 = _
        Sheets("HS").Range("A1:C" & Sheets("HS").Range("C60").End(xlUp).Row)
    Plage1.PrintPreview
End If
Sheets("HS").Rows.Hidden = False 'réafficher toutes les lignes
End Sub

Bonne soirée à tous, et Bon Vikend......

Edit : Il faut bien sûr remplacer PrintPreview par PrintOut

 

[Compte Supprimé 979]

Re : Impression plage

Bonsoir à toi mon cher Bh²

Et ensuite, pour apporter ma pierre à l'édifice......

Et quelle pierre .... sacré édifice que tu nous as fait là

Mes amitiès

A+

 

[Guest]

Re : Impression plage

Hello BH²,

De son phare finistérien, il voit loin le Bh².

Bon viking euh; vikende à toi tossi

 

[jean paul]

Re : Impression plage

Merci BHBH pour ce dernier code
bon weekend à tous