edition via VBA

R

Robert

Guest

• 4 Janvier 2005

• #2

Bonjour Corynne,
Tu peux protéger ou non les feuilles qui doivent être éditer:
1) A l'ouverture du classseur toutes les feuilles sont protégées
2) après avoir sélectionner les feuilles à modifier tu appuye sur un bouton d'action qui déprotéges les feuilles sélectionnées
3) lors de la sauvegarde ne pas oublier de reprotéger les feuilles...
@+

 

Vote positif 0 Vote négatif

C

Corynne

Guest

• 4 Janvier 2005

• #3

Bonjour Robert
Merci pour la prompte réponse , je ne comprends pas cependant comment les éditions vont se faire automatiquement, il y a t'il un lien entre la protection du classeur et l'édition des feuilles qu'il comprend?
désolée de te solliciter de nouveau , je ne m'y entends pas vraiment en VBA et merci encore
Corynne

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 4 Janvier 2005

• #4

Bonjour le forum
Bonjour Corynne, bonjour Robert

Une démo à adapter à ton fichier.
@ + Eric C

 

Pièces jointes

• USF_Excel_Imprimer.zip

  20.9 KB · Affichages: 28
• USF_Excel_Imprimer.zip

  20.9 KB · Affichages: 28
• USF_Excel_Imprimer.zip

  20.9 KB · Affichages: 30

Vote positif 0 Vote négatif

M

Mireille

Guest

• 4 Janvier 2005

• #5

Je te propose cette petite macro qui s'adapte à ton fichier
Sub ImpPage()
Application.ScreenUpdating = False
Range("E39").Select
For I = 1 To 87
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

Bonne année à tous

 

Vote positif 0 Vote négatif

C

Corynne

Guest

• 4 Janvier 2005

• #6

Bonjour Eric ,
Je te remercie pour la réponse ,que j'ai essayé et qui fonctionne à la perfection , cependant j'aurais voulu pouvoir selectionner les pages directement sur la page de garde conçue a cet effet ,car j'ai l'ennoncé des pages que je souhaites éditer
Merci d'avance pour ton aide
A+
Corynne

 

Vote positif 0 Vote négatif

C

Corynne

Guest

• 4 Janvier 2005

• #7

Bonjour Mireille
Merci pour la réponse ,j'ai essayé ton approche ,mais la macro ne fontionne pas ,il semblerait qu'il manque des objets.
Je te remercie pour ton aide
A+
Corynne

 

Vote positif 0 Vote négatif

M

Mireille

Guest

• 4 Janvier 2005

• #8

J'ai mis mon e-mail si tu veux plus d'explication.
Attention à deux choses, dans ton fichier :
- certaines cellules qui ne contiennent pas de croix ne sont néanmoins pas vides (il y a un blanc)
- certaines pages indiquées dans la page de garde ne correspondent pas à des feuilles réelles dans le classeur, donc la macro s'arrête.

 

Vote positif 0 Vote négatif

C

Corynne

Guest

• 4 Janvier 2005

• #9

Bonsoir Mireille,
Merci mille fois pour ton aide, la formule VBA fontionne impecable, il fallait effectivement effacer les cellules et non pas faire sortir les croix en utilisant la barre espace.

Je ne voudrait pas abuser , mais dans le meme classeur j'aurais voulu créer une formule VBA pour préselectionner automatiquement les pages que je voudrais éditer , par exemple si je selectionne "Engagement" en mettant une croix dans la cellule C24 ,automatiquement toutes les pages sont selectionnées pour édition , ou si je selectionne "Tresorerie" seules les pages concernées seront selectionnées pour édition (cf fichier DA2004 joint précedemment), je ne sais pas si c'est possible , mais d'avance merci si tu as une solution éventuelle

Bonne soirée
A+
Corynne

 

Vote positif 0 Vote négatif

C

Corynne

Guest

• 6 Janvier 2005

• #10

Bonjour le forum

Je suis desespérée , je n'ai pas de réponse à ma denière question, SOS ,merci pour votre aide .

Merci encore Mireille pour ton aide sur les éditions qui fonctionne à merveille et à Eric pour avoir pris le temps de se pencher sur mon message
A+
Corynne

 

Vote positif 0 Vote négatif