reproduire une macro sur 10 feuilles

[boudu]

bonjour au forum
Cela fait plusieurs fois que je suis aidé sur ce fichier mais je coince à nouveau
MyDearFriend et Monique m'ont déjà beaucoup aidé en me fournissant deux macros et deux formules qui m'ont permis d'avancer
A chaque fois j'ai réduit mon vrai fichier qui comprend 10 feuilles de saisie et une qui recupere les elements (statistiques)
Chaque feuille de saisie comprend au depart 41 lignes de saisie (le maxi possible) mais pour plus de lisibilité à l'impression, je souhaite pouvoir eliminer les lignes inutilisée
Par contre si une ligne a été oubliée je souhaite pouvoir la (ou les )rajouter
Les feuilles sont protégées; MyDearFriend m'a proposé une macro qui marche impeccablement sur ma premiere feuille mais rien à faire sur la seconde!!!
De plus etant donné que la macro leve la protection avec les lignes sur Thisworkbook, comment dois je faire pour que ça fonctionne sur les 10 pages
Je joins mon fichier avec deux feuilles seulement pour l'alleger au maximum
Merci d'avance car ça fait un moment que j'essaie de comprendre ce qui se passe sur la deuxieme feuille
Le mot de passe est "joachim"
Bonne journée à tous

 

[myDearFriend!]

Re : reproduire une macro sur 10 feuilles

Bonjour Boudu,

Tu trouveras ci-joint ton fichier modifié pour répondre à ton interrogation.

Concernant la procédure située dans ThisWorkbook, elle ne lève pas la protection des feuilles mais elle protège les feuilles tout en permettant la modification ultérieure de ces dernières par macro. Pour que ça puisse fonctionner sur toutes les pages de ton classeur (sauf sur la feuille "STATISTIQUES" si j'ai bien compris...), j'ai appliqué le code suivant :

[SIZE=2]Private [COLOR=navy]Sub[/COLOR] Workbook_[COLOR=navy]Open[/COLOR]()
[COLOR=navy]Dim [/COLOR]F[COLOR=navy] As [/COLOR]Worksheet
      [COLOR=navy]For Each[/COLOR] F[COLOR=navy] In [/COLOR]Worksheets
            [COLOR=navy]If Not [/COLOR]F[COLOR=navy] Is [/COLOR]Sheets("STATISTIQUES") [COLOR=navy]Then[/COLOR]
                  F.Protect Password:="joachim", UserInterfaceOnly:=[COLOR=navy]True[/COLOR]
            [COLOR=navy]End If[/COLOR]
      [COLOR=navy]Next[/COLOR] F
[COLOR=navy]End[/COLOR] Sub[/SIZE]

Et comme la macro d'ajout de ligne ne fonctionne correctement que s'il reste au moins une ligne dans le tableau, j'en ai profité pour modifier la macro de suppression afin d'empêcher le traitement de la ligne 10.

Je te laisse créer les boutons pour ta feuille "1ère COM° FSLU ML" et pour les autres feuilles de ton classeur original. Les procédures du module 1 (SupprLignVide et AjouteLigne) devraient pouvoir fonctionner pour toutes tes feuilles.

Cordialement,

 

[boudu]

Re : reproduire une macro sur 10 feuilles

Bonjour MyDearFriend et merci encore une fois
J'espere que je vais réussir à finaliser ce fichier!!!

Bonne fin de journée