XL 2019 intégrer une macro dans le fichier en Pièce jointe

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2019

• #2

Bonjour le fil, Patrick

Patrick
Ton message indique que ta macro est enregistré dans le classeur de macros complémentaires PERSONAL.xlsb
Si tu veux enregistrer la macro dans le classeur actif, il faut le spécifier dans la liste déroulante
(située en de dessous de: Enregistrer la macro dans:)

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Octobre 2019

• #3

Bonjour Patrick ,Staple1600
la macro suppression n'est pas affecté a ton image

 

Vote positif 0 Vote négatif

P

Patrick.75019

XLDnaute Occasionnel

• 26 Octobre 2019

• #4

Merci a tous les deux , ca fait plusieurs heures que je suis dessus
le probleme est que je ne sais pas le faire
si vous pouviez me lintegrer ce serait sympa
merci a l'avance

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2019

• #5

Re

Ne pas savoir le faire n'est pas un problème
Il suffit de prendre le temps de chercher où apprendre à le faire
Heureusement le net est là pour cela

Enregistrer une macro - Support Microsoft

Après avoir créé une macro, enregistrez-la dans ce classeur ou dans votre classeur Personnel afin de l’utiliser dans tous vos fichiers Excel.

support.office.com

 

Vote positif 0 Vote négatif

P

Patrick.75019

XLDnaute Occasionnel

• 26 Octobre 2019

• #6

Merci Staple 1600

j'ai bien regardé et essayé et j'ai dit que je n'y arrivais pas
et t'as raison c'est pour cela que je suis sur le Forum pour chercher de l'aide
si tu ne peux pas faire plus car ta l'impression que j'exagère ,en ne me donnant pas la peine, je te remercie quand meme de ta sollicitude et je te souhaite une belle journée

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2019

• #7

Re

C'est pas que je ne veuille ou ne puisse faire plus
C'est juste que ma philosophie, c'est d'inciter le demandeur à mettre les mains dans le cambouis, à mouiller le maillot.
On n'est pas aux pièces (et nous sommes en week-end)
Donc tu n'arrives pas à quoi exactement?
A affecter une macro à une image?
ou à choisir l'endroit où enregistrer une macro ?
• soit dans le classeur actif
• dans le classeur de macros personnelles qui s'appelle par défaut: PERSONAL.xlb

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2019

• #8

Re

Pour infos (et sauf erreur de ma part)
Ta macro suppression peut se réduire à

VB:

Sub Suppression()
Range("J27,C22:D22,F22,H22:J22,E25:M27") = ""
End Sub

Et pour l'affecter à l'image, j'ai sélectionné l'image -> Clic-droit
Affecter macro -> Macros dans: ce classeur -> Suppression ->OK

Et c'est bien ce que tu vais fait, non ?

 

Vote positif 0 Vote négatif

P

Patrick.75019

XLDnaute Occasionnel

• 26 Octobre 2019

• #9

Merci de ta réponse ,
pour affecter la macro a l'image , ce n'est pas un probleme
c'est que je n'arrive pas a l'integrer au classeur actif

j'ai fait la macro , je l'enregistre
et j'affecte la macro a l'image
ensuite j'enregistre le fichier excel dans un classeur excel (prenant en charge les macros ,)je ferme l'application et curieusement quand ja nouveau , celle -ci a diparue
il est evident que je fais quelque chose de travers , mais quoi ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2019

• #10

Re

Quand tu dis: "j'ai fait la macro", tu la rédiges directement dans VBE, ou tu l'obtiens en utilisant l'enregistreur de macros?
Si c'est avec l’enregistreur de macros, tu respectes bien, ce que j'expliquais au message#2?
C'est à dire choisir le bon endroit où sera stocké la macro à l'aide la liste déroulante idoine.

PS: Tu as testé ma version raccourcie de ta macro Suppression?
Tu obtiens le même résultat qu'avec l'originale?

 

Vote positif 0 Vote négatif

P

Patrick.75019

XLDnaute Occasionnel

• 26 Octobre 2019

• #11

j'ai fait exactement ce que tu m'as indiqué avec le même code et affecte la macro a mon image
mais il y a un message d'erreur

Erreur d'exécution '1004':
La cellule ou le graphique que vous essayez de modifier se trouve sur une feuille protégée. Pour apporter une modification à celui-ci, vous devez ôter la protection de la feuille. Vous serez peut-être invité à entrer un mot de passe.
​

 

Vote positif 0 Vote négatif

P

Patrick.75019

XLDnaute Occasionnel

• 26 Octobre 2019

• #12

j'ai entre ton code raccourci mais la deprotégée

 

Vote positif 0 Vote négatif

P

Patrick.75019

XLDnaute Occasionnel

• 26 Octobre 2019

• #13

j'ai des problèmes lorsque j'ecris on dirait que le site bug par moment

je veux que ma feuille soit entierement protegee ,
j'execute la macro
Sub Suppression()
Range("J27,C2222,F22,H22:J22,E25:M27") = ""
End Sub

(la feuille doit se déproteger avant la procedure)

et ensuite apres l'execution de la macro que la feuille soit a nouveau protegée

j'espere que je suis clair dans mon explication ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2019

• #14

Re

Et comme ceci, c'est mieux?

VB:

Sub Suppression()
ActiveSheet.Unprotect
Range("J27,C22:D22,F22,H22:J22,E25:M27") = ""
ActiveSheet.Protect
End Sub

 

Vote positif 0 Vote négatif

P

Patrick.75019

XLDnaute Occasionnel

• 26 Octobre 2019

• #15

Staple1600 à dit:

Re

Et comme ceci, c'est mieux?

VB:

Sub Suppression()
ActiveSheet.Unprotect
Range("J27,C22:D22,F22,H22:J22,E25:M27") = ""
ActiveSheet.Protect
End Sub

Cliquez pour agrandir...

Ca a déjà avancé , mais le souci est que si je veux r entrer de nouvelles donnéees Range("J27,C2222,F22,H22:J22,E25:M27") celles -ci sont également verrouillées
je me suis certainement mal exprime au debut (Sorry )
la macro suppression me sert juste a effacer les donnéees Range("J27,C2222,F22,H22:J22,E25:M27") mais enuite il faut que je puisse reutiliser ces cellules et que tout le reste soit verrouillé_ Merci

 

Vote positif 0 Vote négatif