Lancer une macro dans fichier protégé
Résolu/Fermé
christophedir
Messages postés
200
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
28 février 2024
-
6 juin 2020 à 17:54
christophedir Messages postés 200 Date d'inscription vendredi 18 novembre 2016 Statut Membre Dernière intervention 28 février 2024 - 7 juin 2020 à 15:28
christophedir Messages postés 200 Date d'inscription vendredi 18 novembre 2016 Statut Membre Dernière intervention 28 février 2024 - 7 juin 2020 à 15:28
A voir également:
- Lancer une macro dans fichier protégé
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
3 réponses
M-12
Messages postés
1331
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
283
6 juin 2020 à 18:00
6 juin 2020 à 18:00
Bonjour,
Remplace ta macro par celle-ci
Remplace ta macro par celle-ci
Sub Macro2() ' ' Macro2 Macro ' Sheets("Palette Produit fini heure").Unprotect "Terre" Union(Range( _ "M16,O16,Q16,S16,U16,W16,Y16,AA16,AA19,Y19,W19,U19,S19,Q19,O19,M19,M22,O22,Q22,S22,U22,W22,Y22,AA22,AA25,Y25,W25,U25,S25,Q25,O25,M25" _ ), Range( _ "M28,O28,Q28,S28,U28,W28,Y28,AA28,AA31,Y31,W31,U31,S31,Q31,O31,M31,M34,O34,Q34,S34,U34,W34,Y34,AA34,AA37,Y37,W37,U37,S37,Q37,O37,M37" _ ), Range( _ "M40,O40,Q40,S40,U40,W40,Y40,AA40,AA43,Y43,W43,U43,S43,Q43,O43,M43,M45,O46,Q46,S46,U46,W46,Y46,AA46,AA49,Y49,W49,U49,S49,Q49,O49,M49" _ ), Range( _ "M52,O52,Q52,S52,U52,W52,Y52,AA52,AA55,Y55,W55,U55,S55,Q55,O55,M55,M58,O58,Q58,S58,U58,W58,Y58,AA58,AA61,Y61,W61,U61,S61,Q61,O61,M61" _ ), Range( _ "B3,B6,B9,B12,B15,B18,B21,B24,B27,B30,B33,B36,B39,B42,B45,B48,B50,B51,B54,B57,B60,M4,O4,Q4,S4,U4,W4,Y4,AA4,AA7,Y7,W7" _ ), Range( _ "U7,S7,Q7,O7,M7,M10,O10,Q10,S10,U10,W10,Y10,AA10,AA13,Y13,W13,U13,S13,Q13,O13,M13" _ )).Select Range("B60").Activate Selection.ClearContents Range("AH8:AH11").Select Sheets("Palette Produit fini heure").Protect "Terre" End Sub
M-12
Messages postés
1331
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
283
6 juin 2020 à 20:33
6 juin 2020 à 20:33
Re,
Ouvre tes yeux et regarde la macro de ton fichier ne PJ et celle que j'ai posté
Ouvre tes yeux et regarde la macro de ton fichier ne PJ et celle que j'ai posté
christophedir
Messages postés
200
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
28 février 2024
6 juin 2020 à 21:18
6 juin 2020 à 21:18
re
copie de la macro => idem à la tienne puisque c'est une copie mais cela ne change rien a mon problème.
Sub Macro2()
'
' Macro2 Macro
'
Sheets("Palette Produit fini heure").Unprotect "Terre"
Union(Range( _
"M16,O16,Q16,S16,U16,W16,Y16,AA16,AA19,Y19,W19,U19,S19,Q19,O19,M19,M22,O22,Q22,S22,U22,W22,Y22,AA22,AA25,Y25,W25,U25,S25,Q25,O25,M25" _
), Range( _
"M28,O28,Q28,S28,U28,W28,Y28,AA28,AA31,Y31,W31,U31,S31,Q31,O31,M31,M34,O34,Q34,S34,U34,W34,Y34,AA34,AA37,Y37,W37,U37,S37,Q37,O37,M37" _
), Range( _
"M40,O40,Q40,S40,U40,W40,Y40,AA40,AA43,Y43,W43,U43,S43,Q43,O43,M43,M45,O46,Q46,S46,U46,W46,Y46,AA46,AA49,Y49,W49,U49,S49,Q49,O49,M49" _
), Range( _
"M52,O52,Q52,S52,U52,W52,Y52,AA52,AA55,Y55,W55,U55,S55,Q55,O55,M55,M58,O58,Q58,S58,U58,W58,Y58,AA58,AA61,Y61,W61,U61,S61,Q61,O61,M61" _
), Range( _
"B3,B6,B9,B12,B15,B18,B21,B24,B27,B30,B33,B36,B39,B42,B45,B48,B50,B51,B54,B57,B60,M4,O4,Q4,S4,U4,W4,Y4,AA4,AA7,Y7,W7" _
), Range( _
"U7,S7,Q7,O7,M7,M10,O10,Q10,S10,U10,W10,Y10,AA10,AA13,Y13,W13,U13,S13,Q13,O13,M13" _
)).Select
Range("B60").Activate
Selection.ClearContents
Range("AH8:AH11").Select
Sheets("Palette Produit fini heure").Protect "Terre"
End Sub
copie de la macro => idem à la tienne puisque c'est une copie mais cela ne change rien a mon problème.
Sub Macro2()
'
' Macro2 Macro
'
Sheets("Palette Produit fini heure").Unprotect "Terre"
Union(Range( _
"M16,O16,Q16,S16,U16,W16,Y16,AA16,AA19,Y19,W19,U19,S19,Q19,O19,M19,M22,O22,Q22,S22,U22,W22,Y22,AA22,AA25,Y25,W25,U25,S25,Q25,O25,M25" _
), Range( _
"M28,O28,Q28,S28,U28,W28,Y28,AA28,AA31,Y31,W31,U31,S31,Q31,O31,M31,M34,O34,Q34,S34,U34,W34,Y34,AA34,AA37,Y37,W37,U37,S37,Q37,O37,M37" _
), Range( _
"M40,O40,Q40,S40,U40,W40,Y40,AA40,AA43,Y43,W43,U43,S43,Q43,O43,M43,M45,O46,Q46,S46,U46,W46,Y46,AA46,AA49,Y49,W49,U49,S49,Q49,O49,M49" _
), Range( _
"M52,O52,Q52,S52,U52,W52,Y52,AA52,AA55,Y55,W55,U55,S55,Q55,O55,M55,M58,O58,Q58,S58,U58,W58,Y58,AA58,AA61,Y61,W61,U61,S61,Q61,O61,M61" _
), Range( _
"B3,B6,B9,B12,B15,B18,B21,B24,B27,B30,B33,B36,B39,B42,B45,B48,B50,B51,B54,B57,B60,M4,O4,Q4,S4,U4,W4,Y4,AA4,AA7,Y7,W7" _
), Range( _
"U7,S7,Q7,O7,M7,M10,O10,Q10,S10,U10,W10,Y10,AA10,AA13,Y13,W13,U13,S13,Q13,O13,M13" _
)).Select
Range("B60").Activate
Selection.ClearContents
Range("AH8:AH11").Select
Sheets("Palette Produit fini heure").Protect "Terre"
End Sub
M-12
Messages postés
1331
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
283
>
christophedir
Messages postés
200
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
28 février 2024
7 juin 2020 à 05:40
7 juin 2020 à 05:40
Re,
Sur ta macro tu as les deux lignes en GRAS
Sub Macro2()
'
' Macro2 Macro
'
Sheets("Palette Produit fini heure").Unprotect "Terre"
Union(Range( _
"M16,O16,Q16,S16,U16,W16,Y16,AA16,AA19,Y19,W19,U19,S19,Q19,O19,M19,M22,O22,Q22,S22,U22,W22,Y22,AA22,AA25,Y25,W25,U25,S25,Q25,O25,M25" _
), Range( _
"M28,O28,Q28,S28,U28,W28,Y28,AA28,AA31,Y31,W31,U31,S31,Q31,O31,M31,M34,O34,Q34,S34,U34,W34,Y34,AA34,AA37,Y37,W37,U37,S37,Q37,O37,M37" _
), Range( _
"M40,O40,Q40,S40,U40,W40,Y40,AA40,AA43,Y43,W43,U43,S43,Q43,O43,M43,M45,O46,Q46,S46,U46,W46,Y46,AA46,AA49,Y49,W49,U49,S49,Q49,O49,M49" _
), Range( _
"M52,O52,Q52,S52,U52,W52,Y52,AA52,AA55,Y55,W55,U55,S55,Q55,O55,M55,M58,O58,Q58,S58,U58,W58,Y58,AA58,AA61,Y61,W61,U61,S61,Q61,O61,M61" _
), Range( _
"B3,B6,B9,B12,B15,B18,B21,B24,B27,B30,B33,B36,B39,B42,B45,B48,B50,B51,B54,B57,B60,M4,O4,Q4,S4,U4,W4,Y4,AA4,AA7,Y7,W7" _
), Range( _
"U7,S7,Q7,O7,M7,M10,O10,Q10,S10,U10,W10,Y10,AA10,AA13,Y13,W13,U13,S13,Q13,O13,M13" _
)).Select
Range("B60").Activate
Selection.ClearContents
Range("AH8:AH11").Select
Sheets("Palette Produit fini heure").Protect "Terre"
End Sub
Sur ta macro tu as les deux lignes en GRAS
Sub Macro2()
'
' Macro2 Macro
'
Sheets("Palette Produit fini heure").Unprotect "Terre"
Union(Range( _
"M16,O16,Q16,S16,U16,W16,Y16,AA16,AA19,Y19,W19,U19,S19,Q19,O19,M19,M22,O22,Q22,S22,U22,W22,Y22,AA22,AA25,Y25,W25,U25,S25,Q25,O25,M25" _
), Range( _
"M28,O28,Q28,S28,U28,W28,Y28,AA28,AA31,Y31,W31,U31,S31,Q31,O31,M31,M34,O34,Q34,S34,U34,W34,Y34,AA34,AA37,Y37,W37,U37,S37,Q37,O37,M37" _
), Range( _
"M40,O40,Q40,S40,U40,W40,Y40,AA40,AA43,Y43,W43,U43,S43,Q43,O43,M43,M45,O46,Q46,S46,U46,W46,Y46,AA46,AA49,Y49,W49,U49,S49,Q49,O49,M49" _
), Range( _
"M52,O52,Q52,S52,U52,W52,Y52,AA52,AA55,Y55,W55,U55,S55,Q55,O55,M55,M58,O58,Q58,S58,U58,W58,Y58,AA58,AA61,Y61,W61,U61,S61,Q61,O61,M61" _
), Range( _
"B3,B6,B9,B12,B15,B18,B21,B24,B27,B30,B33,B36,B39,B42,B45,B48,B50,B51,B54,B57,B60,M4,O4,Q4,S4,U4,W4,Y4,AA4,AA7,Y7,W7" _
), Range( _
"U7,S7,Q7,O7,M7,M10,O10,Q10,S10,U10,W10,Y10,AA10,AA13,Y13,W13,U13,S13,Q13,O13,M13" _
)).Select
Range("B60").Activate
Selection.ClearContents
Range("AH8:AH11").Select
Sheets("Palette Produit fini heure").Protect "Terre"
End Sub
christophedir
Messages postés
200
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
28 février 2024
7 juin 2020 à 15:28
7 juin 2020 à 15:28
Bonjour M-12
J'étais de nuit hier soir et j'en ai profité pour installer le fichier et bizarrement le fichier fonctionné très bien et cela sans que je sois obligé de mettre ces 2 (fameuses) lignes dans la macro.
Donc problème résolu, merci à vous et bon dimanche.
J'étais de nuit hier soir et j'en ai profité pour installer le fichier et bizarrement le fichier fonctionné très bien et cela sans que je sois obligé de mettre ces 2 (fameuses) lignes dans la macro.
Donc problème résolu, merci à vous et bon dimanche.
6 juin 2020 à 18:24
Cela marche, le souci que j'ai maintenant est quand j'appuie sur le bouton de la macro, il ne se passe rien. je suis obligé a chaque fois d'assigner la macro au bouton et de dire macro dans 'ce classeur.
6 juin 2020 à 18:28
Si tu assignes le nom de la macro à ton bouton et que tu enregistres le classeur, cela ne devrait plus se produire
sinon copie/colle les deux lignes ajouter (la 1ère et la dernière)
6 juin 2020 à 19:06
la sauvegarde ne change rien.
Par contre je ne comprends pas ce que tu entends avec la deuxième options
"copie/colle les deux lignes ajouter (la 1ère et la dernière) "