SUPPRESSION Zone de texte

[aubelix]

Bonjour à tous les amis du Forum. 🙂

Une question relative à une zone de texte :
J'ai crée un bouton avec une zone de texte pour lancer une macro
qui me sert à sauvegarder la feuille avec la valeur de la cellule B4.
Avec des variables, cette dernière est bien sauvegardée sous le nom
et le chemin indiqué dans les variables.

Comment supprimer cette zone de texte dans la nouvelle feuille ainsi créee
en sachant qu'elle n'a jamais le même nom.

Par avance Merci pour votre aide.
Cordialement.

 

[Pierrot93]

Re : SUPPRESSION Zone de texte

Bonjour Aubellix

essaye avec le code ci-dessous :

ActiveSheet.Shapes(1).Delete

bon après midi
@+

Edition : a condition que ce soit le seul objet sur la feuille.

 

[aubelix]

Re : SUPPRESSION Zone de texte

Bonjour Pierrot93.

Merci pour ta réponse.
Ca ne l'efface pas.

Cordialement.

 

[Pierrot93]

Re : SUPPRESSION Zone de texte

Re

chez moi cela fonctionne (excel 2003), as tu bien enlevé avant, les 2 autres zones de texte que tu as mis, et où est placé le code de ta macro...

 

[aubelix]

Re : SUPPRESSION Zone de texte

Re

La syntaxe de Sheets(Onglet).Activate est-elle correcte ?
Je sélectionne par cette ligne la nouvelle feuille.
Puis j'ai ajouté ton code.

Dans l'attente de votre aide.
Cordialement.

 

[Pierrot93]

Re : SUPPRESSION Zone de texte

Re

essaye comme ceci, inutile d'activer puisque c'est déjà la feuille active :

Dim onglet As String
onglet = Sheets("DATA").Range("B4").Value
Sheets("DATA").Copy
ActiveSheet.Name = onglet
ActiveSheet.Shapes(1).Delete

@+

 

[aubelix]

Re : SUPPRESSION Zone de texte

Re Pierrot93

Merci pour l'intérêt que tu porte à mon problème.
Je te joint le fichier avec la macro.
Tu jugeras par toi moi-même.
D'autre part, j'ai un message d'erreur en ajoutant
Dim onglet As String

Merci pour ton aide.
Cordialement.

 

[Pierrot93]

Re : SUPPRESSION Zone de texte

re

normal pour l'erreur "onglet" est déclaré 2 fos... le code ci dessous, exécuté pas à pas, fonctionne chez moi :

Sub nouvelle_feuille()
Dim Classdest As String, onglet As String
onglet = Sheets("DATA").Range("B4").Value
Sheets("DATA").Copy
ActiveSheet.Name = onglet
ActiveSheet.Shapes(1).Delete
    'partie non testée mais rajouté un ".xls"
    Classdest = "C:\TEMP\"
    ActiveWorkbook.SaveAs Filename:=Classdest & onglet & ".xls"
End Sub

attention : enlève bien avant exécution la forme ou tu as collé le code de la macro...

@+

 

[aubelix]

Re : SUPPRESSION Zone de texte

Bonsoir Pierrot93 🙂

Merci pour ta réponse
J'arrive du travail et j'ai testé ta réponse.
La Zone de texte n'est pas effacée chez moi 😡
J'espère que j'ai bien formulé ma question à savoir :
Supprimer la zone de texte en gris dans la nouvelle feuille, qui sert à lancer la macro.
Je ne comprends pas, pourquoi chez toi cela fonctionne et pas chez moi !

Dans l'attente de ton aide.
Cordialement.

 

[Pierrot93]

Re : SUPPRESSION Zone de texte

re

oui c'est bien celle là, la zone de texte grisé qui est effacée, mais je repète encore :

attention : enlève bien avant exécution la forme ou tu as collé le code de la macro...

tu n'as bien qu'un seul objet dans le classeur où tu exécutes ce code ???

@+

 

[aubelix]

Re : SUPPRESSION Zone de texte

Re Bonsoir. 🙂

Merci pour ta réponse.

Oui je n'ai qu'un objet dans la feuille "Master".
Cet objet me sert à lancer la macro et créer une nouvelle feuille.
Est-il possible de le supprimer en ajoutant un message:
Si oui, supprimer l'objet avant et continuer le déroulement de la macro
Si non, ne rien faire et abondonner le déroulement de la macro.

Merci pour ton aide.
Cordialement.

 

[Pierrot93]

Re : SUPPRESSION Zone de texte

Re

ton fichier en retour... celui ci fonctionne chez moi.... testes le et dis moi.

@+

 

[aubelix]

Re : SUPPRESSION Zone de texte

Bonjour Pierrot93 et le Forum.

😡 Je viens de me rendre compte que j'ai un logo sur ma feuille "Master". 😡
😕 La macro devait fonctionner depuis le début. 😕
Le logo a pour nom "Image 3".
As-tu de supprimer la zone texte sans supprimer le logo (Image 3)

Par avance, Merci pour ton aide. 🙂
Cordialement.

 

[Pierrot93]

Re : SUPPRESSION Zone de texte

Bonjour aubellix

regarde le code ci-dessous, supprime tous les "shapes" sauf ceux dont le type est "msoPicture " :

Sub nouvelle_feuille()
Dim Classdest As String, onglet As String, sh As Shape
onglet = Sheets("DATA").Range("B4").Value
Sheets("DATA").Copy
ActiveSheet.Name = onglet
For Each sh In ActiveSheet.Shapes
    If Not sh.Type = msoPicture Then sh.Delete
Next sh
End Sub

bonne fin d'après midi
@+

 

[aubelix]

Re : SUPPRESSION Zone de texte

Bonjour Pierrot93 et le Forum.

Merci une fois de plus pour ta réponse.
La macro fonctionne chez moi, mais pas je ne l'ai pas adapté à mon projet.
Lundi dès que possible je la teste au Travail et je te tiens informé...

Bon week-end. 😎
Cordialement.