Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Imprimer sur une colonne de C3:C...

Imprimer sur une colonne de C3:C...

2 réponses
Avatar
Vincent
Bonsoir
J'ai cette procédure
merci à Isabelle
mais je souhaite qu'elle imprime que si il y a quelque chose de C3 à C...

With ActiveSheet
.PageSetup.PrintArea = "$C3:$C1000"
.PrintOut
.PageSetup.PrintArea = ""
End With

Merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Bonjour Vincent,

Essaie ceci : Si cette procédure doit s'exécuter pour une feuille précise, il serait préférable d'utiliser ceci :

With Worksheets("NomDeLAFeuille") au lieu de With ActiveSheet.


'-------------------------------
Dim Rg As Range
With ActiveSheet
Set Rg = .Range("C3:C" & .Range("C65536").End(xlUp).Row)
If WorksheetFunction.CountA(Rg) > 1 Then
.PageSetup.PrintArea = Rg.Address
.PrintOut
.PageSetup.PrintArea = ""
End If
End With
Set Rg = Nothing
'-------------------------------


Salutations!



"Vincent" a écrit dans le message de news: %
Bonsoir
J'ai cette procédure
merci à Isabelle
mais je souhaite qu'elle imprime que si il y a quelque chose de C3 à C...

With ActiveSheet
.PageSetup.PrintArea = "$C3:$C1000"
.PrintOut
.PageSetup.PrintArea = ""
End With

Merci
Avatar
Vincent
Merci beaucoup Michdenis
c'est exactement cela
Bonne soirée

"MichDenis" a écrit dans le message de news:

Bonjour Vincent,

Essaie ceci : Si cette procédure doit s'exécuter pour une feuille précise,
il serait préférable d'utiliser ceci :

With Worksheets("NomDeLAFeuille") au lieu de With ActiveSheet.


'-------------------------------
Dim Rg As Range
With ActiveSheet
Set Rg = .Range("C3:C" & .Range("C65536").End(xlUp).Row)
If WorksheetFunction.CountA(Rg) > 1 Then
.PageSetup.PrintArea = Rg.Address
.PrintOut
.PageSetup.PrintArea = ""
End If
End With
Set Rg = Nothing
'-------------------------------


Salutations!



"Vincent" a écrit dans le message de
news: %
Bonsoir
J'ai cette procédure
merci à Isabelle
mais je souhaite qu'elle imprime que si il y a quelque chose de C3 à C...

With ActiveSheet
.PageSetup.PrintArea = "$C3:$C1000"
.PrintOut
.PageSetup.PrintArea = ""
End With

Merci