Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Lancement de Macro

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

sonskriverez

XLDnaute Occasionnel
Bonsoir le Forum,

J'ai créé dans ma feuille une "zonz de texte" contenant des instructions et un bouton qui lance une macro, je voudrais inclure dans cette macro l'effacement de cette "zone de texte".

Merci de votre aide
 
Re : Lancement de Macro

Bonsoir


Tu veux effacer le contenu de la zone de texte? voir Macro1
la supprimer? voir Macro2
ou la masquer? voir Macro3

Sub Macro1()
ActiveSheet.Shapes("Rectangle 1").Select
Selection.Characters.Text = ""
End Sub
Sub Macro2()
ActiveSheet.Shapes("Rectangle 1").Select
Selection.Delete
End Sub
Sub Macro3()
ActiveSheet.Shapes("Rectangle 1").Visible = False
End Sub
 
Dernière édition:
Re : Lancement de Macro

Bonjour Staple1600,

AU départ ma la feuille1 est vierge sauf que j'ai mis cette zone de Texte contenant du texte et un bouton (en attachant ensemble les 2 objets).

Dans cette Feuille je colle des datas. Ensuite je clique sur le Bouton pour lancer la macro qui va aller copier et coller les datas sur une Feuille2;

Le probleme c'est que je me retrouve sur la feuille2 avec les dats et la zone de texte complète.

Alors 1ere solution : empêcher de copier la zone de texte.
2 eme solution : supprimer la zonz de texte avec de la copier

je prefere la 1 ere

merci de ton aide
 
Re : Lancement de Macro

Je viens de faire un essai en utilisant ton code de masquage juste avant la copie (false) et en remettant la valeur à (true) après la copie et ça fonctionne.


Merci de ton aide et à tous ceux qui ont lu ce post
 
Re : Lancement de Macro

Bonsoir sonskriverez, Staple1600, le forum,

Je n'ai jamais utilisé une Zone de texte, mais peut-être un truc dans ce genre :

Sheets(nom de la feuille).Activate
ActiveSheet.(Ta zone de texte, je n'ai pas la correspondance en VBA).Select
Selection.Cut

Juste avant la recopie....

Si cela peut de faire avancer...

Je cherche et au besoin te dis....

Bonne soirée et week-end.

Jean-Pierre
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Réponses
4
Affichages
175
Réponses
43
Affichages
804
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…