Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Impression d'onglets

Impression d'onglets

3 réponses
Avatar
Dolly
Bonjour, j'ai une base excel avec plusieurs rapports (1
par onglet).

J'ai fait une feuille =ABMenu=BB dans laquelle j'ai plac=E9 des
bo=EEte =E0 cocher pour que les utilisateurs s=E9lectionne
seulement les rapports qu'ils d=E9sirent. Je veux ins=E9rer un
bouton =ABimprimer=BB qui imprimera les rapports s=E9lectionn=E9s.

Quelqu'un m'a donn=E9 cette formule VBA:

Sub zz_Imprim_ChBx()
For Each chbx In ActiveSheet.CheckBoxes
If chbx.Value =3D xlOn Then tablo =3D tablo &=20
chbx.Caption & """" & "," & """"
compt =3D compt + 1
Next
If tablo =3D "" Then Exit Sub
y =3D "{" & """" & Left(tablo, Len(tablo) - 2) & "}"
MsgBox y
For i =3D 1 To compt
On Error Resume Next
'pour tester : aper=E7u avant impression
Sheets(Evaluate("Index(" & y & "," & i=20
& ")")).PrintPreview
Next
End Sub

Je ne comprends pas vraiment la formule. Qu'est-ce qui=20
correspond =E0 mes noms de Checkboxe et c'est quoi qui=20
correcpond =E0 mes noms d'onglet???

Merci!
Signaler un problème avec ce contenu

3 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
Philippe.R
Bonsoir Dolly,
Il serait préférable de rester dans le fil de discussion initial ; prends patience, Alain ne tardera pas
à te répondre.
En attendant, tu peux jeter un oeil de ce côté, surtout à la rubrique comment se connecter au forum, tu
y verras comment suivre les échanges de la manière la plus confortable pour tous :

http://www.excelabo.net/mpfe/connection.htm
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Dolly" a écrit dans le message de
news:043901c3a254$33f6a2e0$
Bonjour, j'ai une base excel avec plusieurs rapports (1
par onglet).

J'ai fait une feuille «Menu» dans laquelle j'ai placé des
boîte à cocher pour que les utilisateurs sélectionne
seulement les rapports qu'ils désirent. Je veux insérer un
bouton «imprimer» qui imprimera les rapports sélectionnés.

Quelqu'un m'a donné cette formule VBA:

Sub zz_Imprim_ChBx()
For Each chbx In ActiveSheet.CheckBoxes
If chbx.Value = xlOn Then tablo = tablo &
chbx.Caption & """" & "," & """"
compt = compt + 1
Next
If tablo = "" Then Exit Sub
y = "{" & """" & Left(tablo, Len(tablo) - 2) & "}"
MsgBox y
For i = 1 To compt
On Error Resume Next
'pour tester : aperçu avant impression
Sheets(Evaluate("Index(" & y & "," & i
& ")")).PrintPreview
Next
End Sub

Je ne comprends pas vraiment la formule. Qu'est-ce qui
correspond à mes noms de Checkboxe et c'est quoi qui
correcpond à mes noms d'onglet???

Merci!
Avatar
AV
Il serait préférable de rester dans le fil de discussion initial ; prends
patience, Alain ne tardera pas

à te répondre.


C'est fait.....;-)
Pfffff ..... même pas le temps de souffler dans cette boutique !

AV

Avatar
Michel HOLDERITH
Pauvre AV, il est temps que t'ailles prendre des vacances...... au
soleil.... :)
@+
Michel.


"AV" wrote in message
news:bo796g$61e$
Il serait préférable de rester dans le fil de discussion initial ;
prends


patience, Alain ne tardera pas
à te répondre.


C'est fait.....;-)
Pfffff ..... même pas le temps de souffler dans cette boutique !

AV