Correction formule VBA pour impression

[Corynne]

Bonsoir à tous

J'aurais grand besoin de votre aide et vous en remercie d'avance

Voila j'ai une formule Vba dans un classeur qui me permet de faire les éditions des feuilles de ce classeur ci-aprés

Sub ImpPage()
Application.ScreenUpdating = False
Range("E24").Select
For I = 1 To 69
If Not IsEmpty(ActiveCell) Then
ActiveCell.Offset(0, -3).Range("A1").Select
nomfeuil = ActiveCell.Value
Sheets("" & nomfeuil).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Page Garde").Select
ActiveCell.Offset(1, 3).Range("A1").Select
Else
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Next I
End Sub

j'aurais voulu modifier cette formule pour que seule les feuilles selectionnées par un "x" s'editent
je joint la page de garde de mon classeur ,j'ai oter une partie des feuilles pour alleger le fichier si cela peut vous etre utile
Je travaille au fait sur Microsoft Office 2003
Je vous avoue que je ne maitrise pas du tout le VBA d'ou mon appel a l'aide
Encore merci pour votre aide et votre temps
Bonne soirée
Corynne

 

[Corynne]

Re : Correction formule VBA pour impression

re bonjour
Désolée j'ai oublié d'annexer le fichier ci-joint
Merci de votre comprehension
Corynne

 

[papapaul]

Re : Correction formule VBA pour impression

🙄 Si je comprends un peu,
Tu voudrais imprimer les feuilles marquées d'un x dans
la colonne E.
Regarde, mon bidule, tu peux peut-être adapter
le usf_initialize listbox1
au lieu de For each c.....
mettre quelque chose comme
for cell in columns ("e:..") = x then...
Enfin, faut voir. Dis nous si la méthode pourrait te convenir.
On peut y réfléchir. 🙄
@+

 

[pierrejean]

Re : Correction formule VBA pour impression

bonjour Corynne

Salut papapaul (pas vu ton fichier ,j'y jette un cil)

@Corynne

vois si cela te convient

boucle a adapter (changer 27 en 69 )

 

[papapaul]

Re : Correction formule VBA pour impression

🙂 Y a un cil dans ma pizza, bizarre ?§

Mais bon, il lui à reste à PierreJean. (Sympa)

Pour répondre à Corinne, moi j'aime bien être sur
avant d'imprimer, ca coute cher les cartouches.
C'est pour ca que j'utilise beaucoup mes listebox.

Alors faire une liste avec seulement les x, ca doit pas
être trop difficile, je pense pouvoir y arriver mais
c'est y bien ca quelle veut corinne ?

Vu que je suis trés lent, faudra pas qu'elle soit pressée.😀

Oups, bonnes soirée les zamixld. 🙄

 

[Corynne]

Re : Correction formule VBA pour impression

Bonjour
d'abord merci à papapaul et PierreJean d'avoir pris le temps de voir mon soucis

ta modif de ma formule VBA PierreJean me convient tout a fait , j'ai fais un essai et c'est impecable, c'est bien ce que je voulais car les "x" viennent d'un préselection par formule et ce sont ces formules qui me genait dans le code VBA que j'avais auparavant

Merci encore , je vous souhaite une trés belle journée et une bonne continuation
Corynne