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.....

Imprimer.....

2 réponses
Avatar
Denys
Bonjour =E0 tous,

Je cherche =E0 imprimer une s=E9lection pr=E9cise de cellules,=20
mais je n'y arrive pas... Sauriez-vous ou est l'erreur?

Private Sub CommandButton6_Click()
With ActiveSheet
.PageSetup.PrintArea =3D "$A$107:$B$131,$U$107:$AK$131"
.Selection.PrintOut
End With
End Sub

Excel ne veut pas...

Merci pour votre aide...

Denys
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
Nicolas B.
Salut Denys,

Activesheet.Printout ou selection.printout à la place de
Activesheet.Selection.Printout.


A+
--
Nicolas B.


Bonjour à tous,

Je cherche à imprimer une sélection précise de cellules,
mais je n'y arrive pas... Sauriez-vous ou est l'erreur?

Private Sub CommandButton6_Click()
With ActiveSheet
.PageSetup.PrintArea = "$A$107:$B$131,$U$107:$AK$131"
.Selection.PrintOut
End With
End Sub

Excel ne veut pas...

Merci pour votre aide...

Denys


Avatar
Denys
Bonsoir Nicolas,

Merci, j'en prends bonne note..

Bonne soirée

Denys


-----Original Message-----
Salut Denys,

Activesheet.Printout ou selection.printout à la place de
Activesheet.Selection.Printout.


A+
--
Nicolas B.


Bonjour à tous,

Je cherche à imprimer une sélection précise de cellules,
mais je n'y arrive pas... Sauriez-vous ou est l'erreur?

Private Sub CommandButton6_Click()
With ActiveSheet
.PageSetup.PrintArea
= "$A$107:$B$131,$U$107:$AK$131"


.Selection.PrintOut
End With
End Sub

Excel ne veut pas...

Merci pour votre aide...

Denys



.