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

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
803
Retour