Eviter de copier une ZoneTexte en copiant une feuille

Le 20/08/2014 à 13:10

Bonjour à tous et à toutes.

Je cherche une ligne de code qui pourrait exclure une ZoneTexte de la feuille à copier.

Voici le code utilisé.

Sub Nouveau_Bon()

I = Sheets.Count

Sheets("Bon 1").Copy after:=Sheets(Sheets.Count)

ActiveSheet.Name = "Bon " & I + 1

'ActiveSheet.Select

'ZoneTexte1.Visible = False'' ne fonctionne pas

End S ub

Merci de bien vouloir jeter un œil sur ce message

Le fichier ne vous apporterait rien de plus.

Amicalement

Papy Pierrot

Le 20/08/2014 à 13:25

Bonjour

A tester

Sub Nouveau_Bon()
I = Sheets.Count

  Sheets("Bon 1").Copy after:=Sheets(Sheets.Count)

  With ActiveSheet
    .Name = "Bon " & I + 1
    .Shapes("ZoneTexte 1").Delete
  End With

'ActiveSheet.Select
'ZoneTexte1.Visible = False'' ne fonctionne pas
End Sub

Le 20/08/2014 à 13:54

Bonjour, Banzai64,

Je viens seulement de recevoir tes e-mails, les deux en même temps.

J'ai copié la macro dans mon code, mais la zone de texte 1 devient la zone de texte 2 et cela crée un problème .

Je vais joindre le fichier.

Merci de vouloir bien t'en occuper.

Amicalement,

Pierrot

20bons-v3.xlsm (31.75 Ko)

Le 20/08/2014 à 14:11

Bonjour

A tester