SUPPRESSION Zone de texte

Pierrot93

XLDnaute Barbatruc

• 26 Février 2009

• #2

Re : SUPPRESSION Zone de texte

Bonjour Aubellix

essaye avec le code ci-dessous :

Code:

ActiveSheet.Shapes(1).Delete

bon après midi
@+

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

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 26 Février 2009

• #3

Re : SUPPRESSION Zone de texte

Bonjour Pierrot93.

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

Cordialement.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Février 2009

• #4

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...

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 26 Février 2009

• #5

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Février 2009

• #6

Re : SUPPRESSION Zone de texte

Re

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

Code:

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

@+

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 26 Février 2009

• #7

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.

 

Pièces jointes

• SUPPRESSION Zone de texte.xls

  26 KB · Affichages: 124
• SUPPRESSION Zone de texte.xls

  26 KB · Affichages: 127
• SUPPRESSION Zone de texte.xls

  26 KB · Affichages: 130

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Février 2009

• #8

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 :

Code:

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...

@+

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 26 Février 2009

• #9

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Février 2009

• #10

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...

Cliquez pour agrandir...

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

@+

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 26 Février 2009

• #11

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Février 2009

• #12

Re : SUPPRESSION Zone de texte

Re

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

@+

 

Pièces jointes

• test.zip

  5.9 KB · Affichages: 65
• test.zip

  5.9 KB · Affichages: 73
• test.zip

  5.9 KB · Affichages: 76

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 27 Février 2009

• #13

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Février 2009

• #14

Re : SUPPRESSION Zone de texte

Bonjour aubellix

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

Code:

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
@+

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 28 Février 2009

• #15

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.

 

Vote positif 0 Vote négatif